Discussion :

[azertym]

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 :

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

1
2
3
Private Sub Textbox1_Change()
Textbox1.Text = UCase(Textbox1.Text)
End Sub

Je l'ai changé par :

Code :

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

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

[mercatog]

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

[azertym]

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

[azertym]

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 :

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

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

Code :

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

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

Le code macro:

Code :

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

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é .... Il faut le placer après le rappel des données.