'On désactive le screenunpdating Application.ScreenUpdating = False 'on gère la police et la taille With Range("A1:G50").Font .Name = "Arial" .Size = 10 End With 'Et on réactive le ScreenUpdating Application.ScreenUpdating = True
Application.Statusbar = "Traitement de la partie XYZ"
Application.Statusbar = False
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questiondes fois le code est rapide( 10 sec pour un gros traitement) et après il galère et met 2 min...
Les développeurs "avertis" se gardent de redéfinir la totalité de chaque mise en forme, police, couleur, etc ... Il n'apportent, à chaque étape, que la modification nécessaire.