Discussion :

[jf29840]

Bonjour,

je cherche à définir la zone d'impression par macro.
Voici mon 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
n = 7
    Do While Cells(n + 1, 1) <> ""
         n = n + 1
    Loop
    With ActiveSheet.PageSetup
        .PrintArea = "$A$1:$F$n"
        .PrintTitleRows = "$7:$7"
        .PrintTitleColumns = "$A:$F"
    End With
    ActiveWindow.SelectedSheets.PrintPreview
 
    With ActiveSheet.PageSetup
        .PrintTitleRows = ""
        .PrintTitleColumns = ""
    End With

le .PrintArea = "$A$1:$F$n" ne fonctionne pas. Comment dois-je faire ?

Merci

[MarcelG]

Bonjour jf et bienvenu sur le Forum, bonjour le Forum

Je te propose

Code :

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

1
2
3
4
5
6
Public Sub essai()
'définit la denière ligne informée de la colonne F
lastligne = Range("F" & Rows.Count).End(xlUp).Row
'définit la zone d'impression
ActiveSheet.PageSetup.PrintArea = "$A$1:$F$" & lastligne
End Sub

Reviens si nécessaire.

Bonne journée.

[CodeFacile]

C'est juste une erreur de syntaxe

Code :

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

.PrintArea = "$A$1:$F$" &  n

( j'ai pas testé le code pour d'éventuelles autres erreurs