par macro, comment résoudre mon probleme car dans la meme cellule j'ai
l'adresse, le code postal et la ville : 102 avenue Gambetta 92400 Courbevoie
Pour effectuer publipostage je voudrais si possible avoir adresse dans une
cellule et code postal et ville dans une autre cellule
Encore merci pour réponse
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Daniel
Bonjour. Le code suivant permet de séparer ce qu'il y a avant et après le code postal. Toutefois, il sera très difficile de séparer les numéros d'appartement, les étages etc. NB. l'adresse traitée est en A1. Sub test() Dim Ctr As Integer, Tabl, CP As String, Rue As String, Ville As String Ctr = 999 Tabl = Split(Range("A1")) For i = 0 To UBound(Tabl) If Tabl(i) > 999 And Tabl(i) < 100000 Then Ctr = i CP = Tabl(i) ElseIf i < Ctr Then If Rue = "" Then Rue = Tabl(i) Else Rue = Rue & " " & Tabl(i) End If Else If Ville = "" Then Ville = Tabl(i) Else Ville = Ville & " " & Tabl(i) End If End If Next i MsgBox Rue MsgBox CP MsgBox Ville End Sub
Cordialement. Daniel "GG.barbu" a écrit dans le message de news:
Bonjour à tous Sous XP PRO & Excel 2000
par macro, comment résoudre mon probleme car dans la meme cellule j'ai l'adresse, le code postal et la ville : 102 avenue Gambetta 92400 Courbevoie Pour effectuer publipostage je voudrais si possible avoir adresse dans une cellule et code postal et ville dans une autre cellule Encore merci pour réponse
Bonjour.
Le code suivant permet de séparer ce qu'il y a avant et après le code
postal. Toutefois, il sera très difficile de séparer les numéros
d'appartement, les étages etc.
NB. l'adresse traitée est en A1.
Sub test()
Dim Ctr As Integer, Tabl, CP As String, Rue As String, Ville As String
Ctr = 999
Tabl = Split(Range("A1"))
For i = 0 To UBound(Tabl)
If Tabl(i) > 999 And Tabl(i) < 100000 Then
Ctr = i
CP = Tabl(i)
ElseIf i < Ctr Then
If Rue = "" Then
Rue = Tabl(i)
Else
Rue = Rue & " " & Tabl(i)
End If
Else
If Ville = "" Then
Ville = Tabl(i)
Else
Ville = Ville & " " & Tabl(i)
End If
End If
Next i
MsgBox Rue
MsgBox CP
MsgBox Ville
End Sub
Cordialement.
Daniel
"GG.barbu" <GGbarbu@discussions.microsoft.com> a écrit dans le message de
news: 8A0BBF24-05C2-4962-92A8-546885DE7658@microsoft.com...
Bonjour à tous
Sous XP PRO & Excel 2000
par macro, comment résoudre mon probleme car dans la meme cellule j'ai
l'adresse, le code postal et la ville : 102 avenue Gambetta 92400
Courbevoie
Pour effectuer publipostage je voudrais si possible avoir adresse dans une
cellule et code postal et ville dans une autre cellule
Encore merci pour réponse
Bonjour. Le code suivant permet de séparer ce qu'il y a avant et après le code postal. Toutefois, il sera très difficile de séparer les numéros d'appartement, les étages etc. NB. l'adresse traitée est en A1. Sub test() Dim Ctr As Integer, Tabl, CP As String, Rue As String, Ville As String Ctr = 999 Tabl = Split(Range("A1")) For i = 0 To UBound(Tabl) If Tabl(i) > 999 And Tabl(i) < 100000 Then Ctr = i CP = Tabl(i) ElseIf i < Ctr Then If Rue = "" Then Rue = Tabl(i) Else Rue = Rue & " " & Tabl(i) End If Else If Ville = "" Then Ville = Tabl(i) Else Ville = Ville & " " & Tabl(i) End If End If Next i MsgBox Rue MsgBox CP MsgBox Ville End Sub
Cordialement. Daniel "GG.barbu" a écrit dans le message de news:
Bonjour à tous Sous XP PRO & Excel 2000
par macro, comment résoudre mon probleme car dans la meme cellule j'ai l'adresse, le code postal et la ville : 102 avenue Gambetta 92400 Courbevoie Pour effectuer publipostage je voudrais si possible avoir adresse dans une cellule et code postal et ville dans une autre cellule Encore merci pour réponse
GG.barbu
Grand merci pour ta rapidité je n'ai plus le temps de tester aujourd'hui, je planche sur le code demain
A + et encore merci
Bonjour. Le code suivant permet de séparer ce qu'il y a avant et après le code postal. Toutefois, il sera très difficile de séparer les numéros d'appartement, les étages etc. NB. l'adresse traitée est en A1. Sub test() Dim Ctr As Integer, Tabl, CP As String, Rue As String, Ville As String Ctr = 999 Tabl = Split(Range("A1")) For i = 0 To UBound(Tabl) If Tabl(i) > 999 And Tabl(i) < 100000 Then Ctr = i CP = Tabl(i) ElseIf i < Ctr Then If Rue = "" Then Rue = Tabl(i) Else Rue = Rue & " " & Tabl(i) End If Else If Ville = "" Then Ville = Tabl(i) Else Ville = Ville & " " & Tabl(i) End If End If Next i MsgBox Rue MsgBox CP MsgBox Ville End Sub
Cordialement. Daniel "GG.barbu" a écrit dans le message de news:
Bonjour à tous Sous XP PRO & Excel 2000
par macro, comment résoudre mon probleme car dans la meme cellule j'ai l'adresse, le code postal et la ville : 102 avenue Gambetta 92400 Courbevoie Pour effectuer publipostage je voudrais si possible avoir adresse dans une cellule et code postal et ville dans une autre cellule Encore merci pour réponse
Grand merci pour ta rapidité
je n'ai plus le temps de tester aujourd'hui, je planche sur le code demain
A + et encore merci
Bonjour.
Le code suivant permet de séparer ce qu'il y a avant et après le code
postal. Toutefois, il sera très difficile de séparer les numéros
d'appartement, les étages etc.
NB. l'adresse traitée est en A1.
Sub test()
Dim Ctr As Integer, Tabl, CP As String, Rue As String, Ville As String
Ctr = 999
Tabl = Split(Range("A1"))
For i = 0 To UBound(Tabl)
If Tabl(i) > 999 And Tabl(i) < 100000 Then
Ctr = i
CP = Tabl(i)
ElseIf i < Ctr Then
If Rue = "" Then
Rue = Tabl(i)
Else
Rue = Rue & " " & Tabl(i)
End If
Else
If Ville = "" Then
Ville = Tabl(i)
Else
Ville = Ville & " " & Tabl(i)
End If
End If
Next i
MsgBox Rue
MsgBox CP
MsgBox Ville
End Sub
Cordialement.
Daniel
"GG.barbu" <GGbarbu@discussions.microsoft.com> a écrit dans le message de
news: 8A0BBF24-05C2-4962-92A8-546885DE7658@microsoft.com...
Bonjour à tous
Sous XP PRO & Excel 2000
par macro, comment résoudre mon probleme car dans la meme cellule j'ai
l'adresse, le code postal et la ville : 102 avenue Gambetta 92400
Courbevoie
Pour effectuer publipostage je voudrais si possible avoir adresse dans une
cellule et code postal et ville dans une autre cellule
Encore merci pour réponse
Grand merci pour ta rapidité je n'ai plus le temps de tester aujourd'hui, je planche sur le code demain
A + et encore merci
Bonjour. Le code suivant permet de séparer ce qu'il y a avant et après le code postal. Toutefois, il sera très difficile de séparer les numéros d'appartement, les étages etc. NB. l'adresse traitée est en A1. Sub test() Dim Ctr As Integer, Tabl, CP As String, Rue As String, Ville As String Ctr = 999 Tabl = Split(Range("A1")) For i = 0 To UBound(Tabl) If Tabl(i) > 999 And Tabl(i) < 100000 Then Ctr = i CP = Tabl(i) ElseIf i < Ctr Then If Rue = "" Then Rue = Tabl(i) Else Rue = Rue & " " & Tabl(i) End If Else If Ville = "" Then Ville = Tabl(i) Else Ville = Ville & " " & Tabl(i) End If End If Next i MsgBox Rue MsgBox CP MsgBox Ville End Sub
Cordialement. Daniel "GG.barbu" a écrit dans le message de news:
Bonjour à tous Sous XP PRO & Excel 2000
par macro, comment résoudre mon probleme car dans la meme cellule j'ai l'adresse, le code postal et la ville : 102 avenue Gambetta 92400 Courbevoie Pour effectuer publipostage je voudrais si possible avoir adresse dans une cellule et code postal et ville dans une autre cellule Encore merci pour réponse
