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

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

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
 

Pièces jointes

- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

  • Question Question
Microsoft 365 Export données
Réponses
4
Affichages
649
  • Question Question
XL 2021 VBA excel
Réponses
4
Affichages
169
Réponses
3
Affichages
582
Retour