Séparer ville et code postal

apdf · 24 Avril 2012

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 · 24 Avril 2012

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 :

Code:

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 · 24 Avril 2012

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

Séparer ville et code postal

apdf

XLDnaute Occasionnel

Robert

XLDnaute Barbatruc

apdf

XLDnaute Occasionnel

Discussions similaires

Séparer ville et code postal

apdf

XLDnaute Occasionnel

Robert

XLDnaute Barbatruc

apdf

XLDnaute Occasionnel

Discussions similaires

Privacy & Transparency

Privacy & Transparency