Discussion :

[fribelle]

Bonjour !
J'ai un souci : j'ai créé une macro qui me permet de sélectionner toutes les pages en même temps, de mettre en format le tableau (quasiment identique, à part les données, sur toutes les feuilles) et qui devrait me faire une mise en page avant impression pour tous ces tableaux. Seulement, la mise en forme du tableau est parfaite pour tous, mais la mise en page ne s'éxécute que sur la première feuille ! Comment faire ?

[JackOuYA]

bonjour,

on pourrai voir ton code ?

[fribelle]

J'ai fait une boucle pour que la mise en page s'applique à tout, et ça marche, mais ça charge longtemps alors dès qu'il y a beaucoup d'onglets....bonjour le temps passé !
Je vous envoie mon bout de 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
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
 
Sub forme()
 
'boucle pour sélectionner toutes les feuilles
 
Dim TableDesFeuilles() As String
Dim i As Integer
Dim S As Worksheet
 
i = 0
 
For Each S In ActiveWorkbook.Sheets
ReDim Preserve TableDesFeuilles(i)
TableDesFeuilles(i) = S.Name
i = i + 1
Next
 
ActiveWorkbook.Sheets(TableDesFeuilles).Select
 
'mise en page
 
ActiveWindow.Zoom = 60
 
    Range("B3:L3").Select
    With Selection
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlCenter
        .WrapText = False
        .Orientation = 0
        .AddIndent = False
        .ShrinkToFit = False
        .MergeCells = False
    End With
 
Cells.Select
    Selection.ColumnWidth = 16
    Selection.RowHeight = 22
    Columns("B:B").Select
    Selection.ColumnWidth = 69
    Columns("H:H").Select
    Selection.ColumnWidth = 74
    Columns("G:G").Select
    Selection.ColumnWidth = 0.5
    Range("31:31").Select
    Selection.RowHeight = 5.25
    Range("4:4").Select
    Selection.RowHeight = 47.25
    Range("32:32").Select
    Selection.RowHeight = 47.25
 
compt = ThisWorkbook.Sheets.Count
For Each S In ActiveWorkbook.Sheets
 
    Sheets(compt + 1).Move Before:=Sheets(1)
 
    ActiveSheet.PageSetup.PrintArea = "$B$1:$L$50"
    With ActiveSheet.PageSetup
        .LeftHeader = ""
        .CenterHeader = ""
        .RightHeader = ""
        .LeftFooter = "Le &D"
        .CenterFooter = ""
        .RightFooter = "Direction Financière et du Pilotage de Gestion"
        .LeftMargin = Application.InchesToPoints(0.15748031496063)
        .RightMargin = Application.InchesToPoints(0)
        .TopMargin = Application.InchesToPoints(0)
        .BottomMargin = Application.InchesToPoints(0.31496062992126)
        .HeaderMargin = Application.InchesToPoints(0)
        .FooterMargin = Application.InchesToPoints(0.15748031496063)
        .PrintHeadings = False
        .PrintGridlines = False
        .PrintComments = xlPrintNoComments
        .PrintQuality = 600
        .CenterHorizontally = True
        .CenterVertically = True
        .Orientation = xlLandscape
        .Draft = False
        .PaperSize = xlPaperA4
        .FirstPageNumber = xlAutomatic
        .Order = xlDownThenOver
        .BlackAndWhite = False
        .Zoom = False
        .FitToPagesWide = 1
        .FitToPagesTall = 1
    End With
Range("A1").Select
Next
 
End Sub

[pgz]

Bonjour.

Essaie plutôt un truc de ce genre

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
Sub forme()
 Dim mySheet as Excel.Worksheet
 
'bloquer l'affichage pour gagner du temps
 
Application.ScreenUpdating = False
 
For each mySheet in application.ThisWorkbook.sheets
    'ici tu tiens une instance de feuille, l'une après l'autre. Evite d'utiliser des sélection
    mySheet.Range.Interior ...
   ...
 
next mySheet
 
Application.ScreenUpdating = True
set mySheet = Nothing
end sub

[fribelle]

Impeccable ce truc de bloquer l'affichage !!!
Merci beaucoup, c'est très rapide maintenant !!
Je crois que mon problème est résolu !
Merci encore