Discussion :

[MichelBazas]

Bonjour,

Je viens de rechercher dans les FAQ et sur le net pour trouver un moyen de récupérer les initiales de chaque mot contenus dans un champ sans succès.
J'ai un champ avec le nom des prospects dont tous ont un nom composé de plusieurs mots exemple : "Les petites maisons de Charcot" je voudrais trouver un moyen de créer un champ dans un formulaire avec seulement les initiales soit LPMDC.

Je vous remercie d'avance pour votre aide

Michel

[micniv]

Bonjour,
Utilise la fonction Split pour isoler les mots

dans une fonction comme :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
 
 
Public Function Initiales(s1 As String) As String
    Dim arrStr As Variant, s2 As String, i As Integer
    s2 = ""
    arrStr = Split(s1, " ")
    For i = 0 To UBound(arrStr)
        s2 = s2 & Left(arrStr(i), 1)
    Next i
    Initiales =ucase( s2)  ' en majuscules
End Function

que tu peux tester par :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Sub testInitiales()
    Debug.Print Initiales("Les petites maisons de Charcot")
End Sub

[MichelBazas]

Merci beaucoup Micniv,
Je teste dans la soirée et te tiens au courant.
Michel

Je suis vraiment débutant, j'ai bien mis la fonction dans un module, mais sur mon formulaire je n'arrive pas à afficher le résultat....... en fait je veux récupérer le nom dans un champ indépendant du formulaire [Mod_Association]. Tu m'as dit de tester mais je ne sais pas comment faire.

merci pour ton aide

[micniv]

testons le dans un champ indépendant du formulaire , nommé txtIndep1, par ex.

dans l’évènement me.form_Current du formulaire, saisis la ligne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

 me.txtIndep1 = Initiales("Les petites maisons de Charcot")

puis ouvre le formulaire en mode affichage
Vois-tu ta valeur et comment ça fonctionne ?

[MichelBazas]

Merci ça y est j'ai compris.

Excuse moi d'avoir le cerveau lent.....

Encore merci pour ton aide

Michel