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 Sub

Je marque le sujet comme résolu.

Rechercher des sujets similaires à "clignotement controles"