Bouton pour masquer ou faire apparaitre des colonnes

[Tybo]

Bonjour,

j'aimerai savoir comment créer un bouton qui, lorsqu'on clique dessus, fait apparaître certaines colonnes cachées et lorsqu'on reclique dessus les cache à nouveau.

Comment faire ???? Est-ce une macro ? C'est simplement pour ne pas encombrer une feuille avec des données utilisées dans des listes de choix qui ne changeront que rarement.

D'avance merci

 

[wilfried_42]

Re : Bouton pour masquer ou faire apparaitre des colonnes

bonjour tybo

oui c'est une macro

un fichier exemple

 

[Hervé]

Re : Bouton pour masquer ou faire apparaitre des colonnes

bonjour 🙂

on peut simplifier le code :

Sub Bouton1_QuandClic()
    Range("B1, D1, E1, G1").EntireColumn.Hidden = Not Range("B1").EntireColumn.Hidden
End Sub

salut

 

[mj0505]

Re : Bouton pour masquer ou faire apparaitre des colonnes

Qu'est-ce qui ne va pas avec ce code. J'ai toujours un message d'erreur lorsque je rajoute la colonne CA1 (Method 'Range' of object Global failed)
Voici mon code......Aidez-moi s'il vous plait......
Sub CheckBox11615_Click()
Range("I1, J1, K1, L1, M1, N1, O1, P1, Q1, R1, S1, T1, U1, V1, W1, X1, Y1, Z1, AA1").EntireColumn.Hidden = Not Range("I1").EntireColumn.Hidden
End Sub
Sub CheckBox11616_Click()
Range("AB1, AC1, AD1, AE1, AF1, AG1, AH1, AI1, AJ1, AK1, AL1, AM1, AN1, AO1, AP1, AQ1, AR1, AS1, AT1, AU1, AV1, AW1, AX1, AY1, AZ1, BA1, BB1, BC1, BD1, BE1, BF1, BG1, BH1, BI1, BJ1, BK1, BL1, BM1, BN1, BO1, BP1, BQ1, BR1, BS1, BT1, BU1, BV1, BW1, BX1, BY1, BZ1, CA1").EntireColumn.Hidden = Not Range("AB1").EntireColumn.Hidden
End Sub

 

[Fo_rum]

Re : Bouton pour masquer ou faire apparaitre des colonnes

salut

tes colonnes étant consécutives, essaie

[I1: AA1].EntireColumn.Hidden = Not [I1].EntireColumn.Hidden
...
[AB1:CA1].EntireColumn.Hidden = Not [AB1].EntireColumn.Hidden

 

[mj0505]

Re : Bouton pour masquer ou faire apparaitre des colonnes

Bonjour Fo,
ça ne fonctionne pas. voici le message d'erreur obtenu.
Sub CheckBox11616_Click() (souligné en jaune)
Range [AB1:CA1].EntireColumn.Hidden = Not Range(AB1).EntireColumn.Hidden
End Sub

 

[Fo_rum]

Re : Bouton pour masquer ou faire apparaitre des colonnes

Re

Bonjour Fo,
ça ne fonctionne pas. voici le message d'erreur obtenu.
Sub CheckBox11616_Click() (souligné en jaune)
Range [AB1:CA1].EntireColumn.Hidden = Not Range(AB1).EntireColumn.Hidden
End Sub

j'ai remplacé Range("AB1") par [AB1]...
Excuse moi si je t'ai induit en erreur.
Soit tu copies le code tel que je te l'ai donné soit tu passes par

...
Range("AB1:CA1").EntireColumn.Hidden = Not Range("AB1").EntireColumn.Hidden

 

[mj0505]

Re : Bouton pour masquer ou faire apparaitre des colonnes

GROS MERCI FO RUM
ça fonctionne.