XL 2010 Recuperer Le nom et la premiere lettre du prénom en VBA

creolia

XLDnaute Impliqué
bonjour à tous j’espère vos fêtes se prépare bien


voilou j'ai un petit problème je souhaiterais savoir si c'est possible par une macro de récupéré dans une cellule le Nom entier et la première lettre du prénom à savoir que le nom prénom sont séparé par un espace même quand elle sont composé

exemple:

Faustin jean patrice donnerais Faustin jp
Dupont sebastin donnerais Dupont s

et cela pas par formule mais avec une macro pouvez vous m'aider svp merci
 

Chris24

XLDnaute Impliqué
Bonjour,

Adaptation d'une fonction que j'avais trouvé ici

Function MAJ_Min(S)
Dim Nom, Prenom, Prenom2
On Error Resume Next
Nom = UCase(Split(S)(0))
Prenom = Left(Application.Proper(Split(S, " ", -1)(1)), 1)
Prenom2 = Left(Application.Proper(Split(S, " ", -1)(2)), 1)
MAJ_Min = Nom & " " & Prenom & Prenom2
End Function

Bonne journée
 

Discussions similaires

Statistiques des forums

Discussions
311 724
Messages
2 081 937
Membres
101 844
dernier inscrit
pktla