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

[joel8301]

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

 

[joel8301]

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

Petite précision, les mots peuvent être séparés soit par un espace (" ") soit par un tiret (-)

 

[job75]

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 :

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+

 

[joel8301]

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

 

[job75]

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+

 

[joel8301]

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

Ca marche sans accroc ... Merci pour ton aide.

Bonne soirée

Joël