[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
 

Créez un compte ou connectez vous pour répondre

Vous devez être membre afin de pouvoir répondre ici

Créer un compte

Créez un compte Excel Downloads. C'est simple!

Connexion

Vous avez déjà un compte? Connectez vous ici.

Haut Bas