raffraichisement

Question

comment fait on pour supprimer le raffraichisement de l'ecrant lors de l'execution d'une macro

merci d'avance

Neo.balastik · Answer

Tu travailles dans quoi ?  Excel, Access, Word .....

Il faut le préciser !!!

Guy

cs_lu6fer · Answer

c vrai dsl pour cette oublie 
c'est une macro excel

Neo.balastik · Answer

Re ;O)

En précisant ca devient plus facile pour celui qui lit...

Donc, en ce qui me concerne je ferais ainsi:

'----A coller dans l'ent-ête du module où ta macro est déclarée:----

Private Declare Function LockWindowUpdate Lib "user32" (ByVal hwndLock As Long) As Long
Private Declare Function FindWindowA Lib "user32" _
  (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

'-------------------

'Imaginons que ceci est ta macro :

Sub Macro1()

Dim Hwnd As Long

'On capture le handle de la fenêtre Excel
Hwnd = FindWindowA(vbNullString, Application.Caption)
'On empêche le rafraichissement de la fenêtre en passant le Handle de la fenêtre Excel à la fonction API LockWindowUpdate 
LockWindowUpdate Hwnd

'Le code de ta macro....

'On rétabli le rafraîchissement de la fenêtre
'Ne pas oublier !!!!
LockWindowUpdate False

  
End Sub

Guy

cs_lu6fer · Answer

ben merci je v essayer mais je n'y connai rien de rien en vb donc j'aurai pe etre encore besoin de ton aide

cs_lu6fer · Answer

ques ce que tu entand par entete du module où ta macro est déclarée

car comme je t dit je n'y connai rien

cs_cheyenne · Answer

Bonjour,

Si l'on travaille avec Excel on peut utiliser :

Application.ScreenUpdating = False

Les cellules sont mises à jour une fois la macro terminée et empêche en outre l'affichage des différentes feuilles lorsque celles-ci sont appelées. D'où gain de temps.

Avant de quitter la macro il faut mettre : Application.ScreenUpdating = True

Ce n'est pas obligatoires car avec certaines versions le fait de quitter la macro réinitialise le ScreenUpdating à True.  A voir...

Cheyenne

cs_lu6fer · Answer

et la syntax par rapport au reste du code de la macro????

cs_cheyenne · Answer

Quelle syntaxe ?

Private Sub Macro1()
    Application.ScreenUpdating = False

    ----
    ----
    ----

   Application.ScreenUpdating = True
End Sub

OK ?

Cheyenne

cs_lu6fer · Answer

ok merci

Raffraichisement

9 réponses