superbog
XLDnaute Occasionnel
Bonjour,
Je voudrais avec une macro pouvoir établir la zone d'impression d'une page en fonction d'une variable, la dernière ligne de la colonne G.
Je voudrais que la range("A1:F150") soit toujours dans la zone d'impression et que la suite débute à G1 et se termine à K de la dernière ligne non vide de la colonne G.
Voilà la macro que j'ai créé mais ca ne fonctionne pas...
Pouvez vous m'aider
merci
Je voudrais avec une macro pouvoir établir la zone d'impression d'une page en fonction d'une variable, la dernière ligne de la colonne G.
Je voudrais que la range("A1:F150") soit toujours dans la zone d'impression et que la suite débute à G1 et se termine à K de la dernière ligne non vide de la colonne G.
Voilà la macro que j'ai créé mais ca ne fonctionne pas...
Pouvez vous m'aider
Code:
Sub printarea()
Dim DerLigBase, fin As Integer
Dim dossier As String
Dim nomNewClasseur As String
dossier = Range("A9")
'Recherche de la dernière ligne
DerLigBase = Sheets("recap").Range("G1000").End(xlUp).Row
Sheets("recap").PageSetup.PrintArea = "$A$1:$F$150,$G$1:$K(DerligBase)"
end sub
merci