Evenements dans les feuilles excel

bonjour

je souhaite vérifier la valeur d'une cellule (résultat d'un calcul) et modifier une autre cellule (appartenant au calcul) si la valeur est fausse.

j'ai trouvé cette fonction

Code:

---

Private Sub Worksheet_Change(ByVal Target As Range)

---

malheureusement, j'ai 2 vérifications à faire sur la même feuille et les 2 calculs à vérifier sont dépendant l'un de l'autre, ce qui fait "boucler" la macro.

je souhaiterais savoir si il existe une fonction similaire, ou un morceau de code à mettre dans cette fonction, pour limiter sont déclenchement à la modification de la cellule "Tartempion" et pas des autres....

merci d'avance

Il faudra plus de précision dans l'explication.

Ci-joint code qui permet d'intercepter le changement de la valeur cellule D1 et d'écrire la date complète de ce changement en E1.
Le changement intercepté de la cellule D1 doit être soit manuel, soit par code. Si en D1 tu as une formule et que D1 change de valeur, l'évènement Change n'est pas intercepté.

Code:

---

1 2 3 4 5 6 7 8

Private Sub Worksheet_Change(ByVal Target As Range)   If Target.Address = "$D$1" Then Application.EnableEvents = False 'nécessaire au cas où le code qui suit change la valeur d'une cellule de la même feuille (pour ne pas appeler le code une 2ème fois suite au changement) Range("E1") = Now Application.EnableEvents = True End If End Sub

---

merci pour ta réponse

je viens de bidouiller un code qui semble fonctionné

Code:

---

1 2 3

Dim modifiable As Range Set modifiable = Range("F14:F17,O20:O21,O41,W20,AE20") If Application.Intersect(Target, modifiable) Is Nothing Then Exit Sub

---

où Range("F14:F17,O20:O21,O41,W20,AE20") est l'ensemble des cellules qui entraine un test comme décrit précédemment
si une autre cellule change, le test n'est pas fait.