Bonsoir Ppraud
Un solution ici :
Dissocier Nom Prénom dans une même cellule en deux cellules
Bonjour, Je cherche à dissocier le contenu d'une cellule A1 qui contient Nom Prénom en deux cellules B1 Nom C1 Prénom. Quelqu'un sait-il comment faire, car les fonctions =gauche() et =droite() doivent considérer le nombre de caractères alors que la taille du nom et du prénom...www.excel-downloads.com
Si Nom prénom est en A1 :
En B1, pour le nom, inscrire : =GAUCHE(A1;CHERCHE(" ";A1)-1)
En C1, pour le prénom, inscrire : =DROITE(A1;NBCAR(A1)-CHERCHE(" ";A1))
Cordialement
en sachant que le nom est inscit en majuscule et le prénom en minuscule.
Function Nom(c)
Application.Volatile
Set obj = CreateObject("vbscript.regexp")
obj.Pattern = "([A-Z'ÔË]{2,}\s*-?)+"
Set a = obj.Execute(c)
If a.Count > 0 Then Nom = a(0) Else Nom = ""
End Function
Function Prénom(c)
Application.Volatile
Set obj = CreateObject("vbscript.regexp")
c = Replace(Replace(Replace(c, "M.", ""), "Mme", ""), "Mle", "")
obj.Pattern = "([A-Z][a-zëéèô]+\s*-?)+"
Set a = obj.Execute(c)
If a.Count > 0 Then Prénom = a(0) Else Prénom = ""
End Function
Function civilité(c)
Application.Volatile
Set obj = CreateObject("vbscript.regexp")
obj.Pattern = "(Mme|M\.|Mle)\s"
Set a = obj.Execute(c)
If a.Count > 0 Then civilité = a(0) Else civilité = ""
End Function
Nom+prénom | Nom | Prénom | Civilité |
Mme MARTIN Marie-Noëlle | MARTIN | Marie-Noëlle | Mme |
Paul ÔMAR | ÔMAR | Paul | |
M. DUPONT DE NEMOURS Jean-Pierre | DUPONT DE NEMOURS | Jean-Pierre | M. |
Mle Jeanne DUPONT LAJOIE | DUPONT LAJOIE | Jeanne | Mle |
L'HERMITTE Pierre | L'HERMITTE | Pierre | |
Mme Jeanne L'HERMITTE | L'HERMITTE | Jeanne | Mme |
Bonsoir @ppraud @Phil69970
Juste un question :
Donc admettons que mon nom soit Zarathoustra, dans vos cellules je ressortirai comment ?
Thierry ZARATHOUSTRA
ZARATHOUSTRA thierry
ou encore
ZARATHOUSTRA Thierry ?
ou bien encore complétement aléatoirement (Prénom NOM, NOM Prenom)
Et si par par exemple en noms composé je deviens AINSI-PARLAIT-ZARATHOUSTRA Jean-Bernard, ce sera écrit comment ?
Bonne soirée
@+Thierry