Explication de fonction VBA - Découpage adresse
Bonjour,
Pourriez vous m'expliquer ligne par ligne comment fonctionne cette formule de découpage d'adresse trouvée sur le site de Jacques Boisgontier ?
Le site est très bien car très riche mais les formules ne sont pas toujours expliquées.
Je vous remercie.
Adevy.
28 rue du grand Faubourg 33015 La Rochelle
Function Rue(c)
Application.Volatile
Set obj = CreateObject("vbscript.regexp")
obj.Pattern = "(\d{0,4}[\s,]?[a-z,A-Z]+\s)+"
Set a = obj.Execute(c)
If a.Count > 0 Then Rue = a(0) Else Rue = ""
End Function
Function Ville(c)
Application.Volatile
Set obj = CreateObject("vbscript.regexp")
obj.Pattern = "\d{5}\s([A-Z,a-z,\s,-]+)"
Set a = obj.Execute(c)
If a.Count > 0 Then Ville = a(0).Submatches(0) Else Ville = ""
End Function
Function CodePostal(c)
Application.Volatile
Set obj = CreateObject("vbscript.regexp")
obj.Pattern = "\d{5}"
Set a = obj.Execute(c)
If a.Count > 0 Then CodePostal = a(0) Else CodePostal = ""
End Function
bonjour,
Il y a des sources qu'il faut savoir utiliser telle quelle sont et ne pas se poser de question.
Celle ci en est une.
A mettre soigneusement dans ta bibliothèque les yeux fermés. (et à utiliser sans modération !)
Il est inutile de savoir démontrer le théorème de pythagore ou la théorie de la relativité pour en exploiter les formules...
A+
LOOOL
C'est vrai, mais l'objectif ensuite est de pouvoir jongler avec plusieurs fonctions ou bouts de fonctions
Désolé, mais là il n'y a rien pour jongler.
Voici déjà un début d'explication
Tu trouveras le reste dans Google avec le mot clef regexp !
A+