Conditions checkbox non fonctionnelles

Bonjour,

J'ai créée une checkbox avec deux actions distinctes selon son état. Lorsque la valeur de la checkbox est vraie les colonnes F à H sont masquées et lorsqu'elle est fausse les colonnes F à H sont affichées.

Le problème est que peu importe la valeur de la checkbox on passe toujours par Else alors qu'on devrait passer par Then lorsqu'elle est vrai.

Voici le bout de macro :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

Private Sub CheckBox1_Click()   If CheckBox1_value = True Then   Columns("F:H").Select Selection.EntireColumn.Hidden = True MsgBox Me.CheckBox1.Value MsgBox "then"   Else: Columns("F:H").Select Selection.EntireColumn.Hidden = False MsgBox Me.CheckBox1.Value MsgBox "else" End If   End Sub

---

Bonjour,

Pourquoi compliquer si l'on peux faire simple :

Code:

---

1 2 3 4 5 6 7 8 9

Private Sub CheckBox1_Click()   If CheckBox1 Then Columns("F:H").Hidden = True Else Columns("F:H").Hidden = False End If   End Sub

---

Bonjour,

On peut, et il le faut, user des variables booléennes comme des variables numériques.
D'où, encore plus simple

Code:

---

Worksheets(1).Columns("F:H").EntireColumn.Hidden = CheckBox1.Value

---

Sur ton code,
Enlève ces p... de Select!
Il est conseillé d'utiliser des noms de contrôles explicites en les préfixant Chx_moncheck pour une CheckBox, Txt_mazone pour une TextBox, etc..

Bonsoir,

Oui Marcel a raison, inutile évaluer un booléen si c'est pour mettre la même valeur à un autre booléen.

Code:

---

1 2 3 4 5

if true=true then true=true else false=false End if

---