Créer des initiales à partir des noms avec Excel VBA

La fonction suivante vous donne automatiquement les initiales de votre nom.

Function InitialesNoms(chainecarac As String) As String
Dim Compter As Integer
Application.Volatile
chainecarac = " " & Application.Trim(chainecarac)
For Compter = 2 To Len(chainecarac)
If Mid(chainecarac, Compter – 1, 1) = " " Then _
InitialesNoms = InitialesNoms & Mid(chainecarac, Compter, 1)
Next Compter
End Function

 

Commentaires:
 La fonction attend soit une référence de cellule dans le tableau, c’est-à-dire un appel avec = INITIALESNOMS (A2), soit un nom direct = INITIALESNOMS (»ELIE CHANCELIN«). Dans les deux cas, les premières lettres des noms sont évaluées et rassemblées.

S’abonner
Notifier de
0 Commentaires
Inline Feedbacks
Voir tous les commentaires

Initiation à Excel

Fonctions Excel

Excel VBA

Macros VBA Utiles

Plus d'outils

Sur Facebook

Sur YouTube

0
Nous aimerions avoir votre avis, veuillez laisser un commentaire.x
()
x