Problème macro cache colonne quand trop de colonne à cacher

[franqui35]

Bonjour à tous,

Petit soucis de mon côté, j'ai bien réussi à mettre en place une macro pour masquer quelques colonnes à l'aide d'un bouton, mais sur l'une d'entre elle quand il s'agit de masquer plus d'une vingtaine de colonne ça ne fonctionne plus.

Ci après ma macro qui me pose problème
Sub CommandButton1_Click()
If
Range("AB:AB,AC:AC,AD:AD,AE:AE,AF:AF,AG:AG,AH:AH,AI:AI,AJ:AJ,AK:AK,AL:AL,AM:AM,AN:AN,AO:AO,AP:AP,AQ:AQ,AR:AR,AS:AS,AT:AT,AU:AU,AV:AV,AW:AW,AX:AX,AY:AY,AZ:AZ,BA:BA,BB:BB,BC:BC,BD:BD,BE:BE,BF:BF,BG:BG,BH:BH,BI:BI,BJ:BJ,BK:BK,BL:BL,BM:BM,BN:BN,BO:BO,BP:BP,BQ:BQ,BR:BR,BS:BS,BT:BT,BU:BU,BV:BV,BW:BW,BX:BX,BY:BY,BZ:BZ,CA:BA,CB:CB,CC:CC,CD:CD,CE:CE,CF:CF,CG:CG,CH:CH,CI:CI,CJ:CJ,CK:CK,CL:CL,CM:CM,CN:CN,CO:CO,CP:CP,CQ:CQ,CR:CR,CS:CS,CT:CT,CU:CU,CV:CV,CW:CW,CX:CX,CY:CY,CZ:CZ,DAA,DBB,DCC,DDD,DEE,DFF,DGG,DHH,DII,DJJ,DKK,DLL,DMM,DNN,DOO,DPP,DQQ,DRR,DSS,DTT").EntireColumn.Hidden
= True Then
Range("AB:AB,AC:AC,AD:AD,AE:AE,AF:AF,AG:AG,AH:AH,AI:AI,AJ:AJ,AK:AK,AL:AL,AM:AM,AN:AN,AO:AO,AP:AP,AQ:AQ,AR:AR,AS:AS,AT:AT,AU:AU,AV:AV,AW:AW,AX:AX,AY:AY,AZ:AZ,BA:BA,BB:BB,BC:BC,BD:BD,BE:BE,BF:BF,BG:BG,BH:BH,BI:BI,BJ:BJ,BK:BK,BL:BL,BM:BM,BN:BN,BO:BO,BP:BP,BQ:BQ,BR:BR,BS:BS,BT:BT,BU:BU,BV:BV,BW:BW,BX:BX,BY:BY,BZ:BZ,CA:BA,CB:CB,CC:CC,CD:CD,CE:CE,CF:CF,CG:CG,CH:CH,CI:CI,CJ:CJ,CK:CK,CL:CL,CM:CM,CN:CN,CO:CO,CP:CP,CQ:CQ,CR:CR,CS:CS,CT:CT,CU:CU,CV:CV,CW:CW,CX:CX,CY:CY,CZ:CZ,DAA,DBB,DCC,DDD,DEE,DFF,DGG,DHH,DII,DJJ,DKK,DLL,DMM,DNN,DOO,DPP,DQQ,DRR,DSS,DTT").EntireColumn.Hidden
= False
Boutton1 = "Masquer colonnes"
Exit Sub
Else
Range("AB:AB,AC:AC,AD:AD,AE:AE,AF:AF,AG:AG,AH:AH,AI:AI,AJ:AJ,AK:AK,AL:AL,AM:AM,AN:AN,AO:AO,AP:AP,AQ:AQ,AR:AR,AS:AS,AT:AT,AU:AU,AV:AV,AW:AW,AX:AX,AY:AY,AZ:AZ,BA:BA,BB:BB,BC:BC,BD:BD,BE:BE,BF:BF,BG:BG,BH:BH,BI:BI,BJ:BJ,BK:BK,BL:BL,BM:BM,BN:BN,BO:BO,BP:BP,BQ:BQ,BR:BR,BS:BS,BT:BT,BU:BU,BV:BV,BW:BW,BX:BX,BY:BY,BZ:BZ,CA:BA,CB:CB,CC:CC,CD:CD,CE:CE,CF:CF,CG:CG,CH:CH,CI:CI,CJ:CJ,CK:CK,CL:CL,CM:CM,CN:CN,CO:CO,CP:CP,CQ:CQ,CR:CR,CS:CS,CT:CT,CU:CU,CV:CV,CW:CW,CX:CX,CY:CY,CZ:CZ,DAA,DBB,DCC,DDD,DEE,DFF,DGG,DHH,DII,DJJ,DKK,DLL,DMM,DNN,DOO,DPP,DQQ,DRR,DSS,DTT").EntireColumn.Hidden
= True
Boutton1 = "Afficher colonnes"
End If
End Sub

Et je vous joint le fichier que je construis.

D'avance merci pour votre aide précieuse.

 

[SubEndSub]

Re : Problème macro cache colonne quand trop de colonne à cacher

Bonjour chez vous


A priori

If Range("AB:AB,AC:AC,AD:AD,AE:AE,AF:AF,AG:AG,AH:AH,AI:AI,AJ:AJ,AK:AK,AL:AL,AM:AM,AN:AN,AO:AO,AP:AP,AQ:AQ,AR:AR,AS:AS,AT:AT,AU:AU,AV:AV,AW:AW,AX:AX,AY:AY,AZ:AZ,BA:BA,BB:BB,BC:BC,BD:BD,BE:BE,BF:BF,BG:BG,BH:BH,BI:BI,BJ:BJ,BK:BK,BL:BL,BM:BM,BN:BN,BO:BO,BP:BP,BQ:BQ,BR:BR,BS:BS,BT:BT,BU:BU,BV:BV,BW:BW,BX:BX,BY:BY,BZ:BZ,CA:BA,CB:CB,CC:CC,CD:CD,CE:CE,CF:CF,CG:CG,CH:CH,CI:CI,CJ:CJ,CK:CK,CL:CL,CM:CM,CN:CN,CO:CO,CP:CP,CQ:CQ,CR:CR,CS:CS,CT:CT,CU:CU,CV:CV,CW:CW,CX:CX,CY:CY,CZ:CZ,DA:DA,DB:DB,DC:DC,DD:DD,DE:DE,DF:DF,DG:DG,DH:DH,DI:DI,DJ:DJ,DK:DK,DL:DL,DM:DM,DN:DN,DO:DO,DP:DP,DQ:DQ,DR:DR,DS:DS,DT:DT").EntireColumn.Hidden = True Then

peut se réduire à

If Range("AB:DT").EntireColumn.Hidden = True Then