macro VBA pour zone d'impression variable

[superbog]

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

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

 

[claudio54]

Re : macro VBA pour zone d'impression variable

Bonsoir superbog

peut-être :

Sheets("recap").PageSetup.PrintArea = "$A$1:$F$150,$G$1:$K" & DerligBase

 

[Staple1600]

Re : macro VBA pour zone d'impression variable

Bonjour à tous

Si j'ai bien compris, une autre façon de faire.

Sub mPrintArea()
Dim DerLigBase&, fin%, dossier$, nomNewClasseur$
dossier = Range("A9").Text
'Recherche de la dernière ligne
With Sheets("recap")
    DerLigBase = .Cells(Rows.Count, "G").End(xlUp).Row
    .PageSetup.printarea = .Range("A1:K" & IIf(DerLigBase < 150, 150, DerLigBase)).Address
End With
End Sub

 

[superbog]

Re : macro VBA pour zone d'impression variable

Désolée ca ne fonctionne pas

Bonsoir superbog

peut-être :

Sheets("recap").PageSetup.PrintArea = "$A$1:$F$150,$G$1:$K" & DerligBase

 

[job75]

Re : macro VBA pour zone d'impression variable

Bonjour à tous,

Jean-Marie (Staple1600) ta proposition équivaut à :

Sheets("recap").PageSetup.PrintArea = "$A$1:$A$150:$K" & DerligBase

Mais pas sûr que superbog nous ait dit ce qu'elle veut exactement.

A+

 

[superbog]

Re : macro VBA pour zone d'impression variable

J'ai essayé cela ne marche pas.
Ce que je veux exactement c'est avoir une zone d'impression de A1 à F150 et de G1 à Ki ou i est la dernière ligne de la colonne G

merci de votre attention

 

[job75]

Re : macro VBA pour zone d'impression variable

Re superbog,

Oui on sait mais Il faudrait préciser votre pensée.

Si par exemple i = 200 que doit-on imprimer ?

Si vous ne voulez pas que soit imprimées les cellules A151:F200 dites-le nom d'une pipe.

A+

 

[superbog]

Re : macro VBA pour zone d'impression variable

pardon, je croyais avoir été claire. non je ne veux pas que A151:F200 soit imprimé

si i=200 je veux que soient imprimées A1:F150 et G1:K200

 

[job75]

Re : macro VBA pour zone d'impression variable

Re,

Alors au moment de l'impression il faut créer un nouveau document dans lequel on effacera les cellules situées sous A150:F150.

Donc placez cette macro dans le ThisWorkbook du classeur à imprimer :

Private Sub Workbook_BeforePrint(Cancel As Boolean)
If ActiveSheet.Name <> "recap" Then Exit Sub
Dim i As Long
Cancel = True
ActiveSheet.Copy 'nouveau document
With ActiveWorkbook.ActiveSheet
  i = .Cells(Rows.Count, "G").End(xlUp).Row
  .PageSetup.PrintArea = "$A$1:$A$150:$K" & i
  .Range("A151:F" & .Rows.Count).Clear
  .PrintOut Preview:=True 'avec l'aperçu
  .Parent.Close False 'fermeture du document
End With
End Sub

A+