XL 2010 ecran clignote suite boucle efface X onglets

[herve62]

Bonsoir
Je ne comprends pas; lors de l'effacement de données dans tous les onglets via clic image dans bilan l'écran clignote ???
même avec SCreenUpdating FALSE ?
J'ai exactement la même Sub dans un 2éme fichier mais onglet sans image de fond ( et sans ScreenUpdating) et je n'ai pas ce soucis ??
Donc Cela doit être dû aux images insérées ?? car si je supprime le fond .. juste l'image "bouton" clignote
Unique question
Peut on y remédier ??

 

[sylvanu]

Bonsoir Hervé,
On améliore les choses en invalidant aussi le mode de calcul et le prise en compte des events :

Sub clear_listes()
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
Application.EnableEvents = False
nb = Sheets.Count
For x = 3 To nb
    For k = 3 To 7
        Sheets(x).Range("B" & k) = ""
    Next k
    Sheets(x).Range("B11:B30").ClearContents
    Sheets(x).Cells(33, 4).ClearContents
Next x
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
Application.EnableEvents = True
End Sub

 

[herve62]

Bonsoir Sylvanu
Ben oui !!!! plus pensé
Pourtant je l'utilise souvent dans les Sub .._change pour éviter "de tourner en rond"
En fait juste :Application.EnableEvents = False suffit
Mais pourtant ce ne sont que des images insérées qui n'interviennent aucunement dans le code ?

merci bien ; bonne soirée