Pb de macro pour cacher colonne

  • Initiateur de la discussion Initiateur de la discussion Tybo
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

Tybo

XLDnaute Junior
Bonjour,

j'ai un pb, je voudrais savoir pourquoi cette macro fonctionne :

Code:
Sub Cache_Colonne()
    If Range("B1").EntireColumn.Hidden = True Then ' La colonne est deja cachée
        Range("B1, C1, D1, E1, F1, G1, H1, I1, J1, K1, L1, M1, N1, O1, P1, Q1, R1, S1, T1, U1, V1, W1, X1, Y1, Z1, AA1, 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").EntireColumn.Hidden = False ' je les montre
    Else
        Range("B1, C1, D1, E1, F1, G1, H1, I1, J1, K1, L1, M1, N1, O1, P1, Q1, R1, S1, T1, U1, V1, W1, X1, Y1, Z1, AA1, 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").EntireColumn.Hidden = True ' je les cache
    End If
End Sub

et que celle-là ne fonctionne pas :
Code:
Sub Cache_Colonne()
    If Range("B1").EntireColumn.Hidden = True Then ' La colonne est deja cachée
        Range("B1, C1, D1, E1, F1, G1, H1, I1, J1, K1, L1, M1, N1, O1, P1, Q1, R1, S1, T1, U1, V1, W1, X1, Y1, Z1, AA1, 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").EntireColumn.Hidden = False ' je les montre
    Else
        Range("B1, C1, D1, E1, F1, G1, H1, I1, J1, K1, L1, M1, N1, O1, P1, Q1, R1, S1, T1, U1, V1, W1, X1, Y1, Z1, AA1, 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").EntireColumn.Hidden = True ' je les cache
    End If
End Sub
Je rajoute juste une colonne à cacher... je ne comprends pas...

De plus y'aurait il un moyen de noter des intervalles plutôt que de faire colonne par colonne ???

D'avance merci
 
Re : Pb de macro pour cacher colonne

Bonjour,

Déjà je pense que tu irais plus vite en faisant :
Code:
Sub Cache_Colonne()
    If Range("B1").EntireColumn.Hidden = True Then ' La colonne est deja cachée
        Range("B1:BF1").EntireColumn.Hidden = False ' je les montre
    Else
        Range("B1:BF1").EntireColumn.Hidden = True ' je les cache
    End If
End Sub
Cordialement
 
Re : Pb de macro pour cacher colonne

Salut Tybo, Le Forum

Essaye ca:

PHP:
Sub Cache_Colonne()
    If Range("B1").EntireColumn.Hidden = True Then ' La colonne est deja cachée
        Range("B1:BF1").EntireColumn.Hidden = False ' je les montre
    Else
        Range("B1:BF1").EntireColumn.Hidden = True ' je les cache
    End If
End Sub
Bonne Journée

PS: et de 2... Salut Spitnolan (C'estpasvraic'quejesuislent) 😱
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

C
Réponses
0
Affichages
2 K
Caninge
C
C
Réponses
4
Affichages
2 K
Caninge
C
C
Réponses
0
Affichages
2 K
Caninge
C
Retour