Discussion :

[Dédé6621]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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,

[Dédé6621]

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...

[Patrice740]

Bonjour,

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).

[Dédé6621]

Bonjour,

Merci pour votre réponse.

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Dédé6621]

Une autre idée?

[Patrice740]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Dédé6621]

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