Afficher/massquer une colonne d'après la valeur d'une celllule

[sgarnung]

bonjour à tous;
j'ai une colonne (A par exemple) que je souhaite afficher ou masquer selon la valeur d'une cellule.
J'ai joint un exemple. J'ai écrit le programme ci-dessous mais cela ne fonctionne pas.
Merci pour votre aide

Sub Caseàcocher1_Clic()

If Range("B1").Value = VRAI Then Columns("A:A").Select
Selection.EntireColumn.Hidden = True

If Range("b1").Value <> VRAI Then Columns("A:A").Select
Columns("A:A").ColumnWidth = 5
End Sub

 

[Pierrot93]

Re : Afficher/massquer une colonne d'après la valeur d'une celllule

Bonjour,

pas ouvert ton fichier, mais regarde peut être ceci :

Option Explicit
Sub Caseàcocher1_Clic()
If Range("B1").Value = True Then
    With Columns("A:A")
        .Hidden = True
        .ColumnWidth = 5
    End With
End If
End Sub

bon après midi
@+

 

[sgarnung]

Re : Afficher/massquer une colonne d'après la valeur d'une celllule

merci pour votre aide. Pour l'instant je n'arrive pas à la faire fonctionner mais je ne suis pas un pro des macros.
Bon am

 

[Staple1600]

Re : Afficher/massquer une colonne d'après la valeur d'une celllule

Bonsoir à tous

Ceci fonctionne sur mon PC (Excel 2013)

Sub Caseàcocher1_Cliquer()
Columns(1).EntireColumn.Hidden = Not Columns(1).EntireColumn.Hidden
End Sub

Si tu coches, cela masque, si tu décoches cela affiche la colonne A.

C'est une case à cocher issue de la barre outils Formulaire.

PS: Je ne m'occupe pas de B1 qui je suppose est la cellule liée à la case à cocher

 

[sgarnung]

Re : Afficher/massquer une colonne d'après la valeur d'une celllule

Effectivement Cela marche. Merci beaucoup pour le temps que vous avez passé.
Stéphane