Clignotement des contrôles
Bonjour à tous,
je viens une fois de plus vers vous pour m'aider à résoudre un problème.
J'ai un classeur contenant plusieurs feuilles.
Certaines feuilles de ce classeur ont des contrôles de formulaire et/ou ActiveX et une "Zones_d_impression" paramétrée.
Mon problème est que depuis que j'ai figé les volets sur certaines de ces feuilles, les contrôles de la feuille active clignotent.
J'ai absolument besoin de laisser les volets figés, j'ai constaté que si la "Zone_d_impression" est annulée le clignotement n'a plus lieu.
Donc ma question est : est-il possible d'activer cette "Zone_d_impression" uniquement lorsque nécessaire et la désactiver quand on n'en a pas besoin ?
Merci d'avance pour vos réponses.
Bonjour à tous,
après de longues recherches, je suis enfin arrivé à solutionner mon problème en adaptant plusieurs informations collectées sur d'autres forum.
Il faut désactiver les zones d'impression qui auraient été au préalable définies dans les feuilles concernées puis coller cet évènement dans le module "ThisWorkbook" :
Private Sub Workbook_BeforePrint(Cancel As Boolean)
If ActiveSheet.Name = "Feuil2" Then 'Nom de la feuille à adapter
Cancel = True
Application.EnableEvents = False
Application.ScreenUpdating = False
With ActiveSheet
.PageSetup.PrintArea = "$B:$P" 'Zone d'impression à adapter
.PrintOut
End With
Application.EnableEvents = True
Application.ScreenUpdating = True
End If
If ActiveSheet.Name = "Feuil4" Then 'Nom de la feuille à adapter
Cancel = True
Application.EnableEvents = False
Application.ScreenUpdating = False
With ActiveSheet
.PageSetup.PrintArea = "$B:$K" 'Zone d'impression à adapter
.PrintOut
End With
Application.EnableEvents = True
Application.ScreenUpdating = True
End If
ActiveSheet.PageSetup.PrintArea = ""
End SubJe marque le sujet comme résolu.