Boucle dans un Array ?

Version imprimable

Bonjour à tous,

Je dois exécuter ce code pour tous les mois de l'année :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
'----
Sub Scroll_And_Window_Appliquer()
 
    Application.ScreenUpdating = False
 
    Sheets("Janvier").Activate
        With ActiveSheet
            .ScrollArea = "A1:N100"
            .Columns("A:N").Select
            With ActiveWindow
                .Zoom = True
                .Zoom = ActiveWindow.Zoom '- 1.5
            End With
            [c9].Select
        End With
 
    Sheets("Février").Activate
        With ActiveSheet
            .ScrollArea = "A1:N100"
            .Columns("A:N").Select
            With ActiveWindow
                .Zoom = True
                .Zoom = ActiveWindow.Zoom '- 1.5
            End With
            [c9].Select
        End With
Etc...
'----

Je pensais faire une boucle à partir de :

Code:

1
2
3
4
'----
Sheets(Array("Janvier", "Février", "Mars", "Avril", "Mai", "Juin", "Juillet", "Août", _
        "Septembre", "Octobre", "Novembre", "Décembre")).Select
'----

Je n'y parviens pas ! Est-ce possible ?
Nota : Je voudrais éviter une boucle à partir des "CodeName" car il y a plus de feuilles dans le classeur que les onglets "Mois" et les CodeName ne correspondent pas forcément au numéro de Mois (Janvier = 1 ; Février = 2 ; etc.)

Merci d'avance pour votre aide,

jpma75

PS : C'est ma première intervention sur le forum ; merci pour votre tolérance.

Bonjour,
Une solution en utilisant la boucle For Each In
Petit exemple ci-dessous

Code:

1
2
3
4
5
6
 Dim sht As Worksheet
 For Each sht In Worksheets(Array("Janvier", "Février", "Mars", "Avril"))
  With sht
   .Range("B2:F20").Interior.Color = vbYellow
  End With
 Next

Bonjour,

Essayez

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Sub Scroll_And_Window_Appliquer()
Dim Mois As Variant
Dim i&
 
Mois = Array("Janvier", "Février", "Mars", "Avril", "Mai", "Juin", "Juillet", "Août", _
           "Septembre", "Octobre", "Novembre", "Décembre")
Application.ScreenUpdating = False
For i& = LBound(Mois) To UBound(Mois)
  Sheets(Mois(i&)).Select
  With ActiveSheet
  .ScrollArea = "A1:N100"
  .Columns("A:N").Select
  With ActiveWindow
  .Zoom = True
  .Zoom = ActiveWindow.Zoom '- 1.5
  End With
  [c9].Select
  End With
Next i&

(Réponse pour Philippe)

Merci,
Cela fonctionne bien pour désactiver les Scroll, mais dans le cas présent, si je fais :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 '-- Dim sh As Worksheet For Each sh In Worksheets(Array("Janvier", "Février", "Mars", "Avril", "Mai", "Juin", "Juillet", "Août", _ "Septembre", "Octobre", "Novembre", "Décembre")) With sh .ScrollArea = "A1:N100" .Columns("A:N").Select With ActiveWindow .Zoom = True .Zoom = ActiveWindow.Zoom '- 1.5 End With [c9].Select End With '---
cela me renvoie "Erreur d'exécution 1004 - La méthode select de la classe Range a échoué"

La ligne surlignée en jaune est : ".Columns("A:N").Select"

Citation:

Envoyé par PMO2017

Bonjour,

Essayez

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Sub Scroll_And_Window_Appliquer()
Dim Mois As Variant
Dim i&
 
Mois = Array("Janvier", "Février", "Mars", "Avril", "Mai", "Juin", "Juillet", "Août", _
           "Septembre", "Octobre", "Novembre", "Décembre")
Application.ScreenUpdating = False
For i& = LBound(Mois) To UBound(Mois)
  Sheets(Mois(i&)).Select
  With ActiveSheet
  .ScrollArea = "A1:N100"
  .Columns("A:N").Select
  With ActiveWindow
  .Zoom = True
  .Zoom = ActiveWindow.Zoom '- 1.5
  End With
  [c9].Select
  End With
Next i&