Voici mon petit souci : je souhaiterai extraire les initiales d'un nom composé qui se trouve dans la cellule A1 en A2.
Par exemple en A1 : Pierre-Henri. Je souhaiterai en A2 : PH
Quelqu'un aurait une formule pour ce type de demande ?
Je corse un peu l'affaire suite à la super formule de Jocelyn.
Si en A1 le prénom n'est pas composé alors la formule en A2 me donne un message d'erreur #Valeur!, comment faire pour que l'initiale du prénom unique s'affiche en A2, tout en gardant l'option du double prénom. Je m'explique :
Si en A1 j'ai Bertrand en A2 il devra y avoir B, mais si en A1 j'ai Pierre-Henry en A2 il faudrait PH.
Function Majusc(chaine)
Set obj = CreateObject("vbscript.regexp")
obj.Global = True
obj.Pattern = "[A-Z/ ]+"
Set a = obj.Execute(chaine)
For i = 0 To a.Count - 1: tmp = tmp & a(i): Next
Majusc = Replace(tmp, "/", " ")
End Function