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

[libellule85]

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

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

 

[JCGL]

Bonjour à tous,

Peux-tu essayer :

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

 

[libellule85]

Bonjour JCGL,

Ooops pour l'oubli du Next J. Un grand grand merci pour ton aide, cela fonctionne impeccable.