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.