[XL-2003] Imprimer que ce qu'il faut ? [Résolu]

[MARGAR]

Bonjour le forum,

Comment arriver à IMPRIMER que ce qu'il faut ?

Merci de votre précieuse collaboration.

margar

[ZebreLoup]

Ta question n'est pas très claire et en général, on ne met pas de pièce jointe dans un premier message. Mais peut-être que la réponse est tout simplement zone d'impression / définir ?

[MARGAR]

Désolé pour le fichier joint mais je pensais qu'avec un exemple cela serait plus facile car c'est avec celui-ci que les explications sont dedans.
Merci quand même pour la remarque.

margar

[ZebreLoup]

Je te comprends bien, mais je rappelais simplement les règles du forum. Disons que si le problème peut être résolu sans pièce jointe, ça décharge un peu les serveurs du forum.

Sinon, zone d'impression / définir doit être ta solution.
Et en VBA, ça donne

Code :

ActiveSheet.PageSetup.PrintArea = "$A$1:$B$6,$D$9:$E$11"

En remplaçant les plages par les plages qui t'intéressent.

[MARGAR]

j'ai appliqué ta formule mais jobtiens une erreur 1004

il y a 2 boutons à gérer et je pense que c'est de là qu'il y a problème.

Suis novice en VBA mais j'essaye de m'en sortir ...

[ZebreLoup]

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub CommandButtonImprime_Click()
    Dim lastRow As Long
    lastRow = [AO65000].End(xlUp).Row
    Do While Cells(lastRow, "AO").Value = ""
        lastRow = lastRow - 1
    Loop
    With ActiveSheet.PageSetup
        .PrintArea = "$AO$1:$AS$" & lastRow
        .FitToPagesWide = 1
        .FitToPagesTall = 1
    End With
    ActiveSheet.PrintOut
End Sub

[MARGAR]

@ ZebreLoup et le forum

merci beaucoup de ton aide précieuse, cela fonctionne OK

amicalement

margar