Désactiver Sub Worksheet_Change(ByVal Target As Range)

Bonjour,

j'ai un code dans une feuille pour ajuster en hauteur la ligne modifiée par l'utilisateur, et cela convient très bien :

Code:

---

1 2 3 4 5 6 7 8 9

Sub Worksheet_Change(ByVal Target As Range) Dim actRow As Integer actRow = Target.Row   ActiveSheet.Rows(actRow).AutoFit ActiveSheet.Rows(actRow).RowHeight = 5 + ActiveSheet.Rows(actRow).RowHeight   End Sub

---

le problème est dans une macro je fais des "Range" en boucle dans la feuille et à chaque fois le code est activée inutilement ce qui prend beaucoup du temps

Y-a-t-il un moyen de ne pas activer ce code "Worksheet_Change" dans ma macro lors des "Range"?

merci

Bonjour

Désactiver les événements en début de procédure puis réactiver en fin avec Application.EnableEvents

Attention il n'est pas inutile de mettre une étiquette avant le

Code:

---

Application.EnableEvents=true

---

et mettre un

Code:

---

On Error GoTo NomdeLétiquette

---

après le

Code:

---

Application.EnableEvents=False

---

afin de ne pas rester sans gestion d'évènement en cas de plantage

bonjour,

je ne suis pas sur de comprendre, tu veux dire au début de la macro

Code:

---

1 2	Application.EnableEvents=true

---

et en fin de macro:

Code:

---

1 2	Application.EnableEvents=false On Error GoTo erreur

---

mais je fais quoi si une erreur :

Code:

---

1 2	erreur: ...

---

ce n'est pas plutôt le contraire :

Code:

---

Application.EnableEvents=false

---

au début de la macro ?

RE

Dans ton code qui fait des "Range" en boucle dans la feuille

Au début

Code:

---

1 2	Application.EnableEvents = False On Error GoTo Fin

---

Avant End sud

Code:

---

1 2	Fin: Application.EnableEvents = True

---

Oui, merci,

ce que je ne saisis pas c'est :

Code:

---

On Error GoTo Fin

---

dans quel cas cela peut-il arriver ?

quel risque si on le met pas ?

Re

Si tu en le mets pas, si ta macro plante, Excel ne gère plus aucun événement... Le on error goto fin permet de sortir proprement et de rétablir les événements en cas d'erreur...

Bonjour Chris

Qu'as-tu prévu de faire en cas d'interruption brutale (volontaire, par exemple par CTRL+ALT+SUPP, ou non) ? ;)

Bonjour,

je vous avoue ne pas saisir

Faut-il coder dans chaque macro les pb d'interruption ?

cela me semble étrange

Citation:

---

Faut-il coder dans chaque macro les pb d'interruption ?

---

Ce serait totalement impossible en cas d'interruption brutale, notamment si volontaire.

Bonjour à tous

Certes aucun on error ne résiste à un arrêt brutal d'Excel non lié à une erreur VBA.

Si tu as des solutions unparia, n'hésite pas à les donner.

Pour revenir à la question initiale : si dans un classeur on place des procédures événementielles, tout autre code qui provoque l'événement va déclencher l’exécution de la procédure qui gère cet événement.

Il faut donc "débrancher" temporairement la gestion d'événements.

Il faut donc analyser la situation : quel code va interférer avec quelle procédure événementielle et évaluer la nécessité ou non de ce débranchement.

Une autre voie peut être de revoir le code afin qu'il ne déclenche pas l’événement n fois mais une seule en fin de procédure (par exemple en travaillent sur des arrays et ne remplissant les cellules qu'en fin de procédure).

Merci à tous

je vais me contenter de la solution du post#4

les autres discussions sont au delà de mes connaissances...

Citation:

---

Certes aucun on error ne résiste à un arrêt brutal d'Excel non lié à une erreur VBA.

Si tu as des solutions unparia, n'hésite pas à les donner.

---

Bien sûr (et tu la connais déjà) : utilisation d'une variable booléenne (déclarée en début du module et passée à true en tant que de besoin) au sein de l'évènement concerné --->> si true -->> évènement ignoré et on repasse à false.

cela me semble très intéressant, mais svp un peu plus d'explication pour intégrer la variable booléenne (pour moi en tout cas)
merci

RE

Effectivement unparia et c'est mieux.

On déclare la variable en Public dans un module standard.

Toute procédure qui risque de déclencher une procédure événementielle la passe à True en début de procédure (et à False en fin) et chaque procédure événementielle doit tester si la variable est bien False avant de poursuivre.

En cas de plantage, la variable est réinitialisée donc forcément False ce qui évite de laisser Excel dans un état sans gestion d’événements.

Bonjour,

Citation:

---

On déclare la variable en Public dans un module standard

---

si je comprends bien je déclare dans un module ma variable

Code:

---

Public mavariable as bolean

---

Citation:

---

Toute procédure qui risque de déclencher une procédure événementielle la passe à True en début de procédure

---

Dans chaque macro qui contient une procédure événementielle je code en début de macro

Code:

---

mavariable = True

---

Citation:

---

chaque procédure événementielle doit tester si la variable est bien False avant de poursuivre.

---

Je ne comprends pas, elle est forcément à True puisque mis en début de macro :

Code:

---

1 2 3 4

if mavariable = False then Application.EnableEvents = False Else Exit sub

---

Citation:

---

Je code en fin de macro

---

Code:

---

mavariable = False

---

je n'ai pas tout compris, comment "Application.EnableEvents" redevient = True

Tu n'as en effet pas compris.
On ne touche pas du tout à la propriété enableevents (nulle part et jamais)
On inhibe tout simplement le code à exécuter dans l'évènement concerné si la variable est True. Ce n'est là qu'une question de logique simple.

Bonjour, oui de la logique pure, mais la syntaxe n'est pas intuitive... pour avancer donc :

je déclare dans mon classeur la variable en Public dans un module standard

Code:

---

Public mavariable as bolean

---

Par exemple si je veux inhiber le code de ma feuille
au début de ma macro je code
[

Code:

---

mavariable = False

---

Je code en fin de cette macro de la feuille

Code:

---

mavariable = True

---

Mais je ne comprends pas le lien avec l’événement

Code:

---

Application.EnableEvents

---

ni comment coder le test...

RE

Relis attentivement mon #14

Ce ne sont pas les les procédures événementielles qui changent la valeur de la variable mais celles qui risquent de les déclencher à tort.

Une variable boolean est False par défaut donc on la met true en début de procédure puis on la remet à false en fin

Toutes les procédures événementielles risquant d'être impactées testent la variable au début :

Code:

---

if mavariable=True then exit sub

---

Ceci remplace la 1ère solution à base de Application.EnableEvents

#14

j'ai bien relu, et compris; mais la traduction en ligne de code n'est pas une évidence

Cette fois c'est bon

merci