Discussion :

[jib orhan]

Bonjour,

J'aimerais simplement créer une macro en boucle.
Ma macro est la suivante : masquer 3 colonnes successives sur toute la feuille en intercalant les colonnes masquées d'une colonne (pour ne faire apparaître que les colonnes d, h, l, etc.).
Ma macro tapée à la chaîne est ci-dessous mais je n'en ai pas fini si je tape les colonnes une par une...

Quelqu'un peut-il m'aider à créer une boucle ?

D'avance merci !!!

JB

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Sub Masquer3années()
 '
 ' Macro6 Macro
 '
 
 ' Columns("a:c").Select
 Selection.EntireColumn.Hidden = True
 Columns("e:g").Select
 Selection.EntireColumn.Hidden = True
 Columns("i:k").Select
 Selection.EntireColumn.Hidden = True
 ...
 ...
 ...
 Range("a1").Select
 End Sub

[Invité]

Regarde ça

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Sub test()
For i = 1 To 16 Step 4
    ActiveSheet.Range(ActiveSheet.Cells(1, i), ActiveSheet.Cells(1, i + 2)).EntireColumn.Hidden = True
Next
End Sub

[mercatog]

Autrement et dans la même logique

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Sub Test()
Dim i As Integer
 
With Worksheets("Feuil1")
    For i = 1 To 200 Step 4
        .Columns(i).Resize(, 3).Hidden = True
    Next i
End With
End Sub

[jib orhan]

Super ! Merci beaucoup pour vos réponses rapide.

Les 2 codes fonctionnent.
Par contre j'aimerais maintenant faire apparaître DEUX colonnes entre les colonnes masquées (pour ne faire apparaître que les colonnes d et e, i et j, n et o, etc.).
Ca me paraît simple mais j'ai essayé d'intégrer ce paramètre dans l'une et l'autre de vos macros et je n'y arrive pas !

Merci pour votre aide !

JB

[jib orhan]

Victoire !
Avec la macro de Mercatog, j'ai compris que "Resize(, 3)" était le nombre de colonnes masquées.
Donc j'ai ajusté ce chiffre pour masquer moins de colonnes.

Merci beaucoup pour votre aide !

JB