ADRESSE

Le
Pascal
Bonjour de nouveau
en Col A des adresses type 28 rue du grand faubourg 28000 CHARTRES
Je cherche une macro qui me permettrait de repartir cette adresse sur
plusieurs cellules 3 en fait adresse code postal et commune

Merci





Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000754-2, 05/07/2007
Analyse le : 06/07/2007 09:07:23
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
JB
Le #4602611
Bonjour,

Function CodePostal(chaine)
temp = ""
p = Len(chaine)
Do While Not IsNumeric(Mid(chaine, p, 1)) And p > 1
p = p - 1
Loop
Do While IsNumeric(Mid(chaine, p, 1)) And p > 1
temp = Mid(chaine, p, 1) & temp
p = p - 1
Loop
CodePostal = temp
End Function

Function Ville(chaine)
p = Len(chaine)
Do While Not IsNumeric(Mid(chaine, p, 1)) And p > 1
p = p - 1
Loop
Ville = Mid(chaine, p + 2)
End Function

Function Rue(chaine)
temp = ""
p = Len(chaine)
Do While Not IsNumeric(Mid(chaine, p, 1)) And p > 1
p = p - 1
Loop
Do While IsNumeric(Mid(chaine, p, 1)) And p > 1
temp = Mid(chaine, p, 1) & temp
p = p - 1
Loop
Rue = Left(chaine, p)
End Function

http://cjoint.com/?hgjXEjZtAR

JB

On 6 juil, 09:07, "Pascal"
Bonjour de nouveau
en Col A des adresses type 28 rue du grand faubourg 28000 CHARTRES
Je cherche une macro qui me permettrait de repartir cette adresse sur
plusieurs cellules 3 en fait adresse code postal et commune

Merci

---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000754-2, 05/07/2007
Analyse le : 06/07/2007 09:07:23
avast! - copyright (c) 1988-2007 ALWIL Software.http://www.avast.com


Pascal
Le #4602601
merci JB j'ai cherché sur ton site mais je ne trouvais pas
pascal


"JB"
Bonjour,

Function CodePostal(chaine)
temp = ""
p = Len(chaine)
Do While Not IsNumeric(Mid(chaine, p, 1)) And p > 1
p = p - 1
Loop
Do While IsNumeric(Mid(chaine, p, 1)) And p > 1
temp = Mid(chaine, p, 1) & temp
p = p - 1
Loop
CodePostal = temp
End Function

Function Ville(chaine)
p = Len(chaine)
Do While Not IsNumeric(Mid(chaine, p, 1)) And p > 1
p = p - 1
Loop
Ville = Mid(chaine, p + 2)
End Function

Function Rue(chaine)
temp = ""
p = Len(chaine)
Do While Not IsNumeric(Mid(chaine, p, 1)) And p > 1
p = p - 1
Loop
Do While IsNumeric(Mid(chaine, p, 1)) And p > 1
temp = Mid(chaine, p, 1) & temp
p = p - 1
Loop
Rue = Left(chaine, p)
End Function

http://cjoint.com/?hgjXEjZtAR

JB

On 6 juil, 09:07, "Pascal"
Bonjour de nouveau
en Col A des adresses type 28 rue du grand faubourg 28000 CHARTRES
Je cherche une macro qui me permettrait de repartir cette adresse sur
plusieurs cellules 3 en fait adresse code postal et commune

Merci

---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000754-2, 05/07/2007
Analyse le : 06/07/2007 09:07:23
avast! - copyright (c) 1988-2007 ALWIL Software.http://www.avast.com





---
Antivirus avast! : message Entrant sain.
Base de donnees virale (VPS) : 000754-2, 05/07/2007
Analyse le : 06/07/2007 09:53:53
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com








---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000754-2, 05/07/2007
Analyse le : 06/07/2007 09:54:51
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com


Pascal
Le #4602571
La même chose existe t'elle pour Monsieur Jean Dupont et répartir sur Titre
nom prénom
Merci
"JB"
Bonjour,

Function CodePostal(chaine)
temp = ""
p = Len(chaine)
Do While Not IsNumeric(Mid(chaine, p, 1)) And p > 1
p = p - 1
Loop
Do While IsNumeric(Mid(chaine, p, 1)) And p > 1
temp = Mid(chaine, p, 1) & temp
p = p - 1
Loop
CodePostal = temp
End Function

Function Ville(chaine)
p = Len(chaine)
Do While Not IsNumeric(Mid(chaine, p, 1)) And p > 1
p = p - 1
Loop
Ville = Mid(chaine, p + 2)
End Function

Function Rue(chaine)
temp = ""
p = Len(chaine)
Do While Not IsNumeric(Mid(chaine, p, 1)) And p > 1
p = p - 1
Loop
Do While IsNumeric(Mid(chaine, p, 1)) And p > 1
temp = Mid(chaine, p, 1) & temp
p = p - 1
Loop
Rue = Left(chaine, p)
End Function

http://cjoint.com/?hgjXEjZtAR

JB

On 6 juil, 09:07, "Pascal"
Bonjour de nouveau
en Col A des adresses type 28 rue du grand faubourg 28000 CHARTRES
Je cherche une macro qui me permettrait de repartir cette adresse sur
plusieurs cellules 3 en fait adresse code postal et commune

Merci

---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000754-2, 05/07/2007
Analyse le : 06/07/2007 09:07:23
avast! - copyright (c) 1988-2007 ALWIL Software.http://www.avast.com





---
Antivirus avast! : message Entrant sain.
Base de donnees virale (VPS) : 000754-2, 05/07/2007
Analyse le : 06/07/2007 09:53:53
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com








---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000754-2, 05/07/2007
Analyse le : 06/07/2007 10:25:50
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com


JB
Le #4602451
=GAUCHE(A1;CHERCHE(" ";A1)-1)
=STXT(A1;CHERCHE(" ";A1)+1;999)

http://cjoint.com/?hglJLxkoVB

JB

On 6 juil, 10:25, "Pascal"
La même chose existe t'elle pour Monsieur Jean Dupont et répartir sur Titre
nom prénom
Merci
"JB"





Bonjour,

Function CodePostal(chaine)
temp = ""
p = Len(chaine)
Do While Not IsNumeric(Mid(chaine, p, 1)) And p > 1
p = p - 1
Loop
Do While IsNumeric(Mid(chaine, p, 1)) And p > 1
temp = Mid(chaine, p, 1) & temp
p = p - 1
Loop
CodePostal = temp
End Function

Function Ville(chaine)
p = Len(chaine)
Do While Not IsNumeric(Mid(chaine, p, 1)) And p > 1
p = p - 1
Loop
Ville = Mid(chaine, p + 2)
End Function

Function Rue(chaine)
temp = ""
p = Len(chaine)
Do While Not IsNumeric(Mid(chaine, p, 1)) And p > 1
p = p - 1
Loop
Do While IsNumeric(Mid(chaine, p, 1)) And p > 1
temp = Mid(chaine, p, 1) & temp
p = p - 1
Loop
Rue = Left(chaine, p)
End Function

http://cjoint.com/?hgjXEjZtAR

JB

On 6 juil, 09:07, "Pascal"
Bonjour de nouveau
en Col A des adresses type 28 rue du grand faubourg 28000 CHARTRES
Je cherche une macro qui me permettrait de repartir cette adresse sur
plusieurs cellules 3 en fait adresse code postal et commune

Merci

---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000754-2, 05/07/2007
Analyse le : 06/07/2007 09:07:23
avast! - copyright (c) 1988-2007 ALWIL Software.http://www.avast.com


---
Antivirus avast! : message Entrant sain.
Base de donnees virale (VPS) : 000754-2, 05/07/2007
Analyse le : 06/07/2007 09:53:53
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com


---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000754-2, 05/07/2007
Analyse le : 06/07/2007 10:25:50
avast! - copyright (c) 1988-2007 ALWIL Software.http://www.avast.com- Mas quer le texte des messages précédents -

- Afficher le texte des messages précédents -




Pascal
Le #4602301
MERCI

"JB"
=GAUCHE(A1;CHERCHE(" ";A1)-1)
=STXT(A1;CHERCHE(" ";A1)+1;999)

http://cjoint.com/?hglJLxkoVB

JB

On 6 juil, 10:25, "Pascal"
La même chose existe t'elle pour Monsieur Jean Dupont et répartir sur
Titre
nom prénom
Merci
"JB"





Bonjour,

Function CodePostal(chaine)
temp = ""
p = Len(chaine)
Do While Not IsNumeric(Mid(chaine, p, 1)) And p > 1
p = p - 1
Loop
Do While IsNumeric(Mid(chaine, p, 1)) And p > 1
temp = Mid(chaine, p, 1) & temp
p = p - 1
Loop
CodePostal = temp
End Function

Function Ville(chaine)
p = Len(chaine)
Do While Not IsNumeric(Mid(chaine, p, 1)) And p > 1
p = p - 1
Loop
Ville = Mid(chaine, p + 2)
End Function

Function Rue(chaine)
temp = ""
p = Len(chaine)
Do While Not IsNumeric(Mid(chaine, p, 1)) And p > 1
p = p - 1
Loop
Do While IsNumeric(Mid(chaine, p, 1)) And p > 1
temp = Mid(chaine, p, 1) & temp
p = p - 1
Loop
Rue = Left(chaine, p)
End Function

http://cjoint.com/?hgjXEjZtAR

JB

On 6 juil, 09:07, "Pascal"
Bonjour de nouveau
en Col A des adresses type 28 rue du grand faubourg 28000 CHARTRES
Je cherche une macro qui me permettrait de repartir cette adresse sur
plusieurs cellules 3 en fait adresse code postal et commune

Merci

---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000754-2, 05/07/2007
Analyse le : 06/07/2007 09:07:23
avast! - copyright (c) 1988-2007 ALWIL Software.http://www.avast.com


---
Antivirus avast! : message Entrant sain.
Base de donnees virale (VPS) : 000754-2, 05/07/2007
Analyse le : 06/07/2007 09:53:53
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com


---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000754-2, 05/07/2007
Analyse le : 06/07/2007 10:25:50
avast! - copyright (c) 1988-2007 ALWIL Software.http://www.avast.com-
Masquer le texte des messages précédents -

- Afficher le texte des messages précédents -





---
Antivirus avast! : message Entrant sain.
Base de donnees virale (VPS) : 000754-2, 05/07/2007
Analyse le : 06/07/2007 13:25:11
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com






---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000754-2, 05/07/2007
Analyse le : 06/07/2007 13:27:39
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com



Publicité
Poster une réponse
Anonyme