Séparer nom prenom de "nom prenom"

jonpol

XLDnaute Nouveau
Bonjour

Dans une colonne j'ai nom prenom du type : DELON Alain (colonne A)
je voudrais une formule ou une macro permettant en colonne B: DELON et en colonne C: Alain

MAis cela pose le problème des noms composés :
Ex DE SCHRIVER Jean-Christophe ; Ben HAddi Miloud ..



merci
Jon Pol
 

BOISGONTIER

XLDnaute Barbatruc
Repose en paix
Re : Séparer nom prenom de "nom prenom"

Bonjour,

Si les noms sont en majuscules:

Code:
Function PreNom(chaine)
   i = 1
   Do While Asc(Mid(chaine, i, 1)) < 96 And i < Len(chaine)
      i = i + 1
   Loop
   PreNom = Mid(chaine, i - 1)
End Function

Function Nom(chaine)
   i = 1
   Do While Asc(Mid(chaine, i, 1)) < 96 And i < Len(chaine)
      i = i + 1
   Loop
   Nom = Left(chaine, i - 3)
End Function

JB
 

Pièces jointes

  • Classeur1.xls
    26 KB · Affichages: 259
  • Classeur1.xls
    26 KB · Affichages: 254
  • Classeur1.xls
    26 KB · Affichages: 259
Dernière édition:

jonpol

XLDnaute Nouveau
Re : Séparer nom prenom de "nom prenom"

bonjour

Ca ne marche pas à tous les coups :

voici les erreurs trouvées

DE SCHRIVER Jean-Christophe DE SCHRIVER Jean-Christophe
DELON Alain Maxime DELON Alain Maxime
Delon Michel #VALEUR! Delon Michel
delon antoine #VALEUR! #VALEUR!
DELOIN ALAIN DELOIN AL IN

merci
JonPol
 

Tibo

XLDnaute Barbatruc
Re : Séparer nom prenom de "nom prenom"

Bonjour,

Dans les 3 derniers exemples que tu donnes et qui retournent une erreur, je ne vois pas comment Excel pourrait isoler le prénom du nom.

Il faut qu'une telle liste soit complétée avec un minimum de rigueur : exemple les noms en Majuscules et les prénoms initiale en majuscule et le reste en minuscule.

Il ne reste à mon avis qu'à espérer que la plupart des noms et prénoms soient saisis correctement. Il ne resterait alors que quelques cas à corriger manuellement pour que la formule (ou la macro) donne le bon résultat.

@+
 

jonpol

XLDnaute Nouveau
Re : Séparer nom prenom de "nom prenom"

bonjour

En fait les noms et prenoms de ma liste étaient en majuscule.
j'ai utilisé la fonction de donnés/convertir et le reste à été fait manuellement :)
il y avait 50 cas/1200.

merci
JonPol
 

Discussions similaires

  • Question
Microsoft 365 Nom et prénom
Réponses
3
Affichages
293

Statistiques des forums

Discussions
312 229
Messages
2 086 423
Membres
103 206
dernier inscrit
diambote