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

chaelie2015 · 14 Avril 2022

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 · 14 Avril 2022

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

VB:

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

sylvanu · 14 Avril 2022

Bonjour Chaelie,
Peut être avec une fonction perso :

VB:

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 · 14 Avril 2022

Bonjour à tous

Juste en complément de la fonction de Sylvain

sylvanu à dit:

VB:

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

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

Je rajouterais une ligne

VB:

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 · 14 Avril 2022

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

VB:

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 · 14 Avril 2022

Bonjour chaelie2015, sylvanu, Phil69970,

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

Code:

=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 · 15 Avril 2022

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

job75 · 15 Avril 2022

Bonjour chaelie2015, le fil,

chaelie2015 à dit:
@ 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+

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

chaelie2015

XLDnaute Accro

sylvanu

sylvanu

XLDnaute Barbatruc

Pièces jointes

Phil69970

XLDnaute Barbatruc

sylvanu

XLDnaute Barbatruc

job75

XLDnaute Barbatruc

Pièces jointes

chaelie2015

XLDnaute Accro

job75

XLDnaute Barbatruc

Pièces jointes

Discussions similaires

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

XLDnaute Accro

XLDnaute Barbatruc

Pièces jointes

XLDnaute Barbatruc

​

XLDnaute Barbatruc

XLDnaute Barbatruc

Pièces jointes

XLDnaute Accro

XLDnaute Barbatruc

Pièces jointes

Discussions similaires