Rapporter les cellules dont la valeur change via leur formule - Évèment Calculate

Bonjour,

Je souhaite être averti par un message lorsque la valeur d'une cellule (ou plusieurs) est modifiée, en précisant que cette cellule se trouve sur une autre feuille à l'autre bout du classeur.

Une mise en forme conditionnelle (MFC) ne me servirait à rien, car étant sur une autre feuille, le but est justement de ne pas avoir à vérifier à chaque étape de mon travail si une valeur de la cellule a changé.

L'événement Change ne réagit pas, car: "Cet événement ne se produit pas lorsque les cellules sont modifiées pendant un recalcul" (Documentation Microsoft). C'est-à-dire qu'il faut que ça soit l'utilisateur (ou un lien externe) qui modifie directement la cellule pour que l'événement se déclenche. Or dans mon cas, les cellules sont modifiées via leur formule qui renvoie à des cellules dans d'autres feuilles.

Je me suis donc tourné vers l'événement Calculate, qui réagit si une cellule change de valeur après recalcule de sa formule.

Cependant, ce dernier se contente de signaler quelle feuille est affectée, mais pas quelle cellule... :?

C'est ce qu'il me manque.

Comment faire?

Voici mon code en l'état:

Code:

---

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

Private Sub Workbook_SheetCalculate(ByVal Sh As Object)   Dim TblNFl() As Variant Dim StrNFl As String Dim StrMsg As String Dim Byt As Byte   TblNfl = Array("F1", "F2", "F3") StrNFl = Sh.Name StrMsg = "La feuille " & Chr(39) & StrNFl & Chr(39) & " a été impactée."   For Byt = 0 To UBound(TblNFl) If StrNFl = TblNFl(Byt) Then MsgBox StrMsg Exit For End If Next Byt   End Sub

---

En espérant avoir été suffisamment clair, n'hésitez pas à me demander dans le cas contraire.

Cordialement,

C'est d'autant plus important pour moi, qu'à ce stade, les messages s'affichent, même sans modification de cellule... :?

Il suffit que les feuilles se recalculent suite à un changement à l'autre bout du classeur... :weird:

Bonjour,

Citation:

---

Envoyé par Dédé6621

L'événement Change ne réagit pas, car: "Cet événement ne se produit pas lorsque les cellules sont modifiées pendant un recalcul" (Documentation Microsoft).

---

C'est pourtant cet évènement qu'il est préférable d'utiliser, hormis les calculs qui font appel à des fonctions temporelles (comme Maintenent) le résultat d'une formule ne change que lorsqu'on modifie la valeur d'une des cellules "précédentes" de de cette formule. Il suffit donc de surveiller les précédents (tous).

Bonjour,

Merci pour votre réponse.

Citation:

---

Envoyé par Patrice740

Il suffit donc de surveiller les précédents (tous).

---

Malheureusement, "[l]a [...] propriété Dependents fonctionne uniquement sur la feuille active et ne peut pas suivre les références distantes." (Documentation Microsoft).

Il en va de même de la propriété Precedents.

Autrement dit, il n'est pas possible de surveiller les précédents s'ils sont sur une autre feuille... :?

Ce code renvoie une erreur d'exécution 1004: "Pas de cellules correspondantes.":

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)   Dim OCel As Range   Set OCel = Me.Sheets("F1").Range("C1000")   If Not Intersect(Target, OCel.Precedents) Is Nothing Then MsgBox "La cellule " & OCel.Address & "a été impactée." Target.Select End If   End Sub

---

Sachant que C1000 renvoie une cellule d'une autre feuille.

Cordialement

Une autre idée?

Bonjour,

Si j'ai bien compris, tu voudrais être averti si le résultat du calcul d'une cellule d'une autre feuille change.
Par exemple la cellule à surveiller sur la Feuil3 contient cette formule ='Feuil1'!C11+'Feuil2'!C10+NBVAL('Feuil2'!B2:B7)
Comme je t'ai dit, il suffit de surveiller les précédents de cette formule.
Pour cela il faut utiliser l'évènement change de la feuille qui contient le précédent

Dans Feuil 1 :

Code:

---

1 2 3 4 5

Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("C11")) Is Nothing Then MsgBox "Résultat changé" End If End Sub

---

Et dans Feuil2

Code:

---

1 2 3 4 5 6

Private Sub Worksheet_Change(ByVal Target As Range) If Not (Intersect(Target, Range("C10")) Is Nothing And _ Intersect(Target, Range("B2:B8")) Is Nothing) Then MsgBox "Résultat changé" End If End Sub

---

Citation:

---

Envoyé par Patrice740

Si j'ai bien compris, tu voudrais être averti si le résultat du calcul d'une cellule d'une autre feuille change.
Par exemple la cellule à surveiller sur la Feuil3 contient cette formule ='Feuil1'!C11+'Feuil2'!C10+NBVAL('Feuil2'!B2:B7)

---

Juste.

Sauf que le cheminement des antécédents est bien trop complexe pour pouvoir être intégré à une macro.
Et c'est justement parque je ne le maîtrise pas, que j'aimerais pouvoir surveiller ces cellules en cours de travail.

Les antécédents ont eux-mêmes des antécédents, qui ont eux-mêmes des antécédents, qui ont eux-mêmes... si bien que ne sais jamais si je ne suis pas en train de toucher à un des ces anté-anté-hantés-cédents