[Bricofire]

Oups ! important ...

penser à réactiver :

l'aide :

ScreenUpdating, propriété


Cette propriété a la valeur True si la mise à jour de l'écran est activée. Type de données Boolean en lecture-écriture.

Remarque

Désactivez la mise à jour de l'écran pour accélérer l'exécution du code de votre macro. Vous ne pourrez suivre le déroulement de la macro mais en revanche celle-ci sera exécutée plus rapidement.

N'oubliez pas d'affecter de nouveau la valeur True à la propriété ScreenUpdating à la fin de la macro.


un exemple sur un sub de déprotection :

Sub NoProtect()
Dim FeuillP2 As Object

Application.ScreenUpdating = False
For Each FeuillP2 In Worksheets
FeuillP2.Unprotect
Next

Application.ScreenUpdating = True
End Sub


Bonne soirée,

Brico