Extraction d'initiales

[Moi69]

Bonsoir à Tous,

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 ?

Merci d'avance

Moi

 

[Jocelyn]

Re : Extraction d'initiales

Bonjour le Forum,
Bonjour moi69

A tester en A2

=GAUCHE(A1)&STXT(A1;CHERCHE("-";A1)+1;1)

Cordialement

 

[Moi69]

Re : Extraction d'initiales

Merci Jocelyn

ça marche super bien

 

[Moi69]

Re : Extraction d'initiales

Re bonjour A tous,

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.

Merci pour vos retours

Moi69

 

[Jocelyn]

Re : Extraction d'initiales

re,

une modification de la formule pour prendre en compte les prénoms non compsés

=GAUCHE(A2)&SI(ESTNUM(CHERCHE("-";A2));STXT(A2;CHERCHE("-";A2)+1;1);"")

Cordialement

 

[gilbert_RGI]

Re : Extraction d'initiales

Bonjour,

tester cette fonction

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

 

[Moi69]

Re : Extraction d'initiales

Toujours aussi efficace. Un grand merci, ça m'a oté une bonne épine du pied.

 

[Moi69]

Re : Extraction d'initiales

Merci Gilbert_RGI.
Ne maîtrisant pas le VBA, je ne doute pas que ton code fonctionne mais je ne peux le tester.

Merci