CheckBox-VBA

[Alex]

Merci pour votre aide.
Encore un problème: si je ne coche pas la case, il y a 'false'. je voudrais que ça n'écrive rien.

 

[eric]

bonjour

Private Sub CommandButton2_Click()

if checkbox1=false then exit sub
Range("A1") = CheckBox1.Caption
End Sub

Bon WE

 

[@Christophe@]

Re

Alex, je t'avais donné la solution dans l'autre fil, la revoila:


If CheckBox1.Value = True Then
Range("A1").Value = CheckBox1.Caption
Else
Range("A1").Value = ""
End If


@Christophe@