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

Pierrot93

XLDnaute Barbatruc

• 25 Octobre 2013

• #2

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

Bonjour,

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

Code:

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
@+

 

Vote positif 0 Vote négatif

S

sgarnung

Guest

• 25 Octobre 2013

• #3

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

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 25 Octobre 2013

• #4

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

Bonsoir à tous

Ceci fonctionne sur mon PC (Excel 2013)

Code:

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

 

Dernière édition: 25 Octobre 2013

Vote positif 0 Vote négatif

S

sgarnung

Guest

• 26 Octobre 2013

• #5

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

 

Vote positif 0 Vote négatif