libellule85
XLDnaute Accro
Bonjour le forum,
N'étant pas très férue en macro, j'aurais besoin de vos lumières.
J'ai une macro qui actuellement, masque les lignes non renseignées (si la cellule en A correspondante à la ligne est vide) avant impression et les ré-affichent après l'impression.
L'impression se fait avec une boite de dialogue.
Mon "problème" c'est que si je clique sur Annuler de la boite de dialogue les lignes restent masquées !!! Comment faire pour que les lignes se réaffichent quand on clique sur Annuler.
D'avance je vous remercie de votre aide
N'étant pas très férue en macro, j'aurais besoin de vos lumières.
J'ai une macro qui actuellement, masque les lignes non renseignées (si la cellule en A correspondante à la ligne est vide) avant impression et les ré-affichent après l'impression.
L'impression se fait avec une boite de dialogue.
Mon "problème" c'est que si je clique sur Annuler de la boite de dialogue les lignes restent masquées !!! Comment faire pour que les lignes se réaffichent quand on clique sur Annuler.
D'avance je vous remercie de votre aide
VB:
Sub Imprim_Quot()
Dim i As Long
Dim j As Long
Application.ScreenUpdating = False
For i = 4 To 8
Rows(i).Hidden = Application.CountA(Rows(i)) = 0 Or Cells(i, "A").Value = ""
Next i
For j = 10 To 11
Rows(j).Hidden = Application.CountA(Rows(j)) = 0 Or Cells(j, "A").Value = ""
Next j
Application.ScreenUpdating = True
If Not Application.Dialogs(xlDialogPrinterSetup).Show Then Exit Sub
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveSheet.PageSetup.PrintArea = ""
Application.ScreenUpdating = False
For i = 4 To 8
Rows("4:8").Hidden = False
Next i
For j = 10 To 11
Rows("10:11").Hidden = False
Application.ScreenUpdating = True
End Sub