Bouton pour masquer ou faire apparaitre des colonnes

wilfried_42

XLDnaute Barbatruc

• 18 Avril 2007

• #2

Re : Bouton pour masquer ou faire apparaitre des colonnes

bonjour tybo

oui c'est une macro

un fichier exemple

 

Pièces jointes

• cache_colonne.xls

  23 KB · Affichages: 2 196

Vote positif 0 Vote négatif

Hervé

XLDnaute Barbatruc

• 19 Avril 2007

• #3

Re : Bouton pour masquer ou faire apparaitre des colonnes

bonjour 🙂

on peut simplifier le code :

Code:

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

salut

 

Vote positif 0 Vote négatif

M

mj0505

Guest

• 30 Mars 2010

• #4

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

 

Vote positif 0 Vote négatif

F

Fo_rum

XLDnaute Accro

• 30 Mars 2010

• #5

Re : Bouton pour masquer ou faire apparaitre des colonnes

salut

tes colonnes étant consécutives, essaie

Code:

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

 

Vote positif 0 Vote négatif

M

mj0505

Guest

• 30 Mars 2010

• #6

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

 

Vote positif 0 Vote négatif

F

Fo_rum

XLDnaute Accro

• 30 Mars 2010

• #7

Re : Bouton pour masquer ou faire apparaitre des colonnes

Re

mj0505 à dit:

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

Cliquez pour agrandir...

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

Code:

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

 

Vote positif 0 Vote négatif

M

mj0505

Guest

• 30 Mars 2010

• #8

Re : Bouton pour masquer ou faire apparaitre des colonnes

GROS MERCI FO RUM
ça fonctionne.

 

Vote positif 0 Vote négatif