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

gerd · 29 Juillet 2021

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 · 29 Juillet 2021

Bonjour à tous,

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

JHA

M12 · 29 Juillet 2021

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

GALOUGALOU · 29 Juillet 2021

bonjour gerd bonjour jha bonjour le fil

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

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

cordialement
galougalou

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

gerd

XLDnaute Nouveau

JHA

XLDnaute Barbatruc

M12

XLDnaute Accro

Pièces jointes

GALOUGALOU

XLDnaute Accro

Pièces jointes

Discussions similaires