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

patricklopez66

XLDnaute Occasionnel
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
 
Dernière édition:

patricklopez66

XLDnaute Occasionnel
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
 

Créez un compte ou connectez vous pour répondre

Vous devez être membre afin de pouvoir répondre ici

Créer un compte

Créez un compte Excel Downloads. C'est simple!

Connexion

Vous avez déjà un compte? Connectez vous ici.

Haut Bas