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