XL 2019 Enlever des espaces et séparer des NOM Prénom

[cyrikou]

Bonjour,
j'ai un soucis sur un gros fichier avec beaucoup de données.
Les utilisateurs ont utilisés des espaces pour séparer des NOM Prenom et en ont mis 3 ou 4 par cellule.

J'aimerais supprimer les espaces (facile avec Remplacer) mais par la suite séparer les noms et les prénoms mis à la suite.
Franchement je bloque, j'ai essayé des macros, etc...

Merci pour votre aide

 

[mapomme]

Bonsoir cyrikou,
Comme exemple, c'est minimalisme !
Il en faut plus que vous ne pas revenir X fois dessus.
Par exemple des valeurs du type"Benoit Jean de la Tour Jean François Dupont" : Que Fait-on ?
Les noms sont ils toujours en majuscule et les prénoms en minuscule.
Bref donnez nous du grain à moudre...

 

[cyrikou]

Et bien c'est là ma problématique. C'est comment mettre cela en NOM1 Prenom1 NOM2 Prenom2 en colonnes ou bien séparés par des virgules.

 

[mapomme]

Re,

Vous ne répondez pas aux questions ? Notamment celle des majuscules et minuscules.

 

[_Thierry]

Bonsoir @cyrikou , @mapomme

La plupart du temps en cherchant un tant soit peu on a la solution....
Pas plus tard qu'avant hier sur XLD :

https://www.excel-downloads.com/threads/dissocier-nom-et-prenom.20046428/#post-20341349

Bonne soirée
@+Thierry

PS Pour maPomme , ne traite pas : "Benoit Jean de la Tour Jean François Dupont"...
Mais je ne l'ai pas encore rencontré ce type là !

 

[mapomme]

Bonsoir @_Thierry

Pour l'instant, on ne sait pas si c'est le même cas puisque l'auteur n'a pas répondu...
Et moi avec un seul exemple, je ne sais pas généraliser...

 

[_Thierry]

ma problématique. C'est comment mettre cela en NOM1 Prenom1 NOM2 Prenom2

Ben disons que ca commence être un élement de réponse...

Sauf si juste après il y a ensuite : nom3 PRENOM3 LoL

@+Thierry

 

[_Thierry]

Pour le prog de notre ami Boisgontier
Il "encaisse" en l'état comme ceci :

Bonne soirée
@+Thierry

 

[sylvanu]

Bonjour MaPomme, Thierry, Cyrikou,
Ça me rappelle un post qui fut interminable et n'a jamais trouvé de solution parfaite. Par ex :
Jean Charles de la Heunaudière
Valery Giscard d'Estaing
Pierre Jean
Jean Pierre
Il y a des noms qui sont des prénoms, comme pour votre humble serviteur.
C'est totalement inextricable si certaines règles ne sont pas fixées et respectées ( Majuscules par ex )

 

[cyrikou]

Bonsoir,
A priori le post cité répond à ma question.
Là je ne peux tester.
Je vais le faire dès que je peux et vous donner un retour.
Merci pour les réponses.

 

[mapomme]

Re-bonsoir à tous,

Avec une fonction personnalisée : NomPrenom(x) où x est la cellule avec le texte à décomposer.

Le code :

Function NomPrenom(x) As String
Dim s, i, indiv

   s = Split(Application.Trim(x)): i = 0
   Do
      If estNom(s(i)) Then
         indiv = indiv & ";" & s(i)
         i = i + 1
         If i > UBound(s) Then Exit Do
         Do While estNom(s(i))
            indiv = indiv & " " & s(i)
            i = i + 1
            If i > UBound(s) Then Exit Do
         Loop
         Do While estPrenom(s(i))
            indiv = indiv & " " & s(i)
            i = i + 1
            If i > UBound(s) Then Exit Do
         Loop
         If i > UBound(s) Then Exit Do
         indiv = indiv & " "
      Else
         indiv = indiv & ";" & s(i)
         i = i + 1
         If i > UBound(s) Then Exit Do
         Do While estPrenom(s(i))
            indiv = indiv & " " & s(i)
            i = i + 1
            If i > UBound(s) Then Exit Do
         Loop
         Do While estNom(s(i))
            indiv = indiv & " " & s(i)
            i = i + 1
            If i > UBound(s) Then Exit Do
         Loop
         If i > UBound(s) Then Exit Do
         indiv = indiv & " "
      End If
   Loop
   indiv = Application.Trim(indiv)
   If Len(indiv) > 0 Then indiv = Mid(indiv, 2)
   NomPrenom = Replace(indiv, " ;", ";")
End Function

 

[dysorthographie]

Bonjour,
Je ne sais pas si c'est utile mais voilà une fonction IsPrenom!

https://www.excel-downloads.com/threads/inverser-nom-et-prenom-si-necessaire.20040733/#post-20291631