Forcer une autre cellule à indiquer zero "0"

pat66 · 30 Avril 2019

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 · 30 Avril 2019

Bonjour,

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

VB:

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 · 30 Avril 2019

Bonjour Patrick

Comme ça ?

Cordialement, Gérard

Oups !! bien vu Roblochon !!

pat66 · 30 Avril 2019

Bonjour Roblochon, Bonjour Gérard

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

excellente journée à vous

Patrick

Forcer une autre cellule à indiquer zero "0"

pat66

XLDnaute Impliqué

Hasco

XLDnaute Barbatruc

natorp

XLDnaute Barbatruc

Pièces jointes

pat66

XLDnaute Impliqué

Discussions similaires

Forcer une autre cellule à indiquer zero "0"

pat66

XLDnaute Impliqué

Hasco

XLDnaute Barbatruc

natorp

XLDnaute Barbatruc

Pièces jointes

pat66

XLDnaute Impliqué

Discussions similaires

Privacy & Transparency

Privacy & Transparency