Pb caption checkbox

[Vivien]

Bonjour le forum.

J'ai un petit souci.

Comment faire pour écrire dans une cellule uniquement si la checkbox est cochée(voir fichier joint)???
Si on décoche,la valeur écrite dans la cellule s'efface.
Si on coche la valeur s'écrit.
Si on décoche la valeur s'efface.
.
.
.
etc...

Merci à vous
A bientot.
Vivien.
[file name=checkbox.zip size=9309]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/checkbox.zip[/file]

 

[Robert]

Bonsoir Vivien, bonsoir le forum,

Recopie ce code pour chaque checkbox :

Private Sub CheckBox1_Click()
If CheckBox1.Value = True Then
Feuil1.Cells(2, 2) = UserForm1.CheckBox1.Caption
Else
Feuil1.Cells(2, 2) = ''
End If
End Sub

 

[vivien]

Bonsoir Robert,le forum.
Merci Robert.
Je vais tester tout cela maintenant.
A bientot.
Vivien.