Discussion :

[alexis66500]

Bonjour à tous,

Voilà j'ai un classeur excel qui contient environ 50 feuilles qui doivent avoir une mise en forme identique.

Je doit créer un nouveaux classeur tous les mois, j'enregistre donc une copie sous un autre nom et je remets en forme chaque feuille du classeur.

J'ai donc enregistrer une macro permettant de recopier la mise en forme de la première feuille sur toutes les autres pages mais pour se faire j'ai recopier 50 fois le code en changeant le nom de la feuille à chaque fois.

Ma question est existe t'il une commande permettant en gros de dire à excel de continuer la macro jusqu'à ce qu'il n'y ai plus de page à traiter ??

En gros ce que j'ai fait ressemble à ca :

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
   Sheets("lot3c1").Select
    Rows("10:43").Select
    Selection.Copy
    Sheets("lot3c2").Select
    Range("A10").Select
    Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False
    Range("A10").Select
    Sheets("lot3c1").Select
    ActiveWindow.SmallScroll Down:=-18
    Range("A10").Select
    Sheets("lot3c2").Select
 
    Sheets("lot3c1").Select
    Rows("10:43").Select
    Selection.Copy
    Sheets("lot3c3").Select
    Range("A10").Select
    Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False
    Range("A10").Select
    Sheets("lot3c1").Select
    ActiveWindow.SmallScroll Down:=-18
    Range("A10").Select
    Sheets("lot3c3").Select
 
    Sheets("lot3c1").Select
    Rows("10:43").Select
    Selection.Copy
    Sheets("lot3c4").Select
    Range("A10").Select
    Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False
    Range("A10").Select
    Sheets("lot3c1").Select
    ActiveWindow.SmallScroll Down:=-18
    Range("A10").Select
    Sheets("lot3c4").Select
 
'.....

Cela fonctionne mais ce n'ai pas pratique car si je rajoute une feuille, il faut que je change la macro...

Voilà si quelqu'un peut m'aider...

Merci et bonnes fêtes à tous !!

[jfontaine]

bonjour,

Le code ci dessous te permet de boucler sur toutes les feuilles du classeur

il te reste a adapter a ta macro et besoin

Code :

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

1
2
3
4
5
6
 
Dim sh As Worksheet
 
For Each sh In ThisWorkbook.Worksheets
    'code  effectuer sur la feuille
Next

[Philippe Tulliez]

Bonjour,
Il y a plusieurs solutions en voici une
La procédure doit être enregistrée dans un module (Insertion/Module)
La procédure fait une boucle de 2 à nombre de feuilles du classeur
fait un collage spécial sur les feuilles "lot3c" & sht (2 à x)
un moment donné la procédure se met en erreur tentant de faire un collage sur une feuille inexistante et la procédure interceptée s'arrête
Cela présuppose que les feuilles sont bien nommées de 2 à x sans interruption
Bonne journée
Philippe Tulliez

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
 
 Sub CopySheet()
  Dim sht As Integer
  Sheets("lot3c1").Rows("10:43").Copy
  ' Parcourt toute les feuilles du classeur
  For sht = 2 To ThisWorkbook.Worksheets.count
    On Error GoTo chkerror
    With Sheets("lot3c" & sht).Range("A10")
    .PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone
    End With
  Next
  Application.CutCopyMode = False
  Exit Sub
chkerror:
 If Err.Number = 9 Then
   ' L'indice n'appartient pas à la description
   Application.CutCopyMode = False
   On Error GoTo 0
   Exit Sub ' Fin de la procédure
  Else
   ' Autre erreur que 9
   MsgBox "Erreur " & Err.Number
  End If
End Sub

[alexis66500]

J'ai essayé la solution de corona qui était la plus simple pour moi, ça fonctionne super bien. Il ne me reste plus qu'a l'étudier pour comprendre comment ca marche.

Merci beaucoup