LE NEWSMAGAZINE Nº1 DES NOUVELLES TECHNOLOGIES
200 utilisateurs connectés

Excel 2007 [résolu]

Mikebrant le 03 janvier 2009 à 19h14
Bonjour,

Dans Excel 2007, est-ce qu'il existe une fontion permettant de copier une suite de chiffre d'une cellule pour recopier chaque chiffre dans des cellules séparées ?
exemple:
[84,129,131,132,408] [84] [129] [131] [132] [408]
Merci à vous. :salut:
-->Message édité par Mikebrant le 06/01/2009 13:45:41<--
-------
mike
willyplaisir le 04 janvier 2009 à 14h48
bonjour,

la reponse est oui, mais pas si simple:
A1 = 321014,1239,1331,1332,408,(mettre une virgule au dernier nombre)
pour les 2 premiers nombres
B1 = STXT($A$1;1;CHERCHE(",";$A$1;1)-1)=321014
C1 = STXT($A$1;CHERCHE(",";A1;1)+1;CHERCHE(",";$A$1;CHERCHE(",";A1;1)+1)-CHERCHE(",";A1;1)-1)=1239


t'ai fait une macro à copier dans un module (lance Alt F11)et ajoute un module
tu selectionnes tes cellules en colonne , par exemple
A1=[84,129,131,132,408]
A2=[80,12,13,15,40]
A3=[7,10,11,12,13]
etc...

ensuite tu lances la macro (crées toi un bouton qui la lancera)
et tu obtiens
B1= 84 B2= 80 B3= 7
C1= 129 C2= 12 C3= 10
D1= 131 D2= 13 D3= 11
E1= 132 E1= 15 E3= 12
F1= 408 F2= 40 F3= 13
'----------------------------------------------

Sub copier()
With Selection
For Each Cel In Selection
nombre = Cel
L = Len(nombre)
li = Cel.Row
co = Cel.Column
co = co + 1

For i = 1 To L
If IsNumeric(Mid(nombre, i, 1)) Then
If k = 0 Then
Cells(li, co) = Mid(nombre, i, 1)
k = 1
Else
Cells(li, co) = Cells(li, co) * 10 + Mid(nombre, i, 1)
End If
Else
k = 0
co = co + 1
End If
Next i
Next
End With

End Sub
'--------------------

si cela te convient, ajoutes [résolu] dans ton Post :salut:
et Bonne Année!
-->Message édité par willyplaisir le 04/01/2009 14:52:47<--
Pat Garett le 05 janvier 2009 à 08h12
Salut,

A moins de ne pas avoir compris, il y a une solution beaucoup plus simple.
Aller dans Données/groupe Outils de Données/Convertir/Suivant/Choisir Virgule comme Séparateur
willyplaisir le 05 janvier 2009 à 10h13
bonjour Pat,

Merci pour ta solution que j'ignorais. :bien:
Mikebrant va l'apprécier ainsi que les autres internautes
:salut:
-->Message édité par willyplaisir le 05/01/2009 10:15:36<--
Mikebrant le 06 janvier 2009 à 13h13
Bonjour Pat Garett,

Excellente ta solution, pourquoi faire compliqué quand tout est simple.
Je remercie aussi Willyplaisir pour sa solution.
-------
mike


À PROPOS DU FORUM MICRO HEBDO

LES FORUMS THÉMATIQUES ET TECHNIQUES

LES FORUMS GÉNÉRAUX

ARCHIVES DU FORUM

publicité
01Informatique
01 INFORMATIQUE
L'hebdo de référence des décideurs informatiques.
Micro Hebdo
MICRO HEBDO
L'hebdo qui vous simplifie la micro
et Internet.
L'Ordinateur Individuel
L'ORDINATEUR INDIVIDUEL
Le mensuel informatique qui vous informe et vous conseille.
Nous contacter  |  Charte de confiance  |  Voir notice légale

01net.  -  01men  -  RMC  -  BFM Radio  -  BFM TV  -  TousLesPodcasts  -  01informatique.fr  -  Association RMC-BFM
Tous droits réservés © 1999 - 2009 Internext - 01net.