Comment créer une macro en boucle sous excel ?

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:

---

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

---

Regarde ça

Code:

---

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

---

Autrement et dans la même logique

Code:

---

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

---

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

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