J'ai besoin de définir automatiquement une zone d'impression, sans tenir compte des dernieres lignes contenant des cellules avec des formules mais non visibles par exemple =SI($A$19="";"";A19)
Voici le code que j'utilise mais qui selectionne les cellules vides contenant des formules.
Sub zone_impression()
' zone d'impression & aperçu
With Range("B:I")
Worksheets("Feuil2").Activate
ActiveSheet.PageSetup.PrintArea = Range("B7:I" & .Find("*", .Item(1), , , , xlPrevious).Row).Address
End With
ActiveWindow.SelectedSheets.PrintPreview
End Sub
Merci pour votre aide
Voici le code que j'utilise mais qui selectionne les cellules vides contenant des formules.
Sub zone_impression()
' zone d'impression & aperçu
With Range("B:I")
Worksheets("Feuil2").Activate
ActiveSheet.PageSetup.PrintArea = Range("B7:I" & .Find("*", .Item(1), , , , xlPrevious).Row).Address
End With
ActiveWindow.SelectedSheets.PrintPreview
End Sub
Merci pour votre aide
Dernière édition: