Bonjour =E0 tous.
J'ai en A1, r=E9sultant d'une macro, une ligne de texte contenant des
donn=E9es s=E9par=E9es par des ";"
J'aimerais avec une macro remplacer ce caract=E8re ";" par un changement
de cellule sur la colonne A1, A2,An ...et non sur la ligne comme dans
convertir-->D=E9limit=E9-->S=E9parateur ";"
Merci
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Daniel
Bonjour. Essaie :
Sub test() Dim Tabl, Cellule As Range, Ctr As Integer, Morceau Tabl = Split([A1], ";") Set Cellule = Range("A1") For Each Morceau In Tabl Cellule.Offset(Ctr, 0) = Morceau Ctr = Ctr + 1 Next Morceau End Sub
Cordialement. Daniel "Chantik" a écrit dans le message de news:
Bonjour à tous. J'ai en A1, résultant d'une macro, une ligne de texte contenant des données séparées par des ";" J'aimerais avec une macro remplacer ce caractère ";" par un changement de cellule sur la colonne A1, A2,An ...et non sur la ligne comme dans convertir-->Délimité-->Séparateur ";" Merci
Bonjour.
Essaie :
Sub test()
Dim Tabl, Cellule As Range, Ctr As Integer, Morceau
Tabl = Split([A1], ";")
Set Cellule = Range("A1")
For Each Morceau In Tabl
Cellule.Offset(Ctr, 0) = Morceau
Ctr = Ctr + 1
Next Morceau
End Sub
Cordialement.
Daniel
"Chantik" <lol.pegase@laposte.net> a écrit dans le message de news:
1129592092.453393.49200@g43g2000cwa.googlegroups.com...
Bonjour à tous.
J'ai en A1, résultant d'une macro, une ligne de texte contenant des
données séparées par des ";"
J'aimerais avec une macro remplacer ce caractère ";" par un changement
de cellule sur la colonne A1, A2,An ...et non sur la ligne comme dans
convertir-->Délimité-->Séparateur ";"
Merci
Sub test() Dim Tabl, Cellule As Range, Ctr As Integer, Morceau Tabl = Split([A1], ";") Set Cellule = Range("A1") For Each Morceau In Tabl Cellule.Offset(Ctr, 0) = Morceau Ctr = Ctr + 1 Next Morceau End Sub
Cordialement. Daniel "Chantik" a écrit dans le message de news:
Bonjour à tous. J'ai en A1, résultant d'une macro, une ligne de texte contenant des données séparées par des ";" J'aimerais avec une macro remplacer ce caractère ";" par un changement de cellule sur la colonne A1, A2,An ...et non sur la ligne comme dans convertir-->Délimité-->Séparateur ";" Merci
Chantik
OK ça fonctionne!! Dommage que cette fonction ne soit pas intégrée dans Convertir!!!! Merci
OK ça fonctionne!!
Dommage que cette fonction ne soit pas intégrée dans Convertir!!!!
Merci
OK ça fonctionne!! Dommage que cette fonction ne soit pas intégrée dans Convertir!!!! Merci
michdenis
Bonjour Chantik,
Une autre façon de faire à partir de la propostion de Daniel.
'-------------- Sub test() Dim Tabl As Variant Tabl = Split([A1], ";") Range("A1").Resize(UBound(Tabl) + 1) = Application.Transpose(Tabl) End Sub '--------------
Salutations!
"Chantik" a écrit dans le message de news: Bonjour à tous. J'ai en A1, résultant d'une macro, une ligne de texte contenant des données séparées par des ";" J'aimerais avec une macro remplacer ce caractère ";" par un changement de cellule sur la colonne A1, A2,An ...et non sur la ligne comme dans convertir-->Délimité-->Séparateur ";" Merci
Bonjour Chantik,
Une autre façon de faire à partir de la propostion de Daniel.
'--------------
Sub test()
Dim Tabl As Variant
Tabl = Split([A1], ";")
Range("A1").Resize(UBound(Tabl) + 1) = Application.Transpose(Tabl)
End Sub
'--------------
Salutations!
"Chantik" <lol.pegase@laposte.net> a écrit dans le message de news: 1129592092.453393.49200@g43g2000cwa.googlegroups.com...
Bonjour à tous.
J'ai en A1, résultant d'une macro, une ligne de texte contenant des
données séparées par des ";"
J'aimerais avec une macro remplacer ce caractère ";" par un changement
de cellule sur la colonne A1, A2,An ...et non sur la ligne comme dans
convertir-->Délimité-->Séparateur ";"
Merci
Une autre façon de faire à partir de la propostion de Daniel.
'-------------- Sub test() Dim Tabl As Variant Tabl = Split([A1], ";") Range("A1").Resize(UBound(Tabl) + 1) = Application.Transpose(Tabl) End Sub '--------------
Salutations!
"Chantik" a écrit dans le message de news: Bonjour à tous. J'ai en A1, résultant d'une macro, une ligne de texte contenant des données séparées par des ";" J'aimerais avec une macro remplacer ce caractère ";" par un changement de cellule sur la colonne A1, A2,An ...et non sur la ligne comme dans convertir-->Délimité-->Séparateur ";" Merci
Daniel
Bonsoir. Puisque tu en causes, tu peux utiliser Données / Convertir, puis Copier, Collage spécial / Transposé. Daniel "Chantik" a écrit dans le message de news:
OK ça fonctionne!! Dommage que cette fonction ne soit pas intégrée dans Convertir!!!! Merci
Bonsoir.
Puisque tu en causes, tu peux utiliser Données / Convertir, puis Copier,
Collage spécial / Transposé.
Daniel
"Chantik" <lol.pegase@laposte.net> a écrit dans le message de news:
1129631769.339322.56890@z14g2000cwz.googlegroups.com...
OK ça fonctionne!!
Dommage que cette fonction ne soit pas intégrée dans Convertir!!!!
Merci
Bonsoir. Puisque tu en causes, tu peux utiliser Données / Convertir, puis Copier, Collage spécial / Transposé. Daniel "Chantik" a écrit dans le message de news:
OK ça fonctionne!! Dommage que cette fonction ne soit pas intégrée dans Convertir!!!! Merci
