Code CheckBox ne fonctionne pas

Bonjour,

j'ai mis ce code dans une feuille et il ne fonctionne pas

Pouvez vous svp me dire pourquoi

Private Sub CheckBox1_Click()
If CheckBox1 = True Then Range("AG3") = VRAI

End Sub

Je vous remercie

Bonjour Joco7915, le forum,

Vois si ceci peut t'aider...

Cordialement,

Bonjour

Merci exactement ce dont j'avais besoin

Une question pourquoi 2 II dans le IF?

Crdlt

Re,

pourquoi 2 II dans le IF?

Traduction en vba de la fonction SI ...

IIf(condition, valeur_si_vrai, valeur_si_faux)

Range("A3") = IIf(CheckBox1 = True, True, "")

Cela simplifie l'écriture et reviens à dire:

If CheckBox1 = True Then
  Range("A3") = True
 Else
  Range("A3") = ""
 End If

Cordialement,

Ok merci pour l'information, je dirais même la formation