Aide pour simplifier un code VBA Excel

**NEC14** · 21/01/2008, 11h27

Bonjour à tous,

Est-il possible de simplifier ce code. Si oui, pouvez-vous m'aider car je ne sais pas le faire.
Je vous en remercie beaucoup.

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
Sub mef()
    Range("A1:K56").Select
    Range("K1").Activate
    ActiveSheet.PageSetup.PrintArea = "$A$1:$K$56"
    With ActiveSheet.PageSetup
        .PrintTitleRows = ""
        .PrintTitleColumns = ""
    End With
    ActiveSheet.PageSetup.PrintArea = "$A$1:$K$56"
    With ActiveSheet.PageSetup
        .LeftHeader = ""
        .CenterHeader = ""
        .RightHeader = ""
        .LeftFooter = ""
        .CenterFooter = ""
        .RightFooter = ""
        .LeftMargin = Application.InchesToPoints(0)
        .RightMargin = Application.InchesToPoints(0)
        .TopMargin = Application.InchesToPoints(0)
        .BottomMargin = Application.InchesToPoints(0)
        .HeaderMargin = Application.InchesToPoints(0)
        .FooterMargin = Application.InchesToPoints(0)
        .PrintHeadings = False
        .PrintGridlines = False
        .PrintComments = xlPrintNoComments
        .PrintQuality = 600
        .CenterHorizontally = True
        .CenterVertically = True
        .Orientation = xlPortrait
        .Draft = False
        .PaperSize = xlPaperA4
        .FirstPageNumber = xlAutomatic
        .Order = xlDownThenOver
        .BlackAndWhite = False
        .Zoom = 100
        .PrintErrors = xlPrintErrorsDisplayed
    End With
    Columns("I:I").Select
    Selection.ColumnWidth = 9.14
    Range("A12").Select
End Sub

**canichon** · 21/01/2008, 12h11

Salut a toi,

il est clair que tu ne dois pas avoir besoin de tous ces parametres d'impression mais le probleme est que nous ne savons pas lesquels te sont utiles.

La premiere simplification pourrait etre a suivante :

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
 
Sub mef()
    ActiveSheet.PageSetup.PrintArea = "$A$1:$K$56"
    With ActiveSheet.PageSetup
        .PrintTitleRows = ""
        .PrintTitleColumns = ""
        .LeftHeader = ""
        .CenterHeader = ""
        .RightHeader = ""
        .LeftFooter = ""
        .CenterFooter = ""
        .RightFooter = ""
        .LeftMargin = Application.InchesToPoints(0)
        .RightMargin = Application.InchesToPoints(0)
        .TopMargin = Application.InchesToPoints(0)
        .BottomMargin = Application.InchesToPoints(0)
        .HeaderMargin = Application.InchesToPoints(0)
        .FooterMargin = Application.InchesToPoints(0)
        .PrintHeadings = False
        .PrintGridlines = False
        .PrintComments = xlPrintNoComments
        .PrintQuality = 600
        .CenterHorizontally = True
        .CenterVertically = True
        .Orientation = xlPortrait
        .Draft = False
        .PaperSize = xlPaperA4
        .FirstPageNumber = xlAutomatic
        .Order = xlDownThenOver
        .BlackAndWhite = False
        .Zoom = 100
        .PrintErrors = xlPrintErrorsDisplayed
    End With
    Columns("I:I").ColumnWidth = 9.14
End Sub

donne nous plus de details sur les parametres dont tu as besoin...

**NEC14** · 21/01/2008, 13h17

Bonjour,

En fait, lorsque j'enregistre la feuille, je souhaite que la mise ne page soit faite, la zone d'impression sélectionnée. Je fais cela car si un utilisateur veut rééditer la feuille (c'est un bon de commande) il n'est pas à faire toutes ces manipulations.
Merci pour ton aide

**canichon** · 21/01/2008, 13h20

ceci devrait etre suffisant alors

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
Sub mef()
    ActiveSheet.PageSetup.PrintArea = "$A$1:$K$56"
    With ActiveSheet.PageSetup
        .CenterHorizontally = True
        .CenterVertically = True
        .Orientation = xlPortrait
        .PaperSize = xlPaperA4
        .Zoom = 100
    End With
    Columns("I:I").ColumnWidth = 9.14
End Sub

**NEC14** · 21/01/2008, 15h29

ça marche à ceci près que les marges ne sont pas à zéro. Comment faire ?

Bonjour,

Pour les marges, j'ai trouvé. Par contre la colonne I ne se met pas à la largeur désirée.
Voici le code tel qu'il est dans mon application, merci pour vos suggestions.

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
Private Sub CmbSave_Click()
Cells.Select
Selection.Copy
Workbooks.Add
ActiveSheet.Paste
Application.Dialogs(xlDialogSaveAs).Show ("S:\FORMULAIRES\BON DE COMMANDE\BC 2008")
    ActiveSheet.PageSetup.PrintArea = "$a$1:$k$56"
    With ActiveSheet.PageSetup
    Columns("i:i").ColumnWidth = 8.71
        .CenterHorizontally = True
        .CenterVertically = True
        .Orientation = xlPortrait
        .PaperSize = xlPaperA4
        .Zoom = 100
        .LeftMargin = Application.InchesToPoints(0)
        .RightMargin = Application.InchesToPoints(0)
        .TopMargin = Application.InchesToPoints(0)
        .BottomMargin = Application.InchesToPoints(0)
        .HeaderMargin = Application.InchesToPoints(0)
        .FooterMargin = Application.InchesToPoints(0)
    End With
Windows("Factures.xls").Activate
Sheets("FormulCD").Select
Range("g6,h14,k11,k15,d24,d25,a28:j42").Select
Range("a28").Activate
Selection.ClearContents
Range("L11").Select
Sheets("FormulCD").Visible = False
Sheets("Engagements").Activate
End Sub