Hiérarchie entre évènements Workbook_SheetChange et Worksheet_Change ?

Bonjour,

J'ai un fichier comprenant plusieurs feuilles. Je gère les changements de valeurs de certaines cellules des certaines feuilles avec des évènements Worksheet_change sur chaque feuille. Jusque là ça va.

Après certaines lectures de forum, j'ai pensé gérer les modifications de certaines autres cellules ayant un impact sur plusieurs feuilles à l'aide d'un évènement Workbook_SheetChange.

Est-ce que les deux, Worksheet_Change et Workbook_SheetChange, peuvent cohabiter sans problèmes ou si ça risque de planter?

J'ai un doute! :roll:

Merci

JF

Bonjour,

Oui les deux événements peuvent cohabiter.
Il faut néanmoins faire très attention car c'est vite fait de rentrer dans des boucles infinies...
Sans aucune précision de ta part, c'est l'événement Worksheet_Change qui se déclenchera en premier.
Et ensuite l'événement Worksheet_SheetChange se déclenchera (sauf si l'événement Worksheet_Change modifie une cellule,auquel cas il s'appellera lui même à nouveau).

Il faut donc bien penser à "borner" les cellule qu'on veut tester en modification avec par exemple : If Not Application.Intersect(Target, Range("A1")) Is Nothing Then

Bonjour,

Les deux évènements cohabitent naturellement, Worksheet_Change se produit avant Workbook_SheetChange
Pour éviter de rentrer dans des boucles récursives infinies, lorsque la macro modifie une cellule, il penser à désactiver les évènements :

Code:

---

1 2 3 4

Application.EnableEvents = False ' Ici le code qui modifie une cellule et provoque les 2 évènements _Change et _SheetChange ' .... Application.EnableEvents = True

---

Noter que ceci est vrai pour toute procédure évènementielle, lorsque le code de cette procédure provoque le même évènement qui la déclenche.

Merci Patrice et Mat pour vos réponses et désolé pour la coquille : je voulais bien sûr parler de Workbook_SheetChange!!! ;)

Une dernière question!

Puisque WorkSheet_Change s'exécute en premier, si je désactive les évènements en entrant dans son code et que je les réactive avant d'en sortir, est-ce que WorkBook_SheetChange va se rappeller du changement de cellule qui a tout déclenché pour s'exécuter elle-aussi? J'imagine que oui; mais je pose la question juste au cas... :)

Merci

Citation:

---

Envoyé par jieffel44

Puisque WorkSheet_Change s'exécute en premier, si je désactive les évènements en entrant dans son code et que je les réactive avant d'en sortir, est-ce que WorkBook_SheetChange va se rappeller du changement de cellule qui a tout déclenché pour s'exécuter elle-aussi? J'imagine que oui; mais je pose la question juste au cas...

---

Oui, désactiver les évènements évite qu'un nouvel évènement soit généré pendant le traitement mais ça ne supprime pas les évènements qui se sont déjà produits et qui sont en attente de traitement.
Par exemple essaies ces codes - dans le module de feuille :

Code:

---

1 2 3 4 5 6 7 8

Private Sub Worksheet_Change(ByVal Target As Range) ' Application.EnableEvents = False If Target.Address = "$A$1" Then Range("B1").Value = "Ok" End If MsgBox "Cellule " & Target.Address Application.EnableEvents = True End Sub

---

Et dans le module du classeur :

Code:

---

1 2 3

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) MsgBox "Feuille " & Sh.Name & " - Cellule " & Target.Address End Sub

---

Modifier A1 pour voir la chronologie des évènements.
Puis enlève l'apostrophe (commentaire) de la ligne 2 et recommence.