Division d'une cellule
Le
Mathieu

Bonjour à tous,
J'ai un fichier comportant des noms et adresses saisis improprement, c'est =
à dire que pour chaque destinataire on trouve dans la même cellule :
Monsieur DURAND Pierre
12 rue du Bonheur
34900 Cityville
Or ce n'est pas l'idéal pour faire du publipostage. Je cherche donc à f=
aire que l'adresse se mette dans une nouvelle cellule/colonne et le code po=
stal/ville dans une autre (si je laisse tel quel Word ne sait pas interpr=
éter le passage à la ligne dans la même cellule dans Excel et écrit=
donc tout à la suite).
Merci de votre aide,
J'ai un fichier comportant des noms et adresses saisis improprement, c'est =
à dire que pour chaque destinataire on trouve dans la même cellule :
Monsieur DURAND Pierre
12 rue du Bonheur
34900 Cityville
Or ce n'est pas l'idéal pour faire du publipostage. Je cherche donc à f=
aire que l'adresse se mette dans une nouvelle cellule/colonne et le code po=
stal/ville dans une autre (si je laisse tel quel Word ne sait pas interpr=
éter le passage à la ligne dans la même cellule dans Excel et écrit=
donc tout à la suite).
Merci de votre aide,
Sélectionne la plage à traiter (en ligne, le résultat va s'inscrire
dans les lignes suivantes :
Sub test1()
Dim c As Range, txt As String
For Each c In Selection
i = 0
For Each Item In Split(c.Value, Chr(10))
i = i + 1
c.Offset(i) = Item
Next Item
Next c
End Sub
Cordialement.
Daniel
Bonjour Daniel et merci,
Est-il possible de plutôt mettre le résultat dans de nouvelles colonnes plutôt que dans de nouvelles lignes ?
Je te remercie par avance,
Sub test1()
Dim c As Range, txt As String
For Each c In Selection
For Each Item In Split(c.Value, Chr(10))
i = i + 1
Cells(i, "H") = Item
Next Item
Next c
End Sub
Daniel
Excuses moi Daniel,
Ce que je voudrais c'est que mes 3 lignes saisies de base dans la même ce llule s'affiche NOM dans colonne A, Adresse dans colonne B et code postal d ans colonne C.
Sub test1()
Dim c As Range, txt As String
For Each c In Selection
i = 0
For Each Item In Split(c.Value, Chr(10))
i = i + 1
Cells(c.Row, i) = Item
Next Item
Next c
End Sub
Daniel
Parfait Daniel,
Je te remercie une nouvelle fois, tu as résolu mon problème.