Bonjour,
J'utilise le code trouvé dans la FAQ afin de mettre la 1ère lettre de tous les mots d'une textebox en majuscule.
Je souhaiterai par contre que certains mots reste avec la première lettre en minusucle.
Comment gérer ces exceptions ?
Voici mon code:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19 Option Compare Database Function MiseEnMajuscule(Chaine As String) As String Dim nCar As Integer 'Compteur (position dans la chaine à traiter) Chaine = Trim$(Chaine) 'Récupère la chaîne sans les espaces facultatifs 'Traitement spécifique sur le premier caractère MiseEnMajuscule = UCase$(Left(Chaine, 1)) 'Début de la boucle sur les autres caractères For nCar = 2 To Len(Chaine) 'Teste le caractère précédent (" " ou "-") If (Mid$(Chaine, nCar - 1, 1) = " ") Or (Mid$(Chaine, nCar - 1, 1) = "-") Then 'Si c'est vrai, mettre en majuscule le caractère courant MiseEnMajuscule = MiseEnMajuscule & UCase$(Mid(Chaine, nCar, 1)) Else 'Si c'est faux, mettre en minuscule le caractère courant MiseEnMajuscule = MiseEnMajuscule & LCase$(Mid(Chaine, nCar, 1)) End If 'Fin de la boucle sur les caractères Next End Function
Partager