Océane
XLDnaute Impliqué
Bonsoir le forum
cette macro :
'Réalise l'apercu avant impression des X lignes remplies sur les 50 possibles
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim Valeur$, ws As Worksheet, Plage As Range
Dim Lignes&
Application.ScreenUpdating = False
Set ws = ActiveWorkbook.ActiveSheet
'la feuille Notice sera visible entierement
If ws.Name <> "Notice" Then
With ws
'A1 est la premiere cellule de la premiere ligne à visualiser
If .Range("A1") = "" Then
'A1 premiere cellule, K1 derniere cellule de la premiere ligne
Set Plage = .Range("A1:K1")
Else
Set Plage = .Range("A1:A65536")
Lignes = WorksheetFunction.CountIf(Plage, ">""") + WorksheetFunction.Count(Plage)
' le chiffre 11, parce que la colonne K est la onzieme colonne
Set Plage = Plage.Resize(Lignes, 11)
End If
' .Unprotect
.PageSetup.PrintArea = Plage.Address
' .Protect
End With
End If
Application.ScreenUpdating = True
End Sub
que j'ai trouvé sur ce forum réalise l'apercu avant impression, sauf pour la feuille "notice", des X lignes écrites, d'un tableau de 50 sur 11 colonnes.
Je voudrai la modifier de facon à ce que la colonne J soit masquée pendant cet apercu avant impression, et libérée à la fermeture de cet apercu avant impression.
Merci d'avance
cette macro :
'Réalise l'apercu avant impression des X lignes remplies sur les 50 possibles
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim Valeur$, ws As Worksheet, Plage As Range
Dim Lignes&
Application.ScreenUpdating = False
Set ws = ActiveWorkbook.ActiveSheet
'la feuille Notice sera visible entierement
If ws.Name <> "Notice" Then
With ws
'A1 est la premiere cellule de la premiere ligne à visualiser
If .Range("A1") = "" Then
'A1 premiere cellule, K1 derniere cellule de la premiere ligne
Set Plage = .Range("A1:K1")
Else
Set Plage = .Range("A1:A65536")
Lignes = WorksheetFunction.CountIf(Plage, ">""") + WorksheetFunction.Count(Plage)
' le chiffre 11, parce que la colonne K est la onzieme colonne
Set Plage = Plage.Resize(Lignes, 11)
End If
' .Unprotect
.PageSetup.PrintArea = Plage.Address
' .Protect
End With
End If
Application.ScreenUpdating = True
End Sub
que j'ai trouvé sur ce forum réalise l'apercu avant impression, sauf pour la feuille "notice", des X lignes écrites, d'un tableau de 50 sur 11 colonnes.
Je voudrai la modifier de facon à ce que la colonne J soit masquée pendant cet apercu avant impression, et libérée à la fermeture de cet apercu avant impression.
Merci d'avance