Recopier la croix d'une case à cocher

[natorp]

Bjr à tous et toutes

J'ai mis ce code dans mon classeur mais la case à cocher de la feuil2 ne change pas quand je mets une croix dans la case à cocher de la feuil1

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Sheets("Feuil1").CheckBox1.Value = True Then
Sheets("Feuil2").CheckBox.Value = True
End If

End Sub
Avez-vous d'autre idée ?

merci à vous
Gérard

 

[Hulk]

Re : Recopier la croix d'une case à cocher

Hello Forum, Natorp,

Déjà, tu peux modifier ton code comme çi dessous..

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Feuil1.CheckBox1.Value = True Then
Feuil2.CheckBox.Value = True
End If
End Sub

En revanche pour ton erreur, si ce n'est que tu as oublié le 1 de la CheckBox, je ne vois pas, ça à l'air correct.

Peut-être mettre le même code en Feuil2...

Cdt, Hulk.

 

[Fo_rum]

Re : Recopier la croix d'une case à cocher

Salut,

pourquoi cet évènement ?
A testee, dans Feuil1 :

Private Sub CheckBox1_Click()
  Sheets("Feuil2").CheckBox1 = CheckBox1
End Sub