Case a cocher dans userform

Bonjour dans un userform j'ai une case a cocher sur cette feuil1 j'ai une formule =SI(I3=VRAI;I2;"")

j'ai un problème pour valider la cellule sinon ma formule ne fonctionne pas

Merci de votre aide

Private Sub CheckBox1_Click()

If CheckBox1.Value = True Then

Sheets("feuil1").Range("i1") = "VRAI"

Else

Sheets("feuil1").Range("i1") = "FAUX"

End If

End Sub

Bonjour,

Ta formule fait référence à i3 et le checkbox écrit dans i1 ??????

ric

oui i1 erreur d’écriture

mais ça fonctionne pas j'ai pas problème de formule

juste j'ai besoin de valider la cellule vrai ou faux pour faire fonctionner ma formule

merci

Bonjour,

Il ne faut pas considérer Vrai et Faux comme des mots.

Mais comme une condition qui s'avère ou pas.

La formule, elle, ne change pas.

Le vba est anglais, Excel fait la traduction.

Le code sera donc ...

Private Sub CheckBox1_Click()
    If CheckBox1.Value = True Then
        Sheets("feuil1").Range("i1") = True
    Else
        Sheets("feuil1").Range("i1") = False
    End If
End Sub

ric

un grand merci ça fonctionne

Bonne soirée

Salut le fil...

ou...

Sheets("feuil1").Range("i1") = CheckBox1

Merci