Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

XL 2010 dissocier nom et prenom

  • Initiateur de la discussion Initiateur de la discussion ppraud
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

ppraud

XLDnaute Nouveau
Bonsoir,

je pense que c'est une question classique mais comment faire pour dissocier nom et prenom inscrit dans une même cellule en en sachant que le nom est inscit en majuscule et le prénom en minuscule.
merci de votre aide
 
Bonsoir Ppraud

Un solution ici :

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
 
Dernière édition:

merci .
Votre solution ne fonctionne pâs acec les noms composés.
 
Bonsoir @ppraud @Phil69970

Juste un question :
en sachant que le nom est inscit en majuscule et le prénom en minuscule.

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
 
bonsoir ppraud bonsoir phil69970 bonsoir thierry
des fonctions en direct du site de boisgontier
VB:
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



ce qui donne

Nom+prénomNomPrénomCivilité
Mme MARTIN Marie-NoëlleMARTINMarie-NoëlleMme
Paul ÔMARÔMARPaul
M. DUPONT DE NEMOURS Jean-PierreDUPONT DE NEMOURSJean-PierreM.
Mle Jeanne DUPONT LAJOIEDUPONT LAJOIEJeanneMle
L'HERMITTE PierreL'HERMITTEPierre
Mme Jeanne L'HERMITTEL'HERMITTEJeanneMme

cordialement
galougalou
 

Pièces jointes



c'est le 3eme cas
ZARATHOUSTRA Thierry.

en cas de nom composé
nom AINSI-PARLAIT-ZARATHOUSTRA
prénom Jean-Bertrand
merci
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
22
Affichages
658
Réponses
1
Affichages
180
  • Question Question
Réponses
5
Affichages
165
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…