Cas à cocher

bonjour,

je suis en train de faire une case à cocher, lorsque je la coche, cela suit bien les instruction que je lui donne, mais une fois décocher j'aimerai que cela efface le contenu de la case, mais cela ne marche pas, quequl a t'il des explications? mercii

cordialement.

Private Sub CheckBox1_Click()
Dim a As String: Dim b As String

If CheckBox1.Value = True Then
a = InputBox("rentrez vos infos")
Range("L11") = a
End If
If CheckBox1.Value = False Then
Range("L11").ClearContents

End If
End Sub

Bonjour lucascherrier, le forum,

J'ai testé ton code, il semble faire ce que tu demandes,

Si tu coches, on écrit la valeur de l'inputbox en L11

Si tu décoches, on efface L11

Cordialement,

xorsankukai a écrit :

Bonjour lucascherrier, le forum,

J'ai testé ton code, il semble faire ce que tu demandes,

Si tu coches, on écrit la valeur de l'inputbox en L11

Si tu décoches, on efface L11

Classeur1.xlsm

Cordialement,

je suis sur le cul, car ce même porgramme la ne marche toujours pas de mon côté, j'ai donc la bonne méthode, et merci de votre message ;D