Discussion :

[jpma75]

Bonjour à tous,

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

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
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 :

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

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.

[Philippe Tulliez]

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

Code :

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

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

[PMO2017]

Bonjour,

Essayez

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
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&

[jpma75]

(Réponse pour Philippe)

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

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
'--
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"

[jpma75]

Bonjour,

Essayez

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
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&