remplacement , par cellule suivante

[kenny2410]

Bonjour à tous,

J'ai un petit probleme:
j'ai une suite de nombres séparés par des virgules ou des virgules espace, que je souhaiterai faire sauter et mettre dans les cellules à la lignes.

est ce que vous auriez une solution (formule ou macro) qui me permette de le faire?

Exemple:
données entrantes
1,2,3,4 ,5,6, 7,89, 9

données sortantes (dans des cellules différentes):
1
2
3
4
5
6
7
89
9


Merci de votre aide.

Kenny

 

[youky(BJ)]

Re : remplacement , par cellule suivante

Bonjour Kenny,
Essayes cette petit macro.
Les données en A1 et c'est copié à partir de A2...A3
Bruno

Sub MyTranspose()
tx = Application.Substitute([A1], " ", "")
On Error GoTo fin
For k = 0 To 1000
Cells(k + 2, 1) = Split(tx, ",")(k)
Next
fin:
End Sub

 

[Staple1600]

Re : remplacement , par cellule suivante

Bonsoir


Même résultat mais sans la boucle.

Sub a()
Dim t
t = Split([A1], ",")
[A1].Resize(UBound(t)) = Application.Transpose(t)
End Sub

 

[kenny2410]

Re : remplacement , par cellule suivante

Bonjour à tous,

MERCI à tous les deux... vous m'avez bien aidés sur ce sujet...
j'ai juste apporté une petite modification sur la macro de Staple1600 en supprimant les " " (espace) sur les chiffres dans les cellules.

Merci à vous deux...