Discussion :

[Harry Covair]

Bonjour,

Un "Userform" contient plusieurs "textbox".
Quelqu'un pourrait-il me donner des pistes de réflexion pour valider le contenu d'une "textbox" en la quittant par tabulation ou par clic souris dans un autre "textbox" du UF sachant que si la validation n'est pas celle attendue, les autres "textbox" ne peuvent pas être accessibles.
J'ai parcouru les tutoriels et les forums du site mais je n'ai pas trouvé d'informations en relation avec le problème. Par contre, j'ai appris beaucoup.
J'ai pensé à la fonction "lostfocus" mais je ne sais ni comment ni où la coder.

D'avance merci pour votre aide

Harry

[Pierre Fauconnier]

Bonjour

Je ne connais pas l'étendue de tes connaissances en VBA.

Tu peux gérer l'évènement BeforeUpdate, qui dispose du paramètre Cancel que tu passes à True pour annuler la saisie

Code :

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

1
2
3
4
5
6
Private Sub TextBox1_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)
    If TextBox1 <> "MotDePasse" Then
        MsgBox "Saisie erronée"
        Cancel = True
    End If
End Sub

Ok?

[Harry Covair]

Re-bonjour Pierre,

La solution proposée a été testée avec succès; c'était exactement ce que je souhaitais. Grand merci.
J'ai également parcouru le "papier" sur les modules de classe. Bravo pour la clarté de l'explication.

Harry