TheProdigy
XLDnaute Impliqué
Bonjour à tous et excusez mon dérangement car je suis novice!
J'ai 3 questions à vous poser:
1) J'ai créé un userform qui donne acces à l'utilisateur pour mot de passe mais quand je clique sur Entrer du clavier c'est le bouton annuler qui s'active et non pas le bouton valider mot de passe, par contre ça marche avec la souris.
2) Comment choisir l'ordre des tabultations? cad une fois l'userform est affiché la zone texte est selectionnée en premier.
3) Comment montrer le l'image de OK et l'image de annuler dans les 2 boutons?
Vous n'êtes pas obligés de répondre à toutes les questions mais au moins que j'apprenne des choses la 3ème question est moins importante.
Voila le code du bouton OK
Private Sub CommandButton1_Click()
If Me.TextBox1 = "123" Then
Dim N As Integer
For N = 2 To Sheets.Count
Sheets(N).Visible = True
Next N
MsgBox "Correct"
Unload Me
Else
MsgBox "Mot de passe incorrect. Réessayez!"
Me.TextBox1 = ""
End If
End Sub
Merci
J'ai 3 questions à vous poser:
1) J'ai créé un userform qui donne acces à l'utilisateur pour mot de passe mais quand je clique sur Entrer du clavier c'est le bouton annuler qui s'active et non pas le bouton valider mot de passe, par contre ça marche avec la souris.
2) Comment choisir l'ordre des tabultations? cad une fois l'userform est affiché la zone texte est selectionnée en premier.
3) Comment montrer le l'image de OK et l'image de annuler dans les 2 boutons?
Vous n'êtes pas obligés de répondre à toutes les questions mais au moins que j'apprenne des choses la 3ème question est moins importante.
Voila le code du bouton OK
Private Sub CommandButton1_Click()
If Me.TextBox1 = "123" Then
Dim N As Integer
For N = 2 To Sheets.Count
Sheets(N).Visible = True
Next N
MsgBox "Correct"
Unload Me
Else
MsgBox "Mot de passe incorrect. Réessayez!"
Me.TextBox1 = ""
End If
End Sub
Merci
