XL 2010 récupération NOM et prénomS

[gerd]

Bonjour à vous,
Etant adhérent d'une association de généalogie j'ai récupéré des fichiers (plusieurs dizaines) qui ont dans une seule colonne le nom de la personne suivi de ses prénoms (2, 3 ou 4 prénoms déclarés à l'état civil).
si je pense avoir avoir compris comment récupérer le nom, en revanche comment récupérer les prénoms?

quelles fonctions faut-il faire pour récupérer cela en 2 colonnes, une pour le nom une pour les prénoms?
exemple : BOURRELIER Jeanne Louise Marie

Merci de votre aide
GB

 

[JHA]

Bonjour à tous,

Un début de piste avec dans le ruban, onglet Données/convertir

JHA

 

[M12]

Bonjour,
Bonjour JHA
Avec deux fonctions personnalisées Nom() et Prénom() (cf BOISGONTIER)

 

[GALOUGALOU]

bonjour gerd bonjour jha bonjour le fil

cela doit etre possible avec les trois fonctions personnalisées suivantes

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

cordialement
galougalou