Discussion :

[Goku.]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[anasecu]

Bonjour,

Pourquoi compliquer si l'on peux faire simple :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[MarcelG]

Bonjour,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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..

[Invité]

Bonsoir,

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

Code ridicule? :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
if true=true then 
      true=true 
else
     false=false
End if