XL 2019 VBA Définir une zone d'impression

[dadaze]

Bonjour,

J'essaie de définir une zone d'impression pour certaines feuilles du classeur.

Pour ce faire, j'utilise le code ci dessous.

For i = 5 To Sheets.Count

With Sheets(i)
Dim plg_imp As Range
Set plg_imp = Sheets(i).Range("a1:h" & Sheets(i).Range("f" & Rows.Count).End(xlUp).Row)
.PageSetup.PrintArea = plg_imp
End With

Next i

Ça ne fonctionne pas et en retour j'ai le message ci- après

"Nous n'avons pas trouvé de référence de plage ou de nom défini dans cette formule"

Encore une fois, je me retourne vers vous.

Si vous disposez de quelques instants pour solutionner ce problème, je vous en remercie d'avance.

Cordialement

 

[Nicolas JACQUIN]

Bonjour,

A tester

Sub DefinirZonesImpression()
    Dim i As Long
    Dim derLigne As Long
    Dim plg_imp As Range
    
    For i = 5 To Sheets.Count
        With Sheets(i)
            ' Recherche de la dernière ligne non vide en colonne F
            derLigne = .Cells(.Rows.Count, "F").End(xlUp).Row
            
            ' Définition de la plage à imprimer
            Set plg_imp = .Range("A1:H" & derLigne)
            
            ' Affecter l'adresse absolue au PrintArea
            .PageSetup.PrintArea = plg_imp.Address
        End With
    Next i
End Sub

Nicolas

 

[sylvanu]

Bonjour Dadaze, Nicolas,
Ou simplment en ajoutant .Address dans la macro du post #1 :

For i = 5 To Sheets.Count
With Sheets(i)
Dim plg_imp As Range
Set plg_imp = Sheets(i).Range("a1:h" & Sheets(i).Range("f" & Rows.Count).End(xlUp).Row)
.PageSetup.PrintArea = plg_imp.Address
End With
Next i

 

[dadaze]

Bonjour,

A tester

Sub DefinirZonesImpression()
    Dim i As Long
    Dim derLigne As Long
    Dim plg_imp As Range
   
    For i = 5 To Sheets.Count
        With Sheets(i)
            ' Recherche de la dernière ligne non vide en colonne F
            derLigne = .Cells(.Rows.Count, "F").End(xlUp).Row
           
            ' Définition de la plage à imprimer
            Set plg_imp = .Range("A1:H" & derLigne)
           
            ' Affecter l'adresse absolue au PrintArea
            .PageSetup.PrintArea = plg_imp.Address
        End With
    Next i
End Sub

Nicolas

Merci beaucoup je vais tester

 

[dadaze]

Merci beaucoup je vais tester

 

[dadaze]

Bonjour,

A tester

Sub DefinirZonesImpression()
    Dim i As Long
    Dim derLigne As Long
    Dim plg_imp As Range
   
    For i = 5 To Sheets.Count
        With Sheets(i)
            ' Recherche de la dernière ligne non vide en colonne F
            derLigne = .Cells(.Rows.Count, "F").End(xlUp).Row
           
            ' Définition de la plage à imprimer
            Set plg_imp = .Range("A1:H" & derLigne)
           
            ' Affecter l'adresse absolue au PrintArea
            .PageSetup.PrintArea = plg_imp.Address
        End With
    Next i
End Sub

Nicolas

Merci beaucoup je vais tester