Masquer/afficher colonnes

Question

J'ai un code Macro pour masquer/afficher des lignes (45 à partir de la 2ème ligne) et qui se répète à chaque fois que je lance la macro, inversement pour afficher. Je recherche la solution pour l'adapter en Colonne cette fois à partir de la colonne I (9?) et masquer/afficher 30 colonnes J'ai tenté de changer LI en COL sans succès. Merci! Sub Masquer()...

M12 · Answer

Il te faut remplacer les ROWS (ligne) par COLUMNS (colonne) Bonjour, Il te faut remplacer les ROWS (ligne) par COLUMNS (colonne)...

M12 · Answer

Re,

Peut-être comme cela

Sub Masquer()
Dim COL As Variant

COL = 9
Do Until Columns(COL).Hidden = False
COL = COL + 30
Loop
Columns(COL).Resize(9, 30).Hidden = True
End Sub

Sub Afficher()
Dim COL As Variant 'déclare la variable LI (LIgne)

COL = 9 'initialise la variable LI
Do Until Columns(COL).Hidden = False 'exécute tant que la ligne LI est visible
COL = COL + 30 'incrémente LI de 1 ligne
Loop 'boucle
If COL < 31 Then Exit Sub 'si LI est inférieur à 46, sort de la procédure
Columns(COL - 30).Resize(9, 30).Hidden = False 'affiche 45 lignes à partir de LI - 45
End Sub