Extraction ligne/données de plusieurs lignes dans une cellu

Bonjour

comme expliquer dans ma présentation, je suis vraiment un "noob" en excel...

et je m'acharne a essayer diverses formules ou macro glanées sur le net, je ne parviens pas a mes fins! et j'en peu plus!

la situation est pourtant simple a priori:

chaque cellule(environ 1000) d'une même colonne(A) contient 3 lignes

ligne 1: noms et prénoms

ligne 2 : numéro et nom des rues ou lieu dit

ligne 3: code postal et nom de ville

j ai réussi a rassembler ces éléments a partir d'un fichier excel avec des dizaines de lignes et colonnes pour chaque "clients"

j ai ensuite réussi a en ressortir les données souhaitées sous ces 3 lignes.

aujourd'hui je souhaiterais extraire ces lignes pour recomposer un tableau avec a minima le code postal et la ville séparée, ainsi que la ligne 2 et la ligne 3 séparé dans une autre colone. Car j'aimerais ensuite exploité ce fichier pour créer une carte gmail pour organiser mes tournées.

soit un genre:

a1 = ligne 1

b1=ligne 2

c1=code postal

d1=ville

certes j'aurai bien aimé séparé les noms et prénoms, mais comme parfois il y deux noms et prénoms ou même deux prénoms et un nom sur la même ligne, c trop trop compliqué !

ainsi, j ai trouvé plusieurs approches et formules sur le net, dont une macro sur votre site , mais je n'y arrive pas! hi han !!

bref, je craque!! ! va me falloir deux heures de musique pour me calmer !

merci a ceux qui voudront bien y consacrer un peu de temps

cordialement

je peux envoyer le fichier en question si besoin

merci

Bonjour,

Sans fichier il est difficile de cerner le problème

bonjour

ah oui, désolé, je viens de lire la charte..

merci

cdt

Bonjour,

Ce n'est pas possible dans ton fichier car toutes tes adresses ne sont pas écrit pareil : parfois il y a plein d'espace

Désolé

Re,

Je te joint quand même mon fichier car il fonctionne sur certaines adresses

bonjour

il te manque beaucoup de chr(10) a toi de les mettre

voila une macro qui mes en colonne avec les chr(10)

A+

Maurice

Bonjour

avec suppression des espaces

A+

Maurice

Sub test()
Feuil2.Select
DerLigne = Range("A" & Rows.Count).End(xlUp).Row
With Feuil1
   For L = 2 To DerLigne
      Range("A" & L).Value = Application.Trim(Range("A" & L).Value)
      MaVar = Split(Range("A" & L).Value, Chr(10))
      For C = LBound(MaVar) To UBound(MaVar)
        .Cells(L, C + 1).Value = MaVar(C)
      Next
      If .Cells(L, 3).Value <> "" Then
         Tmp = .Cells(L, 3).Value
         .Cells(L, 4).Value = Right(Tmp, Len(Tmp) - 5)
         .Cells(L, 3).Value = Split(.Range("C" & L).Value, " ")(0)
      End If
   Next
End With
End Sub

Bonjour a tous

Tout d'abord je tiens a vous remercier pour votre aide

La mauvaise nouvelle est que je n'ai vraiment pas eu le temps de m'occuper de ce mailing, ni de vous répondre pour vous remercier

la bonne nouvelle = trop de boulot avec la demande en clim cet été...

je vais telecharger les fichiers et les retravailler suivant vos conseils

je manquerais pas de vous faire part du résultat

merci encore