Bonsoir Papy2956, Jean-Eric,
Salut James007,
Pour compléter le tableau et toujours "Plus aucun effort à fournir ... "
2 Fonctions personnalisés dont j'ai oublié l'auteur
mais tout droit sorti de mes archives.
Option Explicit
Function Prénom(ATrouver As String) As String
With CreateObject("vbscript.regexp")
.Global = True
.Pattern = "([A-Z][a-zàâéèëêïîöôüûy]+-* *)+"
If .test(ATrouver) Then
Prénom = .Execute(ATrouver)(0)
End If
End With
End Function
Function Nom(ATrouver As String) As String
With CreateObject("vbscript.regexp")
.Global = True
.Pattern = "([A-Z]{2,}-* *)+"
If .test(ATrouver) Then
Nom = .Execute(ATrouver)(0)
End If
End With
End Function
L'avantage c'est que cela fonctionne dans les 2 sens " Nom & Prénom " où " Prénom & Nom "
Fichier joint:
Cordialement.