Table des matières
Créer des acronymes à partir de chaînes de texte
La fonction suivante évalue les acronymes à partir de chaînes, c'est-à-dire qu'elle concatène la première lettre de chaque mot d'une chaîne. Par exemple, « les arbres sont verts » devient « TAG ».
La routine parcourt chaque caractère d'une chaîne et s'il s'agit d'un espace, elle prend le caractère suivant de la chaîne. Avant d'évaluer la chaîne, il supprime tous les espaces de fin et en double.
Fonction Acroymn (Original_String As String) As String Dim Trimmed_String As String Dim Length As Integer Dim Pos As Integer Trimmed_String = Application.WorksheetFunction.Trim(Original_String) 'calculer la longueur de la chaîne Length = Len(Trimmed_String) Acroymn = UCase(Left (Trimmed_String, 1)) For Pos = 2 To Length - 1 If (Mid(Trimmed_String, Pos, 1) = " ") Then Acroymn = Acroymn & UCase(Mid(Trimmed_String, Pos + 1, 1)) End If Next Pos Fonction de fin
Alors par exemple :
Acroymn (« British Broadcasting Corporation ») donne à la BBC
Acroymn ("Funky") donne F
Acroymn ("") donne NULL
Pour télécharger le fichier .XLSM de l'article, cliquez ici
