Discussion :

[kedmard]

Bonjour voici mon problème,
je souhaite concaténer une série de chaîne de caractères,je veux par exemple que
Agence="Agence d'Ile de France" devienne Agence="AIF"
Agence de Shangai => AS
Agence d'Afrique du Sud => AAS
Agence de Louis le Vrai l'Elégant =>ALVE

je souhaite donc concaténer que les lettres en majuscules.

Quelqu'un aurait-il une idée?

Merci d'avance.

[Invité]

Bonjour

Une petite fonction à mettre dans un module :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Public Function RecupMajuscule(strChaine As String) As String
    ' déclaration
    Dim i As Integer
 
    ' parcours des lettres de la chaine il s'agit des codes 65 à 90 pour les majuscules
 
    For i = 1 To Len(strChaine)
        If Asc(Mid(strChaine, i, 1)) >= 65 And Asc(Mid(strChaine, i, 1)) <= 90 Then
            RecupMajuscule = RecupMajuscule & Mid(strChaine, i, 1)
        End If
    Next i
 
 
End Function

Ensuite tu utilises cette fonction dans une requête, comme n'importe quelle fonction en passant ton champ en paramètre.

Philippe

[kedmard]

Bonjour Philippe,

Merci pour ton code qui marche très bien.

Kedmard