Trasnformer une liste d'adresse en colonne

[lydie1]

Bonjour,

je souhiate transformer une liste d'adresse du format

NOM
Adresse1
Adresse2
VILLE CODE_POSTAL

ou

NOM
Adresse1
VILLE CODE_POSTAL


en
NOM Adresse1 Adresse2 VILLE CODE_POSTAL

Adresse2 pouvant être vide.

Je joins le fichier excell.

Merci pour votre aide.

Lydie1

 

[pierrejean]

Re : Trasnformer une liste d'adresse en colonne

Bonjour Lydie

et bienvenue sur XLD

Vois si cela te convient

 

[tototiti2008]

Re : Trasnformer une liste d'adresse en colonne

Bonjour Lydie, bonjour Pierre 🙂,

une petite correction du code de Pierre 😉

Sub report()
Dim Lig As Long
Application.ScreenUpdating = False
Sheets("Feuil2").Cells.Clear
For n = 1 To Sheets("Feuil1").Range("A65536").End(xlUp).Row
 If Sheets("Feuil1").Range("A" & n).Hyperlinks.Count <> 0 Then
  Sheets("Feuil1").Range("A" & n & ":A" & n + 4).Copy
  Lig = Sheets("Feuil2").Range("A65536").End(xlUp).Row + 1
  Sheets("Feuil2").Range("A" & Lig).PasteSpecial Paste:=xlPasteAll, Transpose:=True
    If Sheets("Feuil2").Range("D" & Lig) = "" Then
        Sheets("Feuil2").Range("D" & Lig).Delete shift:=xlShiftToLeft
    End If
  End If
Next n
Application.ScreenUpdating = True
Application.CutCopyMode = False
Sheets("Feuil2").Select
End Sub

 

[pierrejean]

Re : Trasnformer une liste d'adresse en colonne

Re

Salut Tototiti 😀😀😀
Et Merci
Edit: Bien vu !!!!!
ci-joint fichier rectifié

 

[tototiti2008]

Re : Trasnformer une liste d'adresse en colonne

Re,

Oui, désolé de ne pas avoir précisé
Sur ton fichier, la ville et le code postal ne se mettaient pas systématiquement dans la même colonne, je supprime donc la cellule de la colonne D si elle est vide pour mettre Ville et code postal dans la colonne D tout le temps 🙂