bonjour le forum
j'ai un petit problème sur un formatage de fichier adresse postale
j'ai une colonne qui contient toute les informations d'une adresse
bat, résidence rue etc ... comme ci dessous
résid Gray d'Albion Bâtiment 35 45 Bis Rue perso
j'ai trouvé une macro qui permet de faire un premier écrémage (mais qui me pose un problème car il ne met pas le numéro du batiment)
en effet la macro splitte la cellule dès le premier chiffre trouvé et donne
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17 Sub Extraire_ADRESSES_CODESPOSTAUX_VILLES() Dim c As Range, t As Integer Set c = Range("d2") Do While c <> "" For t = InStr(InStr(c, " "), c, " ") To Len(c) Select Case Mid(c, t, 1) Case "0" To "9" Exit For End Select Next t c(1, 2) = Mid(c, 1, t - 1) c(1, 3) = Mid(c, t, 5) & Mid(c, t + 6) '.NumberFormat = "00000" 'c(1, 4) = Set c = c(2, 1) Loop End Sub
résid Gray d'Albion Bâtiment
pour la seconde partie de l'adresse j'ai réalisé cette formule
qui logiquement me sort
Code : Sélectionner tout - Visualiser dans une fenêtre à part =STXT(C2;NBCAR(GAUCHE(C2;NBCAR(D2)))+1;45)
35 45 Bis Rue perso
cela me pose donc un problème car je n'arrive à trouver une solution pour ne récupérer que les chiffres si par exemple
suite comme suit 35 45 pour ne prendre que 35 puisque 45 correspond à la rue et 35 au numéro du bâtiment
j'espère avoir été clair
merci d'avance pour votre aide
David
Partager