Problème avec set focus sur textbox d'un userform

Lone-wolf

XLDnaute Barbatruc

• 4 Juin 2018

• #2

Bonjour donpopo

Ajoute une 2ème textbox, supprime les lignes après Else.

Avec Textbox1_AfterUpdate()

If TextBox1.Value <> MDP Then
TextBox1.Value = ""
MsgBox ("MOT DE PASSE ERRONE !")
TextBox1.SetFocus
End If

EDIT: ne prend pas en consideration la macro, ça ne fonctionne pas.

 

Dernière édition: 4 Juin 2018

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 4 Juin 2018

• #3

Bonjour.
Je suppose que les procédures évènements liées au gain ou à la perte de focus ne peuvent guère supporter un changement de celui ci durant leur exécution. Pourquoi ne mettez vous pas plutôt à True le paramètre Cancel transmis ?

 

Vote positif 0 Vote négatif

donpopo

XLDnaute Occasionnel

• 4 Juin 2018

• #4

J'ai un problème;
j'ai corrigé ma procédure, mais cela n'accepte aucun mot de passe; j'ai du faire une erreur.
Entretemps, je ne sais plus entrer dans mon programme pour le corriger. Comment contourner ce problème?
Sans mot de passe, le classeur se ferme; comment arriver à modifier en VBA.

 

Vote positif 0 Vote négatif

donpopo

XLDnaute Occasionnel

• 5 Juin 2018

• #5

Ca va, j'ai résolu le problème de blocage en ouvrant un autre fichier Excel; cela m'a permit d'accéder à VBA.

Mais j'ai essayé la procédure proposée par Lone-wolf,; le focus ne se remet pas sur la textbox1, mais bien sur le bouton quitter qui est en deuxième position en Tabindex.

Textbox1_AfterUpdate()
If TextBox1.Value <> MDP Then
TextBox1.Value = ""
MsgBox ("MOT DE PASSE ERRONE !")
TextBox1.SetFocus
else userform1.hide
End If



Je ne vois pas ce qui cloche.

 

Vote positif 0 Vote négatif

Robert

XLDnaute Barbatruc

Repose en paix

• 5 Juin 2018

• #6

Bonjour le fil, bonjour le forum,

Essaie comme ça :

VB:

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)

If Me.TextBox1.Value = "" Then Exit Sub
If TextBox1.Value = MDP Then
    Unload Me
Else
    Cancel = True
    TextBox1.Value = ""
    MsgBox ("MOT DE PASSE ERRONE !")
End If
End Sub

Private Sub CommandButton1_Click()
Unload Me
End Sub

 

Vote positif 0 Vote négatif

donpopo

XLDnaute Occasionnel

• 5 Juin 2018

• #7

Merci Robert,
cela fonctionne parfaitement.
Je n'ai pas bien l'habitude de me servir de ce type de procédure. Je vais approfondir.
A +
donpopo

 

Vote positif 0 Vote négatif

Eric C

XLDnaute Barbatruc

• 5 Juin 2018

• #8

Bonjour le forum
Bonjour donpopo, lone-wolf, Dranreb et l'Excellent Robert (Vous êtes tous & toutes excellents)

Dranreb t'avais mis sur la voie :
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Cancel = True

If TextBox1.Value = "MDP" Then
Me.Hide
Else
TextBox1.Value = ""
MsgBox "Veuillez entrer un code valide.", vbOKOnly, "Erreur"
TextBox1.SetFocus
End If
End Sub

mais Robert est passé par là.
@micalement
Eric C

 

Vote positif 0 Vote négatif

Robert

XLDnaute Barbatruc

Repose en paix

• 5 Juin 2018

• #9

Comme t'avais proposé Bernard : Cancel = True...

 

Vote positif 0 Vote négatif

S

Si...

XLDnaute Barbatruc

• 5 Juin 2018

• #10

Bon_soir

Salut Robert, en général je remplace Cancel par Oust, c'est mieux (voire mal) compris.

Ici, on peut ne pas faire appel à Exit avec les Focus comme dans l'exemple joint (une preuve par 9).

Nota : je n'entre pas dans la discussion de savoir si c'est utile ou pas mais il faut quand même développer un peu plus l'affaire.

 

Pièces jointes

• MdP.xlsm

  21.6 KB · Affichages: 82

Vote positif 0 Vote négatif

mapomme

XLDnaute Barbatruc

Supporter XLD

• 5 Juin 2018

• #11

Bonsoir @donpopo, à tous,

Une autre méthode qui n'utilise aucun évènement de la Textbox (le mot de passe est abc).

 

Pièces jointes

• donpopo- setfocus- v1.xlsm

  26.1 KB · Affichages: 68

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 5 Juin 2018

• #12

Bonsoir le fil, le forum

@mapomme

Les codes sont attachés aux deux CoùmandButton.

Cliquez pour agrandir...

Je ne trouve pas de contrôle CoùmandButton sur ma boite d'outils de Contrôles dans VBE

 

Vote positif 0 Vote négatif