Discussion :

[jauffray.delteil]

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 :

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

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

[mercatog]

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 :

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

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

[jauffray.delteil]

merci pour ta réponse

je viens de bidouiller un code qui semble fonctionné

Code :

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

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.