J'ai un fichier comportant des noms et adresses saisis improprement, c'est =
=E0 dire que pour chaque destinataire on trouve dans la m=EAme cellule :
Monsieur DURAND Pierre
12 rue du Bonheur
34900 Cityville
Or ce n'est pas l'id=E9al pour faire du publipostage. Je cherche donc =E0 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=
=E9ter le passage =E0 la ligne dans la m=EAme cellule dans Excel et =E9crit=
donc tout =E0 la suite).
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
DanielCo
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,
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).
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,
Mathieu
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,
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 ?
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,
DanielCo
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é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 ?
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,
Mathieu
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.
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.
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.
DanielCo
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
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
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
Mathieu
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.
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.
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.
