Autres (RESOLU)Restituer la première lettre de chaque mot dans une chaine(Formule)

[chaelie2015]

Bonjour FORUM
Je souhaite afficher la premier lettre d'un mot, c'est fait par la formule =STXT(A2;1;1)
mais si j'ai une chaine des mots, je souhaite afficher toutes les premières lettres des mots :
Exemple
Dans la cellule A1 : "Créer une discussion" ==>dans B1=CUD
MERCI

 

[sylvanu]

Bonjour Chaelie,
Peut être avec une fonction perso :

Function PremLettres(C$)
    Dim T, i%
    T = VBA.Split(C, " "): PremLettres = ""
    For i = LBound(T) To UBound(T)
        PremLettres = PremLettres & Left(T(i), 1)
    Next i
End Function

 

[Phil69970]

Bonjour à tous

Juste en complément de la fonction de Sylvain

Function PremLettres(C$)
     Dim T, i%
     T = VBA.Split(C, " "): PremLettres = ""
     For i = LBound(T) To UBound(T)
           PremLettres = PremLettres & Left(T(i), 1)
     Next i
End Function

​

Et vu que Chaelie à mis son exemple en majuscule

Exemple
Dans la cellule A1 : "Créer une discussion" ==>dans B1=CUD

Je rajouterais une ligne

Function PremLettres(C$)
    Dim T, i%
    T = VBA.Split(C, " "): PremLettres = ""
    For i = LBound(T) To UBound(T)
        PremLettres = PremLettres & Left(T(i), 1)
        PremLettres = UCase(PremLettres)
    Next i
End Function

Mais je chipotes 😉

@Phil69970

 

[sylvanu]

Bonjour Phil,
Dans ce cas , autant optimisé et ne faire le UCase une seule fois :

Function PremLettres(C$)
    Dim T, i%
    T = VBA.Split(C, " "): PremLettres = ""
    For i = LBound(T) To UBound(T)
        PremLettres = PremLettres & Left(T(i), 1)
    Next i
    PremLettres = UCase(PremLettres)
End Function

Mais là aussi, je chipotes 😂

 

[job75]

Bonjour chaelie2015, sylvanu, Phil69970,

A partir d'Excel 2016 il existe la fonction JOINDRE.TEXTE, formule matricielle en B2 :

=JOINDRE.TEXTE("";VRAI;MAJUSCULE(STXT(A2;SI(STXT(" "&A2;LIGNE(INDIRECT("1:"&NBCAR(A2)+1));1)=" ";LIGNE(INDIRECT("1:"&NBCAR(A2)+1));9^9);1)))

A+

 

[chaelie2015]

Bonjour sylvanu, Phil69970 et JOB
merci pour les réponses
@ JOB : malheureusement j'ai pas Excel 2016, j'ai souhaite une formule.
a+

 

[job75]

Bonjour chaelie2015, le fil,

@ JOB : malheureusement j'ai pas Excel 2016, j'ai souhaite une formule.

Si vous souhaitez une formule il faut concaténer un nombre limité de caractères.

Voyez ce fichier (2) et les noms définis qui déterminent les positions des espaces.

A+