Imposer majuscules en VBA

Version imprimable

14/11/2007, 10h20
NEC14

Imposer majuscules en VBA

Bonjour à tous,

Voici ma question. Dans un formulaire 2 zones de texte (TxtLib et TxtVil). Je souhaites que le texte soit mis en majuscule impérativement. Si l'utilisateur saisie en minuscules lors de la validation le texte doit être transformé en majuscules. Est-ce possible ? Comment dois-je procéder ?
Merci par avance
14/11/2007, 10h26
Jean-Philippe André

bonjour,
regarde du côté de la fonction UCASE() (pour les majuscules) et LCASE() (pour les minuscules)
14/11/2007, 10h37
NEC14

Citation:

Envoyé par jpcheck

bonjour,
regarde du côté de la fonction UCASE() (pour les majuscules) et LCASE() (pour les minuscules)

Bonjour,
Ok je regarde par là.
Merci pour ta réponse

J'ai vu, j'ai lu, mais je ne sais pas comment l'appliquer.
Il y a également une fonction VbProperCase qui permet de transformer la 1ère lettre en majuscule. Mais tout cela je ne sais pas l'encoder. J'ai trouvé des idées, lorsque je les applique, mon application crie de partout.
De plus, je souhaite que cela soit complétement transparent pour l'utilisateur.
Il valide, et la convertion se fait.
Merci pour votre aide :oops:

J'ai trouvé. J'ai tapé ceci :
Code:

1 2 3 4 5 6 7 Private Sub TxtLib_AfterUpdate() Me.TxtLib = UCase(TxtLib) End Sub Private Sub TxtVil_AfterUpdate() Me.TxtVil = UCase(TxtVil) End Sub
Par contre comment faire pour que seule la première lettre soit en majuscule ?

14/11/2007, 11h32
Maxence HUBICHE
le vbProperCase n'est pas une fonctin, mais une constante qui permet de déterminer la transformation d'une chaine avec la fonctino strConv. on l'utilise comme ceci :
Code:

1 2 3 4 Private Sub TxtVil_AfterUpdate() Me.TxtVil = strconv(Me.txtVil,vbProperCase) End Sub
14/11/2007, 11h52
NEC14
Citation:
Envoyé par Maxence HUBICHE

le vbProperCase n'est pas une fonctin, mais une constante qui permet de déterminer la transformation d'une chaine avec la fonctino strConv. on l'utilise comme ceci :

Code:

1 2 3 4 Private Sub TxtVil_AfterUpdate() Me.TxtVil = strconv(Me.txtVil,vbProperCase) End Sub
Bonjour,

Super ça marche. Vous êtes tous des champions. Par contre, si j'écris plusieurs mots, par exemple (recherche de gaz), chaque mot prend la première lettre en majuscule. Comment résoudre ce problème ?
Merci par avance

Avec un test sur l'existence de l'espace ou pas ;)

Code:

1
2
3
4
5
6
7
8
9
10
 
Private Sub TxtVil_AfterUpdate()
    Dim lngPos as long
    lngPos=Instr(me.txtvil," ")
    If lngPos <> 0 then
        me.txtVil=strConv(left(me.txtVil,lngPos)) & mid(me.txtVil, lngPos+1)
    Else
        Me.TxtVil = strconv(Me.txtVil,vbProperCase)
    End if
End Sub

14/11/2007, 12h39
Jean-Pierre49
Si j'ai bien compris ton prôblème,

La réponse en dans le tytoriel de SilkyRoad
Utiliser les contrôles dans un usf
Code:

1 2 3 Private Sub textBox1_keyPress(ByVal keyAscii As MSForms.ReturnInteger) keyAscii = Asc(UCase(Chr(keyAscii))) End Sub

Citation:
Envoyé par Maxence HUBICHE
Avec un test sur l'existence de l'espace ou pas ;)
Code:

1 2 3 4 5 6 7 8 9 10 Private Sub TxtVil_AfterUpdate() Dim lngPos as long lngPos=Instr(me.txtvil," ") If lngPos <> 0 then me.txtVil=strConv(left(me.txtVil,lngPos)) & mid(me.txtVil, lngPos+1) Else Me.TxtVil = strconv(Me.txtVil,vbProperCase) End if End Sub
J'ai essayé ton code, un message apparaît sur strConv de la 5ème ligne, "Erreur de compilation", "Argument non facultatif".
Peux-tu éclairer ma lanterne s'il te plait ?

14/11/2007, 13h13
jkodio

Citation:

Envoyé par NEC14

J'ai essayé ton code, un message apparaît sur strConv de la 5ème ligne, "Erreur de compilation", "Argument non facultatif".
Peux-tu éclairer ma lanterne s'il te plait ?

Essaie de remplacer la ligne en question par :

Code:

me.txtVil=strConv(left(me.txtVil,lngPos) & mid(me.txtVil, lngPos+1),vbProperCase)
14/11/2007, 13h20
NEC14

Citation:

Envoyé par jkodio

Essaie de remplacer la ligne en question par :

Code:

me.txtVil=strConv(left(me.txtVil,lngPos) & mid(me.txtVil, lngPos+1),vbProperCase)

Bonjour,

Je viens d'essayer ton code, il me met toutes les premières lettre de la chaine en majuscules, alors que je ne souhaite que seul le premier mot de la chaine soit en majuscule.
14/11/2007, 14h14
NEC14

Citation:

Envoyé par NEC14

Bonjour,

Je viens d'essayer ton code, il me met toutes les premières lettre de la chaine en majuscules, alors que je ne souhaite que seul le premier mot de la chaine soit en majuscule.

Je n'ai toujours pas trouvre de solution. Je vais chercher un peu plus.
14/11/2007, 14h27
jkodio

Oups, je crois que j'ai gaffé.
Il faut plutôt :

Code:

me.txtVil=strConv(left(me.txtVil,lngPos),vbProperCase ) & mid(me.txtVil, lngPos+1)

Désolé...
14/11/2007, 14h36
NEC14

Citation:

Envoyé par jkodio

Oups, je crois que j'ai gaffé.
Il faut plutôt :

Code:

me.txtVil=strConv(left(me.txtVil,lngPos),vbProperCase ) & mid(me.txtVil, lngPos+1)

Désolé...

ça marche, mais uniquement pour le premier mot si tout est écrit en majuscule. Exemple (RECHERCHE DE FUITE, devient Recherche DE FUITE) non "Recherche de fuite" comme je le souhaiterai. Si tout est écrit en minuscule, la première lettre de la phrase passe bien en majuscule.
J'ai regardé si j'avais mal retranscrit tes infos, mais non, tout esr correct. :cry:

Citation:

Envoyé par NEC14

ça marche, mais uniquement pour le premier mot si tout est écrit en majuscule. Exemple (RECHERCHE DE FUITE, devient Recherche DE FUITE) non "Recherche de fuite" comme je le souhaiterai. Si tout est écrit en minuscule, la première lettre de la phrase passe bien en majuscule.
J'ai regardé si j'avais mal retranscrit tes infos, mais non, tout esr correct. :cry:

Oui, mais tu n'avais pas dit que tu voulais convertir le reste en minuscule.
Bon dans ce cas, essaie ceci:
(une ligne est insérée entre la 2ème et la 3ème)
Code:

1 2 3 4 5 6 7 8 9 10 Private Sub TxtVil_AfterUpdate() Dim lngPos as long me.txtvil = lcase(me.txtvil) lngPos=Instr(me.txtvil," ") If lngPos <> 0 then me.txtVil=strConv(left(me.txtVil,lngPos),vbProperCase) & mid(me.txtVil, lngPos+1) Else Me.TxtVil = strconv(Me.txtVil,vbProperCase) End if End Sub

Pour éviter lngPos=Instr(me.txtvil," ")

Code:

1
2
me.txtVil=lcase(txtVil)
me.txtVil=strConv(left(me.txtVil,lngPos),vbProperCase ) & mid(me.txtVil, lngPos+1)

Citation:

Envoyé par ouskel'n'or

Pour éviter lngPos=Instr(me.txtvil," ")

Code:

1
2
me.txtVil=lcase(txtVil)
me.txtVil=strConv(left(me.txtVil,lngPos),vbProperCase ) & mid(me.txtVil, lngPos+1)

Bonjour Ouskel'n'or
Maintenant ça marche très bien. Je mets mon code pour ceux qui voudrait s'en inspirer.
Merci à tous pour votre aide.

Code:

1
2
3
4
5
6
7
8
9
10
Private Sub TxtObjet_AfterUpdate()
Dim LngPos As Long
Me.TxtObjet = LCase(TxtObjet)
    LngPos = InStr(Me.TxtObjet, " ")
        If LngPos <> 0 Then
        Me.TxtObjet = StrConv(Left(Me.TxtObjet, LngPos), vbProperCase) & Mid(Me.TxtObjet, LngPos + 1)
    Else
        Me.TxtObjet = StrConv(Me.TxtObjet, vbProperCase)
    End If
End Sub

Fuseau horaire GMT +2. Il est actuellement 16h33.