Discussion :

[zazoub]

Bonjour à tous,
Je débute sur vba et je bloque sur un programme.
J'ai un classeur Excel avec 24 feuilles très complètes, et je souhaite appliquer la même macro sur ces feuilles. J'ai réussi à trouver un code :

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
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
Sub restitution_generale()
 
Application.ScreenUpdating = False
 
     Sheets("WIT FR BT ANDROID (fight club)").Select
     Call Module8.restitution
     Sheets("WIT FR BT ANDROID (On TV)").Select
    Call Module8.restitution
     Sheets("WIT FR BT ANDROID (speed race)").Select
     Call Module8.restitution
     Sheets("WIT FR BT ANDROID Humanity").Select
    Call Module8.restitution
     Sheets("WIT FR BT ios fight club").Select
   Call Module8.restitution
     Sheets("WIT FR BT ios On TV").Select
     Call Module8.restitution
     Sheets("WIT FR BT ios speed ra").Select
     Call Module8.restitution
     Sheets("WIT FR BT ios Humanity").Select
    Call Module8.restitution
     Sheets("WIT FR sfr ios fight club").Select
     Call Module8.restitution
     Sheets("WIT FR sfr ios On TV ").Select
     Call Module8.restitution
     Sheets("WIT FR sfr ios speed race").Select
     Call Module8.restitution
     Sheets("WIT FR sfr ios Humanity").Select
     Call Module8.restitution
     Sheets("WIT FR sfr and fight club").Select
   Call Module8.restitution
     Sheets("WIT FR sfr and On TV").Select
     Call Module8.restitution
     Sheets("WIT FR sfr and speed race").Select
  Call Module8.restitution
    Sheets("WIT FR sfr and Humanity").Select
    Call Module8.restitution
      Sheets("WIT FR or and fight club").Select
      Call Module8.restitution
      Sheets("WIT FR or and On TV").Select
     Call Module8.restitution
      Sheets("WIT FR or and speed race").Select
    Call Module8.restitution
      Sheets("WIT FR or and Humanity").Select
     Call Module8.restitution
      Sheets("WIT FR or ios fight club ").Select
    Call Module8.restitution
      Sheets("WIT FR or ios On TV").Select
    Call Module8.restitution
      Sheets("WIT FR or ios speed race").Select
   Call Module8.restitution
       Sheets("WIT FR or ios Humanity").Select
     Call Module8.restitution
 
     Application.ScreenUpdating = True
 
    ActiveWorkbook.Save
 
 
End Sub

Cependant, il s'exécute en 20 minutes...
J'ai essayé de selectionner l'ensemble des feuilles avec Sheets(Array..), mais dans ce cas le code ne s'applique que sur la 1e feuille sélectionnée.
Si quelqu'un a une idée je suis preneuse,
Merci à tous, bonne journée !!

[Thautheme]

Bonjour Zazoub, bonjour le forum,

Pour essayer de comprendre la lenteur, c'est plutôt le code de la macro restitution du module8 qu'il nous faudrait...

[Menhir]

La première chose que je ferais, c'est le mettre en paramètre de Module8.restitution, le nom de l'onglet à traiter.
Ca éviterait déjà tous ces Select.

Cela dit, comme déjà signalé par Thautheme, la lenteur vient certainement du contenu de Module8.restitution.
Tant qu'on ne sait rien du contenu de ce code, difficile savoir si on peut l'améliorer.