Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel ADRESSE

ADRESSE

5 réponses
Avatar
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
Signaler un problème avec ce contenu

5 réponses

Supprimer
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
Avatar
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" wrote:
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


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


"JB" a écrit dans le message de news:

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" wrote:
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


Avatar
Pascal
La même chose existe t'elle pour Monsieur Jean Dupont et répartir sur Titre
nom prénom
Merci
"JB" a écrit dans le message de news:

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" wrote:
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


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

http://cjoint.com/?hglJLxkoVB

JB

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






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" wrote:
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 -




Avatar
Pascal
MERCI

"JB" a écrit dans le message de news:

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

http://cjoint.com/?hglJLxkoVB

JB

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






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" wrote:
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