Division d'une cellule

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 à faire
que l'adresse se mette dans une nouvelle cellule/colonne et le code
postal/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,

Bonjour,
Sￜlectionne la plage ￜ traiter (en ligne, le rￜsu ltat 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 ￜ tous,
>
> J'ai un fichier comportant des noms et adresses saisis improprem ent, c'est ￜ
> dire que pour chaque destinataire on trouve dans la mￜme cel lule :
>
> Monsieur DURAND Pierre
> 12 rue du Bonheur
> 34900 Cityville
>
> Or ce n'est pas l'idￜal pour faire du publipostage. Je cherche donc ￜ faire
> que l'adresse se mette dans une nouvelle cellule/colonne et le c ode
> postal/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,

Le jeudi 12 juillet 2012 15:42:16 UTC+2, DanielCo a écrit :

Bonjour,
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 � 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 � faire que l'adresse se mette dans une nouvelle
cellule/colonne et le code postal/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,

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,

Rￜsultats en colonne H :
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


> Le jeudi 12 juillet 2012 15:42:16 UTC+2, DanielCo a ￜcritï ¿œ:
>> Bonjour,
>> 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 ￜ tous,
>>>
>>> J'ai un fichier comportant des noms et adresses sais is improprement,
>>> c'est ￜ dire que pour chaque destinataire o n 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 d u publipostage. Je cherche
>>> donc ￜ faire que l'adresse se mette dans un e nouvelle
>>> cellule/colonne et le code postal/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,
>
> 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,

Excuses moi Daniel,
Ce que je voudrais c'est que mes 3 lignes saisies de base dans la même
cellule s'affiche NOM dans colonne A, Adresse dans colonne B et code postal
dans colonne C.

> Excuses moi Daniel,
> Ce que je voudrais c'est que mes 3 lignes saisies de base dans l a même
> cellule s'affiche NOM dans colonne A, Adresse dans colonne B et code postal
> dans 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