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