Imposer majuscules en VBA

**NEC14** · 14/11/2007, 10h20

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

**Jean-Philippe André** · 14/11/2007, 10h26

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

**NEC14** · 14/11/2007, 10h37

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

**NEC14** · 14/11/2007, 11h26

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

Code :

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

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 ?

**Maxence HUBICHE** · 14/11/2007, 11h32

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 :

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

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

**NEC14** · 14/11/2007, 11h52

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 :

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

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

**Maxence HUBICHE** · 14/11/2007, 12h28

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

Code :

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

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

**Jean-Pierre49** · 14/11/2007, 12h39

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 :

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

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

**NEC14** · 14/11/2007, 12h57

Envoyé par Maxence HUBICHE

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

Code :

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

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 ?

**jkodio** · 14/11/2007, 13h13

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 :

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

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

**NEC14** · 14/11/2007, 13h20

Envoyé par jkodio

Essaie de remplacer la ligne en question par :

Code :

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

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.

**NEC14** · 14/11/2007, 14h14

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.

**jkodio** · 14/11/2007, 14h27

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

Code :

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

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

Désolé...

**NEC14** · 14/11/2007, 14h36

Envoyé par jkodio

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

Code :

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

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.

**jkodio** · 14/11/2007, 14h54

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.

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 :

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

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

**ouskel'n'or** · 14/11/2007, 14h57

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

Code :

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

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

**NEC14** · 14/11/2007, 15h04

Envoyé par ouskel'n'or

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

Code :

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

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 :

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

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

Imposer majuscules en VBA

Macros et VBA Excel

Discussions similaires

Partager

Partager