XL 2019 remise à zero automatique d'une cellule, sous condition

[pat66]

Bonjour à tous,
voila mon problème
je souhaite mettre à zero la cellule H14 si la cellule P13 contient 1, avec cette formule ça fonctionne :
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address(0, 0) = "P13" and Target = "1" Then [A3].ClearContents
End Sub

ou celle ci

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.EnableEvents = False
If Range("P13").Value = "1" Then
Range("H14").ClearContents
End If
Application.EnableEvents = True
End Sub

Mais le soucis, c'est qu'il faut que je double clique sur la feuille pour que H14 se mette à zéro

Je précise que P13 reçoit les instructions de 3 cases d'option et inscrit en P13 ; 1 ou 2 ou 3

Ce que je souhaite, c'est que dès que je clique sur la case d'options 1, H14 se mettre à zéro automatiquement
car j'ai un problème de référence circulaire si H14 n'est pas à zéro lorsque je clique sur case d'option 1 et mes résultats ne sont pas corrigés

J'ai entendu parler de calculate, mais je n'en sais pas plus

Je vous remercie pour votre aide et votre temps

patrick

 

[pat66]

Bonjour à tous

Apparemment un sujet qui n’intéresse personne !!

Alots j'ai bossé et j'ai trouvé, il m'a suffit d'activer les calculs itératifs
et d'affecter une macro

Sub LDSP_Casedoption15_Cliquer()
Sheets("LDSP").Range("H14").Value = 0
End Sub

Salut