mise en forme d'un fichier

[CELIMEN]

Salut le forum !
j'ai un soucis pour remettre en page un fichier d'adresses (voir ex ci-joint)
le fichier est présenté avec 2 colonnes et 2 lignes sur lesquelles sont réparties toutes les données d'une adresse.
je voudrai remettre ce fichier en forme basic suivante : 1 seule ligne adresse avec plusieurs colonnes correspondant au nom, numéro et dresse de rue, code postal et ville.
un grand merci d'avance pour une éventuelle réponse !

 

[Compte Supprimé 979]

Re : mise en forme d'un fichier

Salut Celimen,

Pas facile, sachant que le nombre de ligne pour et entre les adresses n'est pas toujours le même

Tu peux essayer ce code

Sub MiseEnForme()
Dim DerLig As Long, Lig As Long, Adr3 As String, Adr4 As String
With Sheets("Extraction fichier Enyx")
  DerLig = .Range("B" & Rows.Count).End(xlUp).Row
  Lig = 1
  Do While Lig <= DerLig
    ' Un semblant d'adresse mail se ballade
    If InStr(1, .Range("A" & Lig), ".FR") > 0 Or _
      InStr(1, .Range("A" & Lig), ".COM") > 0 Then
      .Rows(Lig).Delete
    End If
    If .Range("A" & Lig) <> "" Then
      If .Range("A" & Lig + 1) <> "" Or .Range("B" & Lig + 1) <> "" Then
        .Range("C" & Lig) = .Range("A" & Lig + 1)
        .Range("D" & Lig) = .Range("B" & Lig + 1)
        .Rows(Lig + 1).Delete
      Else
        .Rows(Lig + 1).Delete
      End If
    Else
      .Rows(Lig).Delete
    End If
    If .Range("A" & Lig + 1) = "" And .Range("B" & Lig + 1) = "" Then
      .Rows(Lig + 1).Delete
      Lig = Lig + 1
    End If
    ' Récupérer la valeur de la dernière ligne
    DerLig = .Range("B" & Rows.Count).End(xlUp).Row
End With
End Sub

Sans garantie

A+

 

[nevio]

Re : mise en forme d'un fichier

salut

voici une solution qui semble marcher la seule contrainte rajouter une feuille "Adresses" et lancer la macro CreaAdresses

fichier ci-joint

Bonsoir tiens-moi au courant!!!!
a+
Nevio