Exécuter la macro lorsque la valeur de la cellule liée change (Excel VBA)

Question

J'essaie actuellement d'obtenir des informations historiques sur le développement de l'arriéré.

Mon fichier Excel est basé sur des requêtes provenant d'une base de données Access qui peut me donner une vue de la situation actuelle.

Je voudrais exécuter automatiquement une macro chaque fois que le numéro de semaine change. Je suis actuellement en utilisant le code suivant:

Private Sub Worksheet_Change(ByVal Target As Range) 
    If Not Intersect(Target, Target.Worksheet.Range("D3")) Is Nothing Then 
     Call KPIupdate 
    End If 
End Sub 

La macro qui devrait tirer est appelé KPIupdate

Mon problème est que les feux que macro si je clique sur la cellule. Je voudrais juste que le feu se déclenche lorsque le nombre change. La cellule "D3" est liée à une autre cellule avec la formule = numsem (aujourd'hui(); 21)

J'espère que vous pouvez me aider

Answer 1

Selon l'entrée MSDN pour Worksheet_Change:

Cet événement ne se produit pas lorsque les cellules changent pendant un recalcul. Utilisez l'événement Calculate pour intercepter un recalcul de feuille.

Pour utiliser Worksheet_Calculate pour piéger le changement dans une cellule qui est définie par une formule regardant une autre cellule, vous devez définir une variable pour maintenir la valeur de la « cible » et vérifier si elle a changé après les feux d'événement Calculate.

Voici un exemple simple:

Option Explicit 

Private strCurrentWeek As String 

Private Sub Worksheet_Calculate() 
    If Me.Range("A1").Value <> strCurrentWeek Then 
     'the linked cell changed 
     Debug.Print "Sheet1!A1 was changed" 
     'call another macro 
    End If 
    'update the new current week 
    strCurrentWeek = Me.Range("A1").Value 
End Sub 

Pour tester cela, vient de mettre la formule dans A1 être =B1 puis modifiez la valeur de B1 et vérifier la sortie dans la fenêtre immédiate.

Vous pouvez adapter ce code pour appeler KPIupdate où mon instruction Debug.Print... est.