XL 2010 [RESOLU] Eviter affichage Msgbox à 2 reprises

[cathodique]

Bonjour,

Je viens vers vous pour un petit problème. J'avoue que je suis un peu perdu.
Je voudrai vider une textbox si aucuns boutons coché avec un message avertissant l'utilisateur.
J'arrive à le faire mais le message s'affiche à 2 reprises.
J'ai pensé à une variable booléenne mais j'avoue que je n'ai pas trouvé l'astuce pour l'utiliser.

Option Explicit
Private Sub TextBox1_Change()
If Opt_Ajouter.Value = False And Opt_Corriger.Value = False And Opt_Supprimer.Value = False Then
TextBox1 = "": TextBox1.SetFocus
MsgBox "Choisir une Option"
End If
End Sub

En vous remerciant.

 

[job75]

Bonjour cathodique, le forum,

Oui il faut une variable booléenne Static :

Private Sub TextBox1_Change()
Static flag As Boolean
If flag Then Exit Sub
If Not (Opt_Ajouter Or Opt_Corriger Or Opt_Supprimer) Then
flag = True: TextBox1 = "": flag = False: TextBox1.SetFocus
MsgBox "Choisir une Option"
End If
End Sub

A+

 

[youky(BJ)]

Bonjour tous,
Une autre solution en utilisant le KeyUp et non le Change
Bruno

Private Sub TextBox1_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If Opt_Ajouter.Value = False And Opt_Corriger.Value = False And Opt_Supprimer.Value = False Then
TextBox1 = "": TextBox1.SetFocus
MsgBox "Choisir une Option"
End If
End Sub

 

[cathodique]

Bonjour cathodique, le forum,

Oui il faut une variable booléenne Static :

Private Sub TextBox1_Change()
Static flag As Boolean
If flag Then Exit Sub
If Not (Opt_Ajouter Or Opt_Corriger Or Opt_Supprimer) Then
flag = True: TextBox1 = "": flag = False: TextBox1.SetFocus
MsgBox "Choisir une Option"
End If
End Sub

A+

Bonjour Job75,

C'est parfait. Merci beaucoup, tu me permets d'avancer.
Stp, une dernière question: Static signifie que la variable garde toujours le même état (vrai/faux)?
Encore merci.

 

[cathodique]

Bonjour tous,
Une autre solution en utilisant le KeyUp et non le Change
Bruno

Private Sub TextBox1_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If Opt_Ajouter.Value = False And Opt_Corriger.Value = False And Opt_Supprimer.Value = False Then
TextBox1 = "": TextBox1.SetFocus
MsgBox "Choisir une Option"
End If
End Sub

Bonjour Youky(BJ),

C'est aussi parfait pour moi. Merci beaucoup.
Pour être honnête, tu viens de me faire découvrir l'utilisation du KeyUp.
Encore merci.

 

[job75]

Stp, une dernière question: Static signifie que la variable garde toujours le même état (vrai/faux)?

Oui, une variable Static fonctionne comme une variable Public mais est limitée à la macro où elle se trouve.

La dernière valeur affectée à la variable est mémorisée.

 

[cathodique]

Oui, une variable Static fonctionne comme une variable Public mais est limitée à la macro où elle se trouve.

La dernière valeur affectée à la variable est mémorisée.

Merci beaucoup pour ta gentillesse.

Bon week-end.