Discussion :

[target111]

Bonjour,

voilà sur l'image en dessous je voudrais imprimer les lignes non vide de la colonne b à la colonne x bien évidement il y a des colonnes masquées qui contiennent des données j'ai essayé plusieurs macros mais sur l'aperçu avant impression sa donne impression de la page 1 a 20 alors que je n'aie que 2 feuilles



Merci d'avance pour vos réponses

Cordialement

[Theze]

Bonjour,

Il te faut définir la zone d'impression. Tu sélectionne les cellules devant être imprimées puis "Zone d'impression" --> "Définir" ou par VBA (ici, pour les cellules contenant des constantes) :

Code :

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

1
2
3
4
5
6
7
8
9
10
 
Sub Imprimer()
 
    With ActiveSheet
 
        .PageSetup.PrintArea = .Cells.SpecialCells(xlCellTypeConstants).Address
 
    End With
 
End Sub

Hervé.

[target111]

Bonjour,

merci pour ta réponse rapide je viens d'essayer ton code et à l'aperçu j'obtiens page de 1 à 11



Cordialement

[target111]

Bonjour,

J'ai essayé avec ce code

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Sub IMPRIMER()
With Worksheets("Achats")
ActiveSheet.PageSetup.PrintArea = Range("b1:x" & Range("C65536").End(xlUp).Row).Address
    With .PageSetup
        .PrintTitleRows = "$1:$1"                  'COPIE 1Ere LIGNE SUR CHAQUE FEUILLE
        .LeftHeader = "&""Arial,Gras""&D"          'AFFICHE DATE A GAUCHE
        .CenterHeader = "&""Arial,Gras""&14ACHATS MARTIN DESSERT" 'TITRE DE LA PAGE
        .CenterFooter = "Page &P de &N"            'INDIQUE PAGE 1 SUR 2 PAR Ex
    End With
    .PrintOut                                      'ENLEVER " ' " EN DEBUT LIGNE POUR IMPRIMER LA FEUILLE ACHATS
End With
End Sub

Mais j'obtiens toujour impression de la page 1 a 20

Cordialement

[Theze]

Bonjour,

La mise en page te montre les sauts de page donc tu dois bien voir si ta zone d'impression est correcte ou erronée, non ?
Dans ton code tu fais référence à la feuille "Achats" mais tu utilise la feuille active pour définir ta zone d'impression donc ma question est, ta feuille Achats est elle bien la feuille active au moment de l'exécution du code ? Sinon, regarde avec le code modifié ci-dessous :

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
 
Sub IMPRIMER()
 
    With Worksheets("Achats")
 
        With .PageSetup
 
            .PrintArea = .Range("b1:x" & .Range("C65536").End(xlUp).Row).Address
            .PrintTitleRows = "$1:$1"                  'COPIE 1Ere LIGNE SUR CHAQUE FEUILLE
            .LeftHeader = "&""Arial,Gras""&D"          'AFFICHE DATE A GAUCHE
            .CenterHeader = "&""Arial,Gras""&14ACHATS MARTIN DESSERT" 'TITRE DE LA PAGE
            .CenterFooter = "Page &P de &N"            'INDIQUE PAGE 1 SUR 2 PAR Ex
 
        End With
 
        .PrintPreview 'aperçu
        '.PrintOut
 
    End With
 
End Sub

Hervé.

[target111]

Bonjour,

En appuyant sur le bouton "Imprimer Feuilles" je suis sur la feuille "ACHATS"
en effet.
Je dois dire que je suis novice en vba et j'éssaye des codes ou je ne comprend pas toutes les nuances et je te remercie de prendre du temps pour mon probléme ainsi que toutes les autres personnes qui m'ont aidés sur ce fichier.

Code :

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

.PrintArea = .Range("b1:x" & .Range("C65536").End(xlUp).Row).Address

sur cette ligne de code j'ai une erreur "Propriété ou méthode non géré pour cette objet"

pour les sauts de page sur l'onglet mise en page je vois des ligne qui délimites les pages

Cordialement

bonjour,

Alors si je mets un bouton de commande et ce 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
Private Sub CommandButton1_Click()
'********************************************************************
'ROUTINE POUR COPIER ENTETE DATE TITRE No DE PAGE SUR TOUTE LES PAGES
'********************************************************************
With Worksheets("Achats")
    With .PageSetup
        .PrintTitleRows = "$1:$1"                  'COPIE 1Ere LIGNE SUR CHAQUE FEUILLE
        .LeftHeader = "&""Arial,Gras""&D"          'AFFICHE DATE A GAUCHE
        .CenterHeader = "&""Arial,Gras""&14ACHATS MARTIN DESSERT" 'TITRE DE LA PAGE
        .CenterFooter = "Page &P de &N"            'INDIQUE PAGE 1 SUR 2 PAR Ex
    End With
    .PrintOut                                      'ENLEVER " ' " EN DEBUT LIGNE POUR IMPRIMER LA FEUILLE ACHATS
End With
End Sub

tout fonctionne bien je peux imprimer 1 ou 2 ou 3 pages selon la longueur ce code ce trouve dans "feuil2(Achats)" et non dans un module

mais si à la place du bouton je mets une forme pour que ce soit plus beau et que j'insèrt un module avec le même code au preview j'obtiens impression de la page 1 à 11

Cordialement