Séparer ville et code postal

[apdf]

Bonjour,

J'ai une liste d'environ 400 lignes avec des noms de villes et code postaux et j'aimerais si possible en VBA dissocier le nom du code postal.
Les lignes sont de la manière suivante.

Ex. Roura (code postal : 97311)

Pour obtenir ceci : Roura dans la colonne "A" et 97311 en colonne "B"

Je vous remercie de votre aide

 

[Robert]

Re : Séparer ville et code postal

Bonjour Max, bonjour le forum,

Si ta liste respecte toujours la même structure : Nom / Espace / Parenthèse / Texte + Code postal / parenthèse, alors la macro ci-dessous devrait convenir :

Sub Macro1()
Dim cel As Range


For Each cel In Range("A1:A" & Cells(Application.Rows.Count, 1).End(xlUp).Row) 'boucle sur toutes les cellules éditiées cel de la colonne A
    cel.Offset(0, 1).Value = Left(Right(cel.Value, 6), 5) 'récupère le code postal
    cel.Value = Split(cel.Value, " (", -1)(0) 'isole le nom
Next cel 'prochaine cellule de la boucle
End Sub

 

[apdf]

Re : Séparer ville et code postal

Bonjour Robert,

Génial exactement ma recherche.

Je te remercie beaucoup et te souhaite une bonne journée

Max