=GAUCHE(A1;TROUVE(" ";A1)-1)
=STXT(A1;TROUVE(" ";A1)+1;NBCAR(A1)-TROUVE(" ";A1))
=SI(ESTNUM(TROUVE(" ";A1));GAUCHE(A1;TROUVE(" ";A1)-1);"")
=SI(ESTNUM(TROUVE(" ";A1));STXT(A1;TROUVE(" ";A1)+1;99);"")
=GAUCHE(A1;TROUVE(" ";A1&" ")-1)
=STXT(A1;TROUVE(" ";A1&" ")+1;9^9)
Function Nom$(txt$)
Dim i%, deb%
txt = Application.Trim(txt) 'supprime TOUS les espaces inutiles
For i = 1 To Len(txt)
deb = i
If Mid(txt, i, 3) = UCase(Mid(txt, i, 3)) Then Exit For
Next
For i = deb To Len(txt)
If Mid(txt, i, 3) <> UCase(Mid(txt, i, 3)) Then Exit For
Next
If deb = i Then Exit Function 'nécessaire si pas de nom
Nom = Trim(Mid(txt, deb, i - 1))
End Function
Function Prénom$(txt$)
txt = Application.Trim(txt)
Prénom = Trim(Replace(txt, Nom(txt), ""))
End Function
=STXT(A1;1;MAX((EXACT(MAJUSCULE(STXT(A1;LIGNE(INDIRECT("1:"&NBCAR(A1)));1));
STXT(A1;LIGNE(INDIRECT("1:"&NBCAR(A1)));1))*1=0)*LIGNE(INDIRECT("1:"&NBCAR(A1)))))
=STXT(A1;MAX((EXACT(MAJUSCULE(STXT(A1;LIGNE(INDIRECT("1:"&NBCAR(A1)));1));
STXT(A1;LIGNE(INDIRECT("1:"&NBCAR(A1)));1))*1=0)*LIGNE(INDIRECT("1:"&NBCAR(A1))))+2;9^9)