Discussion :

[Otiss]

Bonjour à tous,

Je dois, dans Excel, créer une macro VBA qui me permettra d'imprimer la feuille actuel dans mon classeur. Je début dans les macros VBA donc je ne sais pas comment le code activesheet.printout fonctionne. Mon but est de pouvoir imprimer, en cliquant sur un bouton, la feuille Excel présentement sélectionné, excepté les 3 premières lignes. J'essaie avec une macro comme celle-ci :

Code :

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

1
2
3
4
5
6
 
Sub Imprimer()
    Dim i As Integer
    i = 4
    ActiveSheet.PrintOut(i to columns.count)
End Sub

Bien entendu, je ne m'attendais vraiment pas a se que ma macro fonctionne, mais si quelqu'un pourait bien m'aider un peut :-)

[Theze]

Bonjour Otiss,

Test ce qui suit :

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
 
Sub Imprimer()
 
    Dim Plage As Range
 
    With ActiveSheet
 
        'défini la plage en commençant en A3
        'jusqu'à la dernière cellule non vide
        'de la feuille
        Set Plage = .Range(.Cells(3, 1), _
                    .Cells( _
                    .Cells.Find("*", .[A1], -4123, , _
                    1, 2).Row, _
                    .Cells.Find("*", .[A1], -4123, , _
                    2, 2).Column))
 
        'défini la zone d'impression
        .PageSetup.PrintArea = Plage.Address
 
        'aperçu avant impression
        .PrintPreview
 
        'impression
        .PrintOut
 
    End With
 
End Sub

Hervé.