Code qui ne fonctionne pas

Bonjour

Pouvez vous me dire ce qui cloche dans ce code (macro)

Sub calcul()
If CheckBox1 = "VRAI" Then Range(G5).Value = Range(G5).Value + Range(F7).Value
End Sub

Je vous remercie

Bonjour,

If CheckBox1 = True Then ...

Bonjour Eric

Merci pour ton aide, mais cela ne fonctionne pas pourquoi mystère

J'ai trouvé en mettant le code sur la checkbox

???

Bonjour,

Il faut indiquer à VBA où se trouve la CheckBox1 en question. Il peut y en avoir d'autres dans d'autres feuilles.

Sub calcul()
With ActiveSheet
    If .CheckBox1 = True Then Range("G5") = Range("G5") + Range("F7")
End With
End Sub

Dans cet exemple, la feuille active est prise en compte

Pour Range, il faut mettre la cellule entre "", le .Value est superflu.

A la place de Range, il est plus facile d'utiliser Cells (ligne, colonne). Ligne et colonne peuvent être remplacées par des variables.

Bonne journée