1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21
|
Sub ExtractionAdresse()
'Hypothèse: le code postal est précédé par un tiret, et le code pays est représenté par une lettre.
'Au cas où le pays est représenté par 2 lettres (GB, BG, DK, ...etc), il faudra adapter le code.
Dim Adresse0 As String
Dim tiret
Dim pays As String
Dim Adresse1, Adresse2 As String
Adresse0 = "26 RUE DE MONDORFL-3337 HALLANGE"
'Si le code postal est toujours précédé par un tiret (-), alors:
tiret = InStrRev(Adresse0, "-")
pays = Mid(Adresse0, tiret - 1, 1)
Adresse1 = Trim(Mid(Adresse0, 1, tiret - 2))
Adresse2 = Trim(Mid(Adresse0, tiret - 1))
MsgBox Adresse1 & vbLf & vbLf & Adresse2
End Sub |
Partager