XL 2010 [RESOLU] Eviter affichage Msgbox à 2 reprises

cathodique · 7 Mai 2021

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.

VB:

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 · 7 Mai 2021

Bonjour cathodique, le forum,

Oui il faut une variable booléenne Static :

VB:

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+

job75 · 7 Mai 2021

Bonjour cathodique, le forum,

Oui il faut une variable booléenne Static :

VB:

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) · 7 Mai 2021

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

VB:

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 · 7 Mai 2021

job75 à dit:
Bonjour cathodique, le forum,

Oui il faut une variable booléenne Static :

VB:

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 · 7 Mai 2021

youky(BJ) à dit:
Bonjour tous,
Une autre solution en utilisant le KeyUp et non le Change
Bruno

VB:

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 · 7 Mai 2021

cathodique à dit:
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 · 7 Mai 2021

job75 à dit:
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.

XL 2010 [RESOLU] Eviter affichage Msgbox à 2 reprises

cathodique

XLDnaute Barbatruc

Pièces jointes

job75

job75

XLDnaute Barbatruc

Pièces jointes

youky(BJ)

XLDnaute Barbatruc

cathodique

XLDnaute Barbatruc

cathodique

XLDnaute Barbatruc

job75

XLDnaute Barbatruc

cathodique

XLDnaute Barbatruc

Discussions similaires