Forcer la saisie en majuscule dans un textbox

Bonjour tout le monde !

Excusez moi pour cette question de débutant mais j'aimerai faire en sorte que la saisie d'un textbox qui se trouve dans un userform soit en majuscule.

Je m'explique. Je dispose d'un userform (Userform1) qui contient 2 textbox (User et Mdp). J'ai trouvé ce code ci :

Code:

---

1 2 3

Private Sub Textbox1_Change() Textbox1.Text = UCase(Textbox1.Text) End Sub

---

Je l'ai changé par :

Code:

---

1 2 3

Private Sub User_Change() User.Text = UCase(User.Text) End Sub

---

Le problème c'est que je ne sais pas trop ou mettre ce private sub :?. Dans un module indépendant ? Si c'est ca, je l'ai fais et rien ne se passe.

Merci d'avance

Clique droit sur ton textbox et insère ton 2ème code dans le module de l'userform

Rolala :oops:. En effet je n'avais pas vu que l'on pouvait accéder au textbox ainsi. Merci beaucoup Mercatog ! :D

Je relance ce topic, puisqu'en fait j'ai remarqué un petit problème. Depuis que j'utilise cette fonction il m'est impossible de copier et coller le contenu des Textbox de façon automatique.

En gros je me sers de ce userform comme interface de login. Si les valeurs saisie sont bonnes alors il colle les données dans un autre logiciel en sendkeys.
Le problème c'est que depuis que j'utilise la majuscule forcée, la macro ne fonctionne plus.

Quelqu'un à une idée ?

Voici les codes :

Les codes des textbox:

Code:

---

1 2 3

Private Sub User_Change() User.Text = UCase(User.Text) 'Forcer la majuscule End Sub

---

Code:

---

1 2 3

Private Sub Mdp_Change() Mdp.Text = UCase(Mdp.Text) 'Forcer la majuscule End Sub

---

Le code macro:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26

'Login Dim Utilisateur As String Dim MotDePasse As String   Utilisateur = UserForm1.User.Text MotDePasse = UserForm1.Mdp.Text   If Utilisateur = "NAME" And MotDePasse = "PASS" Then 'A modifier selon le service   Unload UserForm1 'Fermeture de la fenêtre login (UserForm1)   Shell ("Y:\Base\Fichiers Macro\TN5250J.bat") 'Lancement de TN5250j Application.Wait (Now + TimeValue("0:00:06")) 'Temps de pause 6s   UsrCMD = "" & UserForm1.User & "{TAB}" 'Rappel de la saisie User SendKeys UsrCMD 'Importer la saisie dans JDE Application.Wait (Now + TimeValue("0:00:01"))   PassCMD = "" & UserForm1.Mdp & "{ENTER}" 'Rappel de la saisie Password SendKeys PassCMD 'Importer la saisie dans JDE Application.Wait (Now + TimeValue("0:00:06"))   Else UserForm2.Show Exit Sub End If

---

EDIT : J'ai trouvé la réponse au problème ! Le unload du userform n'est pas bien placé .... :oops: Il faut le placer après le rappel des données.