extraire initiale phrase longueur variable

[munity]

bonjour le phorum

y a t il une manière simple (vba ou formules) pour extraire les initiales d'une phrase de longueur pouvant être variables
phrase de 3,4, 6 ou même 1 mot
j'ai tenté avec les fonctions gauche et droite et stxt
mais cela manque de souplesse en cas de longueur de phrase non prévue.

merci d'avance de proposition

munity

 

[porcinet82]

Re : extraire initiale phrase longueur variable

Salut,

Un petit essai en pièce jointe qui pourra peut etre t'inspirer.

@+

 

[munity]

Re : extraire initiale phrase longueur variable

c exactement cela
merci porcinet
par contre comment faire pour coller toutes les informations dans une seule cellule
fonction concatener les valeurs mais mon problème avec les boucles c l'enchainement des instructions
merci encore

munity

 

[Hervé]

Re : extraire initiale phrase longueur variable

bonjour

je m'autorise à répondre à la place de romain (ce qui me permet de le saluer 🙂)

un autre code qui concatene en meme temps.

Public Sub toto()
Dim t As String
Dim i As Byte

For i = 0 To UBound(Split(Range("a1"), " "))
    t = t & Left(Split(Range("a1"), " ")(i), 1)
Next i

Range("b1") = t
    
End Sub

donnée en A1, renvoi en B1

salut

 

[munity]

Re : extraire initiale phrase longueur variable

salut Hervé

merci à tous les 2
j'étais complétement à l'ouest de cette solution
je cherché sur un copier coller transposé puis sur une concatenation des valeurs dans la plage définié
enfin
une usine à gaz qui aurait pris plus de lignes que nécessaire

encore merci à tous les deux

munity