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

[creolia]

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]

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

 

[creolia]

bonjour christ je doit etre vraiment nul car je comprend pas du tout ou je met cette macro poutant j'en ai utilisé pas mal mais il me demande end sub

 

[creolia]

fichier essais

 

[Chris24]

En retour un exemple d'utilisation

Cdt

 

[creolia]

Bonjour cher Christ parfait merci j'ai compris le principe et j'ai put l'adapter bonne journée