Forcer une autre cellule à indiquer zero "0"

[pat66]

Bonjour tout le monde,
Je souhaiterai qu'une cellule de onglet1 se remette à zéro si une cellule de l'onglet 2 est <> de zéro

Exemple :
Si je mets un chiffre dans B15 de l'onglet 1, la cellule B15 de l'onglet 2 doit se remettre à zéro,
et inversement
Si je mets un chiffre dans B15 de l'onglet 2, la cellule B15 de l'onglet 1 doit se remettre à zéro,

je précise que les deux cellules n'ont pas de formules

Bien cordialement

 

[Hasco]

Bonjour,

Dans le module de code ThisWorkbook après avoir modifier les noms de feuilles (onglets)

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Sh.Name = "Feuil1" Or Sh.Name = "Feuil2" And Target.Address(False, False) = "B15" And Target(1, 1) > 0 Then
    Application.EnableEvents = False
    Sheets(Array("Feuil1", "Feuil2")(-(Sh.Name = "Feuil1"))).Range("B15") = 0
    Application.EnableEvents = True
End If
End Sub

Bonne journée

 

[natorp]

Bonjour Patrick

Comme ça ?

Cordialement, Gérard

Oups !! bien vu Roblochon !!

 

[pat66]

Bonjour Roblochon, Bonjour Gérard

oh oui c'est parfait !!!
un grand merci à tous les deux

excellente journée à vous

Patrick