EnableEvents dans un UserForm

Bonjour à tous,

Je voulais juste savoir si quelqu'un pouvait répondre à une question qui, je pense, a déjà été posée quelques fois mais je ne trouve pas de réponse qui me satisfasse...

Comment utiliser

Code:

---

Application.EnableEvents= False

---

dans un UserForm ?

Car selon MSDN :

Code:

---

1 2 3

Application.EnableEvents = False ActiveWorkbook.Save Application.EnableEvents = True

---

Permet de sauvegarder sans lancer l'événement WorkBook_BeforeSave... Or, quand je l'utilise dans un formulaire, il ne fonctionne jamais.

Sinon, j'ai vu également que l'on doit utiliser EnableEvents en début de chaque Sub avec

Code:

---

If Application.EnableEvents = False then Exit Sub

---

Mais je trouve ça super long quand on a plein de macros impactées et surtout un peu lourd comme façon de faire..

Pouvez-vous me dire pourquoi ceci ne fonctionne pas :

Un UserForm avec 1 TextBox, 1 CheckBox (cochée par défaut) et 1 CommandButton (qui écrit quelque chose dans la TextBox) :

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Private Sub TextBox1_Change() MsgBox "Les Events sont activés si vous voyez ce message après avoir appuyé sur le bouton",vbInformation End Sub   Private Sub CheckBox1_Change() Application.EnableEvents = CheckBox1.Value 'Si on la coche, on autorise les Events, sinon on les désactive. End Sub   Private Sub CommandButton1_Click() TextBox1.Value = Int(Rnd*10000) End Sub

---

Merci d'avance :)

Quentin

Salut,

EnableEvents determine la detection ou non des evenements dans l'application, comme Worksheet_Change ou Workbook_BeforeSave, mais je ne crois pas que cela empeche de detecter les clics sur des boutons d'un formulaire.

Bonjour jpcheck,

C'est vrai qu'en y réfléchissant, vu que chaque action d'un UserForm est enclenchée par un Event... Ce serait stupide de les bloquer et de rendre, du coup, le formulaire inutile... Sais-tu cependant s'il existe un équivalent interne aux UserForms ? Sinon je passerai par "if XXX = false then exit Sub" avec une variable à moi en début de macro, ce que j'ai déjà fait mais je trouvais ça un peu chiant.

Merci pour ta réponse :)

Ce que j'applique dans differents est tout simplement de jouer sur l'Enabled des Controls
exemple

Code:

---

1 2 3 4 5

Private Sub MonControl_Click() If Me.MonControl.Enabled Then Else End if End Sub

---