 |
||
| ||
| |||||
| Dernière réponse | |
|---|---|
| Sujet : Visual Basic - Récupérer les initiales d'un String | |
| ghiscool | en fait j'ai pu le faire. Voilà la solution si ca intéresse qqn :
Function intiales(tex As String) Dim renvoi As String Dim trouve As Boolean trouve = False renvoi = Left(tex, 1) 'premiere lettre tex = Right(tex, Len(tex) - 1) 'reste For i = 1 To Len(tex) lettre = Left(tex, 1) If trouve = True Then trouve = False renvoi = renvoi + lettre End If If (lettre = " " ) Then trouve = True End If tex = Right(tex, Len(tex) - 1) 'reste Next initiales = renvoi End Function |
| Vue Rapide de la discussion |
|---|
