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
et Bonne Année!
-->Message édité par willyplaisir le 04/01/2009 14:52:47<--