Extraction de la première lettre de chacun des mots d'une cellule

  • Initiateur de la discussion Initiateur de la discussion joel8301
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

joel8301

XLDnaute Nouveau
Bonjour,

Je recherche une formule pour extraire la première lettre des mots qui sont situés dans une cellule unique.
Par exemple pour Electricité de France je voudrais extraire EDF.

La formule doit pouvoir supporter 10 mots, pour exemple :
Un Deux Trois Quatre Cinq Six Sept Huit Neuf Dix
= UDTQCSSHND

Merci par avance pour votre aide.

Joël
 
Re : Extraction de la première lettre de chacun des mots d'une cellule

Bonjour joel8301,

Par formule c'est possible mais celle-ci sera longue et compliquée.

Tandis qu'avec cette fonction VBA c'est vraiment enfantin :

Code:
Function ConcatIniMot(t As String) As String
Dim i As Integer
t = " " & Application.Trim(Replace(t, "-", " ")) 'SUPPRESPACE
For i = 1 To Len(t)
  If Mid(t, i, 1) = " " Then ConcatIniMot = ConcatIniMot & Mid(t, i + 1, 1)
Next
End Function
Fichier joint, sur Excel 2007 enregistrez-le en .xlsm.

A+
 

Pièces jointes

Re : Extraction de la première lettre de chacun des mots d'une cellule

Bonjour Job75,

Je te remercie pour ta réponse mais je ne connais pas le VBA et je ne sais pas comment insérer une fonction VBA dans Excel.

Pourrais-tu stp m'expliquer ?

Quel est la différence entre les formules et le VBA ?

Merci par avance pour ton aide. ;-)

Joël
 
Re : Extraction de la première lettre de chacun des mots d'une cellule

Re,

Touches Alt+F11 pour aller dans VBA, puis menu Insertion => Module, puis coller le code que j'ai donné dans ce module.

Regardez le fichier que j'ai joint : le code est dans Module1.

Et dans la feuille de calcul la fonction ConcatIniMot est utilisée dans la cellule B2.

A+
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Retour