[Résolu] Petit souci quand clique sur Annuler boite dialogue Impression

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

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
 

Fichiers joints

JCGL

XLDnaute Barbatruc
Bonjour à tous,

Peux-tu essayer :

VB:
If Not Application.Dialogs(xlDialogPrinterSetup).Show Then
        Columns("A:A").EntireRow.Hidden = False
        Exit Sub
    End If
Il te manque un Next J

A+ à tous
 

Haut Bas