Userform: Obliger une écriture en majuscules

[phoque.r]

Bonjour,

je crée un formulaire, et je voudrais que dans un textbox, le texte tapé soit obligatoirement en majuscules.
Est-ce possible? (Et si oui comment 🙂)

merci
phoque.r

 

[Creepy]

Re : Userform: Obliger une écriture en majuscules

Bonjour tout le monde,

C'est possible avec ce petit code :

Private Sub TextBox1_Change()
    TextBox1.Text = UCase$(TextBox1.Text) ' remplace le texte de la textbox par le texte en majuscule
End Sub

A+

Creepy

 

[phoque.r]

Re : Userform: Obliger une écriture en majuscules

Super

merci, je vais tester
phoque.r

 

[mécano41]

Re : Userform: Obliger une écriture en majuscules

Bonjour,

Par exemple, j'ai essayé cela :

Option Explicit

Dim Saisie As String

Private Sub ComboBox1_Change()
Saisie = ComboBox1.Value
ComboBox1.Value = UCase(Saisie)
End Sub

Cordialement

 

[phoque.r]

Re : Userform: Obliger une écriture en majuscules

merci
j'ai utilisé la première (premier arrivé, premier servi 🙂)
Ca fonctionne, donc c'est bon

 

[Creepy]

Re : Userform: Obliger une écriture en majuscules

Re All,

Mecano, je ne comprends pas bien pourquoi tu passes par une varaible pour faire ce genre de choses ?

Y'a t-il une raison particulière ?

Merci

Creepy

 

[mécano41]

Re : Userform: Obliger une écriture en majuscules

Re All,

Mecano, je ne comprends pas bien pourquoi tu passes par une variable pour faire ce genre de choses ?

Y'a t-il une raison particulière ?

Merci

Creepy

Non, pas de raison particulière si l'on utilise pas la variable ailleurs.

Cordialement