'lut all,
j'en ai marre, ca fait deux heures que je cherche dans l'aide d'Access 2000 pour trouver des fcts qui pourraient m'aider à sortir les initiales d'une chaîne...
 
plusieurs pistes je pense :

.....voici les pistes :-) :
 
- prendre la premiere lettre de la chaine lorsque l'on a reconnu un espace apres avoir viré l'espace / si c pas un espace, virer le caractère et passer au suivant
 
- se placer tout de suite au premier espace et prendre le caractere suivant puis idem sur le reste de la chaine
 
seulement je n'arrive ni à me déplacer dans la chaine, ni à controler les espaces!!!
 
j'en ai marre...
 
HELPPPPPP      

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