CheckBox

[milaerdo]

Bonjour à tous qui prennez le temps de lire les messages desautres
je débute et je voudrais simplement que lorsque 1 CheckBox et actif une valeur par exemple 1 soit dans une cellule
CheckBox1 coché A1 = 1

Merci je m'aider
et Bonne journée

 

[Robert]

Bonjour Milaerdo, bonjour le forum,

Ce petit code écrit 1 en A1 si la CheckBox1 est cochée et efface A1 si elle est décochée.

Private Sub CheckBox1_Click()
If CheckBox1.Value = True Then
Range('A1').Value = 1
Else
Range('A1').Value = ''
End If
End Sub

 

[milaerdo]

Merci Beaucoup