VBA : Case à cocher

[pepsi]

Bonjour

Je voudrais cocher automatiquement des cases à cocher en fonction d'une saisie dans une cellule.

Pour cela, j'ai insérer ce code VBA qui ne marche pas : la case à cocher ne se coche pas toute seule.

Sub case_coche()

If Worksheets("feuil1").Range("E43").Value = 1 Then _

Worksheets("feuil1").Range("E6").Value = "VRAI" 

End If
End Sub

J'ai aussi essayé sans guillemets sans succès

Sub case_coche()

If Worksheets("feuil1").Range("E43").Value = 1 Then _

Worksheets("feuil1").Range("E6").Value = VRAI

End If
End Sub

J'espère que quelqu’un sait comment faire ! 😕

 

[Dranreb]

Re : VBA : Case à cocher

Bonjour.
La cellule E6 de feuil1 est elle bien indiquée comme cellule liée à la case à cocher ?
Ah et puis la constante booléenne VRAI s'écrit True en VBA.
Pour ne pas me tromper j'aurais écrit

Feuil1.[E6].Value = Feuil1.[E43].Value = 1

à supposer que Feuil1 soit le nom VBA de la feuille Excel "Feuil1".
À+

 

[Hippolite]

Re : VBA : Case à cocher

Bonjour,
Joins un petit fichier simplifié (au format .xls) car il y a plusieurs sortes de cases à cocher.
A+

 

[pepsi]

Re : VBA : Case à cocher

Exact !
Avec True ca marche bien mieux ! thanks 😉