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,
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
DanielCo
Le #24634331
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,
Répondre en citant
Mathieu
Le #24634351
Le jeudi 12 juillet 2012 15:42:16 UTC+2, DanielCo a écrit :
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,



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épondre en citant
DanielCo
Le #24634341
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 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épondre en citant
Mathieu
Le #24634371
Le jeudi 12 juillet 2012 15:52:24 UTC+2, DanielCo a écrit :
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 ce llule s'affiche NOM dans colonne A, Adresse dans colonne B et code postal d ans colonne C.
Répondre en citant
DanielCo
Le #24634361
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.



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
Répondre en citant
Mathieu
Le #24634381
Le jeudi 12 juillet 2012 16:18:34 UTC+2, DanielCo a écrit :
> 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



Parfait Daniel,
Je te remercie une nouvelle fois, tu as résolu mon problème.
Répondre en citant
Publicité
Poster une réponse
Anonyme