pour mettre en majuscule

Bonsoir Isabelle
Peux-tu être plus clair ?
Michel

"Isabelle Chapados" <IsabelleChapados@discussions.microsoft.com> a écrit
dans le message de news:
0C3179F5-69AC-4C42-AC3D-9F772DCBEBA6@microsoft.com...

bonjour
j'ai un petit problème

j'ai créé un userform et dedans j'ai une zone de text

Private Sub TextBox1_Change()

End Sub

je voudrais savoir qu'est-ce qu'il faut que j'inscrive pour que dans mon
userform et dans ma zone de text mon text s'inscrit en majuscule

merci d'avance

Bonjour Isabelle,

'-------------------
Private Sub TextBox1_Change()
Dim T as String
T = UCase(Me.TextBox1)
Me.Textbox1 = T
End Sub
'-------------------


Salutations!


"Isabelle Chapados" <IsabelleChapados@discussions.microsoft.com> a écrit dans le message de
news:0C3179F5-69AC-4C42-AC3D-9F772DCBEBA6@microsoft.com...
bonjour
j'ai un petit problème

j'ai créé un userform et dedans j'ai une zone de text

Private Sub TextBox1_Change()

End Sub

je voudrais savoir qu'est-ce qu'il faut que j'inscrive pour que dans mon
userform et dans ma zone de text mon text s'inscrit en majuscule

merci d'avance

Bonjour ,

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
KeyAscii = Asc(UCase(Chr(KeyAscii)))
End Sub

Bonne chance
Valentin

"michdenis" <michdenis@hotmail.com> a écrit dans le message de
news:%23rwHORSwEHA.1148@TK2MSFTNGP12.phx.gbl...

Bonjour Isabelle,

'-------------------
Private Sub TextBox1_Change()
Dim T as String
T = UCase(Me.TextBox1)
Me.Textbox1 = T
End Sub
'-------------------


Salutations!


"Isabelle Chapados" <IsabelleChapados@discussions.microsoft.com> a écrit
dans le message de

news:0C3179F5-69AC-4C42-AC3D-9F772DCBEBA6@microsoft.com...
bonjour
j'ai un petit problème

j'ai créé un userform et dedans j'ai une zone de text

Private Sub TextBox1_Change()

End Sub

je voudrais savoir qu'est-ce qu'il faut que j'inscrive pour que dans mon
userform et dans ma zone de text mon text s'inscrit en majuscule

merci d'avance