Application.EnableEvents = False

Comment empêcher l'exécution du script MonObjet_Change() dans un dialogue lors qu'on lui affecte une valeur par programmation ?

J'ai tenté d'encadrer l'affectation comme ceci :

Code:

---

1 2 3

Application.EnableEvents = False MonChamp = 999 Application.EnableEvents = True

---

mais le script MonObjet_Change() est malgré tout exécuté...

bonjour,

rends les evenements inactif à l ouverture du fichier

Code:

---

1 2 3 4

Private Sub Workbook_Open() application..EnableEvents = False End Sub

---

puis lorsque la boite de dialogue est validée tu rends les evenements actifs

Crées une variable globale dans la section Déclarations du UserForm, comme ça :

Code:

---

1 2	Public MonObjet_ProcessusEnCours as Boolean

---

et avant d'affecter une nouvelle valeur au contrôle, mets une ligne comme

Code:

---

1 2	MonObjet_ProcessusEnCours = True

---

Ensuite, dans MonObjet_Change(), vérifies MonObjet_ProcessusEnCours avant de procéder aux opérations.

Code:

---

1 2 3 4 5 6 7 8

Private Sub MonObjet_Change() If MonObjet_ProcessusEnCours = True Then MonObjet_ProcessusEnCours = False Exit Sub End If ... End Sub

---

Citation:

---

Envoyé par patbou

bonjour,

rends les evenements inactif à l ouverture du fichier

Code:

---

1 2 3 4

Private Sub Workbook_Open() application..EnableEvents = False End Sub

---

puis lorsque la boite de dialogue est validée tu rends les evenements actifs

---

Tu as une explication du pourquoi ce n'est pas possible de "juste" encadrer l'affectation ?

Citation:

---

Envoyé par Singular

Crées une variable globale dans la section Déclarations du UserForm, comme ça :

Code:

---

1 2	Public MonObjet_ProcessusEnCours as Boolean

---

et avant d'affecter une nouvelle valeur au contrôle, mets une ligne comme

Code:

---

1 2	MonObjet_ProcessusEnCours = True

---

Ensuite, dans MonObjet_Change(), vérifies MonObjet_ProcessusEnCours avant de procéder aux opérations.

Code:

---

1 2 3 4 5 6 7 8

Private Sub MonObjet_Change() If MonObjet_ProcessusEnCours = True Then MonObjet_ProcessusEnCours = False Exit Sub End If ... End Sub

---

---

Oui, j'y avais pensé aussi, de faire cela pour tous mes objets de mon formulaire... Mais je trouvais ca tellement lourd comme solution, alors qu'il doit s'agir d'un probleme que tout le monde rencontre... Je me suis dis qu'il devait y avoir une manière plus simple de régler l'affaire...

c une question forte interessante:roll:

j ai fait l essais avec 2 txtbox , et je constate qu on ne peut " arreter" le message evenement que ce soit en rendant le control enable ou l application.
j ai essayé de rajouter une boucle ,ss resultat

je vais regarder d un peu plus pres le fct des evenements !!!

Désolé mais l'objet UserForm est membre de la référence MSForms et non de Excel.

Il est donc impossible pour Application de gérer les évènements des UserForms.

Et comme il n'y a pas d'équivalent à EnableEvents dans MSForms... :cry:

J'ai longtemps bossé sur le problème mais, pas de gâteau!!! :marteau:

Il n'y a plus qu'à implementer la technique de Montréal... :aie:

mais j ai essayé en rendant un controle enable :
le controle passe bien inactif (du moins celui ci n est plus en surbrillance) par contre l evenement associé est detecté et realisé.

ds un userforms place 2 txtbox puis ce code

Code:

---

1 2 3 4 5 6 7 8 9

Private Sub TextBox1_Change() TextBox2.Enabled = False TextBox2.Value = TextBox1.Value End Sub   Private Sub TextBox2_Change() MsgBox "raté" End Sub

---

tu verras le resultat

En fait, au lieu de gérer soit meme un booleen, on peut dans les script tester (Application.EnableEvents = true)

Citation:

---

Envoyé par pierre.watelet :
... on peut dans les script tester (Application.EnableEvents = true)

---

Vrai. Cependant, pourquoi désactiver les évenements de l'application Excel quand ce sont ceux d'un contrôle en particulier que l'on souhaite désactiver?

Danger!!! 8O (pertes de données, interactions douteuses...)

Salut

Perso, lorsque je veux réaliser cela, le code qui modifie

1. désactive les évènements
2. opère les modifications
3. rétablit les évènements

J'y adjoins une gestion des erreurs pour remettre la gestion d'évènement en cas de pépin...

Je pourrais presque être d'accord avec toi, Pierre Fauconnier. En fait, pour de la prog maison, y a pas de prob. Mais il se peut que quand-même que tu oublies de remettre à False et, là, c'est le bordel dans Excel et pas seulement dans ton contrôle. Donc le problème est plus difficile à cerner. :bug:

Comme je disais, les bugs de prog maison sont des problèmes personnels et ta méthode est une bonne façon d'économiser un octet de mémoire et une ligne de déclaration, mais je ne la conseillerais pas pour un projet de grande envergure auquel seraient confrontés d'autres programmeurs. :nono:

Salut singular,

Je suis bien conscient du problème en cas de plantage...

Mais il n'est pas toujours possible d'ajouter la ligne de programmation.

J'ai l'exemple d'un fichier de mise à jour qui est envoyé chez des clients. Ils ouvrent ce fichier et celui-ci met à jour des données de veille législative dans certains de leurs onglets.

Les clients ont, pour certains, développé eux-même des macros, notamment évènementielles, ce qui pose problème lors de la mise à jour. Donc, mon appli bloque les évènements, fait son travail, puis débloque les évènements.

Sauf bug avec plantage d'Excel, la gestion d'erreurs permet d'éviter que les évènements restent inactivés.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22

Sub MiseAjourVeille() Dim EnableEventsInit As Boolean Dim CalculationInit As XlCalculation   On Error GoTo Fin ' Mémorisation des valeurs EnableEventsInit = Application.EnableEvents CalculationInit = applicationcalculation   ' Passage aux modes de mise à jour Application.EnableEvents = False Application.Calculation = xlCalculationManual   ... ...   Fin: ' Restitution des valeurs initiales Application.EnableEvents = EnableEventsInit Application.Calculation = CalculationInit End Sub

---

Je ne dis pas que la méthode est universellement applicable, mais dans la mesure où je n'ai pas le contrôle sur le code des fichiers que je manipule, je ne vois pas d'autre solution que la mienne.

Citation:

---

Envoyé par Singular

En fait, pour de la prog maison, y a pas de prob.

---

Et donc c'est justement lorsque je manipule des fichiers autres que "prog maison", via du code "à moi", que ma solution est employée...;)

Et donc, quand tu dis

Citation:

---

Envoyé par Singular

Vrai. Cependant, pourquoi désactiver les évenements de l'application Excel quand ce sont ceux d'un contrôle en particulier que l'on souhaite désactiver?

---

je répondrais: "parce qu'il n'est pas toujours possible de bloquer un seul contrôle..."

Si je maîtrise le code de bout en bout sur les fichiers que je manipule, je préfèrerai, comme toi, mettre un peu de code, mais ce n'est pas toujours possible de fonctionner ainsi.

C'est une question de cas par cas. Je ne suis pas certain que nous ayons dans cette discussion fait un tour exhaustif de tous les cas de figure qui permettront de dire que dans tel cas, telle solution pourra ou ne pourra pas être utilisée.
Cela étant, je suis très ouvert à toute suggestion ;)

Bon week-end.

Je n'avais pas envisagé cet angle... C'est vraiment l'heure du dodo!!! :mouarf:

bonjour,

pourquoi sur un mm userform la desactivation des evenements n est pas operant ?
voir ds le post qq messages auparavant.

Citation:

---

Je n'avais pas envisagé cet angle... C'est vraiment l'heure du dodo!!! :mouarf:

---

Tout bien réfléchi, j'avais vraiment besoin de sommeil hier soir en lisant ton dernier post.

Je suis désolé Pierre Fauconnier, mais l'utilisation de EnableEvents ne bloque pas les contrôles de UserForm. Alors on en revient au même problème, celui d'utiliser une 'variable' pour autre chose que ce pour quoi elle a été créée. C'est une utilisation à proscrire dans un environnement multi-programmeur.

De plus, cette 'variable' n'est pas qu'une simple variable, c'est une propriété d'un objet qui a un effet sur l'ensemble d'Excel. Même lors de tes travaux pour des clients, cette utilisation ne t'est d'aucune utilité autre que d'économiser de la mémoire et une ligne de code.

Si tu dois stopper les évènements Excel, c'est la propriété à utiliser; sinon, moi je ferais une autre variable spécifique au contrôle à gérer.

Amicalement ;)

Salut Singular,

Le message initial n'était pas très clair sur le fait qu'il s'agissait d'évènements de userform, c'est pourquoi j'ai embrayé sur application.enableevents dont parlait Pierre Watelet, ce qui n'est en effet d'aucune utilité dans un userform.

Pour un userform, la seule façon de faire est effectivement d'utiliser une variable et de la tester lorsque l'environnement survient.

Là où je persiste, c'est lorsque je dis que je ne vois pas d'autre solution que de modifier la propriété Application.enableevents lorsque mon code pilote un autre classeur qui contient lui-même du code que je n'ai pas écrit et qui est susceptible d'évoluer. Dans ce cas, a priori, je ne connais pas les évènements qui sont contrôlés par du code sur le classeur que mon code manipule, et je dois donc désactiver les évènements pour toute l'application.

Bon week-end ;)

Merci,


Bon...
On m'attend ailleurs...

Voilà la solution (elle est pour débutant) :

Exemple auto-explicite avec une userform et 3 commandButton :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23

Private Sub UserForm_Activate() CommandButton1.Caption = "INHIBER" CommandButton2.Caption = "AUTORISER" CommandButton3.Caption = "essayer modif dynamique" End Sub   Private Sub CommandButton1_Click() TextBox1.Enabled = False End Sub   Private Sub CommandButton3_Click() TextBox1.Text = "bbb" End Sub   Private Sub CommandButton2_Click() TextBox1.Enabled = True End Sub   Private Sub TextBox1_Change() Static javais As String If TextBox1.Enabled Then javais = TextBox1.Text: Exit Sub TextBox1.Text = javais End Sub

---

J'ai choisi ici une textbox et la propriété enabled.

J'aurais pu choisir un autre contôle et d'utiliser n'importe quelle autre propriété que Enabled (ForeColor, Font, Tag, et tout ce qu'on peut imaginer....)
J'aurais également pu utiliser une variable booléenne, etc, etc...

Enfin et surtout (mais je vous laisse faire) j'aurais pu créer une fonction paramétrable avec, pour paramètres : le contrôle, la propriété à inhiber, etc...

Amitiés

Citation:

---

Pierre Fauconnier a dit:

Là où je persiste, c'est lorsque je dis que je ne vois pas d'autre solution que de modifier la propriété Application.enableevents lorsque mon code pilote un autre classeur...

---

En effet, dans ces cas là, EnableEvents a été fait pour ça. :D