Application.ScreenUpdating inactif

  • Initiateur de la discussion Initiateur de la discussion allegro50
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

allegro50

XLDnaute Occasionnel
Bonjour le Forum

Je n'arrive pas à passer Application.ScreenUpdating à False .
Lorsque je passe sur l'instruction par f8 il affiche "Vrai" .. !

Quelqu'un sait il comment y remedier

Merci et bonne journee
 
Re : Application.ScreenUpdating inactif

Bonjour à tous,

Je "fais" les 0 réponse depuis hier...

Je n'arrive pas à passer Application.ScreenUpdating à False .
Lorsque je passe sur l'instruction par f8 il affiche "Vrai" .. !

Je ne comprends pas, comme je suppose, la plupart des intervenants dXLD

Au plaisir de te lire

A+
 
Re : Application.ScreenUpdating inactif

Bonsoir JCGL, Hasco

Je ne pensais pas m'exprimer aussi mal que personne ne comprenne mon pb
En plus dilué je recommence :
Dans une sub (bouton_click)j'ai l'instruction "Application.screenUpdating=false" pour eviter de voir s'afficher les changements de feuille que réclame les macro qui suivent
Malgré cette instruction les fenetres s'ouvrent et se ferment allegrement ! et pour cause l'instruction garde la valeur True. En executant pas a pas (d'ou le F8) l'infobulle ecrit bien "Vrai"
J'espere que ma description est plus parlante et qu'elle vous evoquera une piste de solutions

Bonne soiree
 
Re : Application.ScreenUpdating inactif

bonsoir,

Je me souviens d'un post sur le forum Microsoft Excel concernant ce problème ou la réponse trouvée était de double l'instruction:

Application.screenUpdating=fase
Application.screenUpdating=fase

sinon, je vois pas

Allez zzzzzzzz!!!!
 
Re : Application.ScreenUpdating inactif

Bonsoir allegro50, JC, Hasco,

Si j'ai bien compris,

1) tu as :

sub (bouton_click)
Appel de ta macro
End Sub, ce n'est pas là qu'il faul mettre

2)
Sub Tamacro()
Application.screenUpdating=false ' mais là
...
ton code
...
Application.screenUpdating=True ' et là
End Sub

A te lire.

Jean-Pierre
 
Re : Application.ScreenUpdating inactif

Re bonsoir Hasco, JP

J'ai laissé mon fichier au bureau mais - en gros j'ai ecrit ca :

Un bouton sur feuille1 ouvre le code suivant :

sub bouton_click
application.screenupdating= false
windows("xxxxx").activate
sheets(feuill2).activate
la on se debranche sur une macro worksheet_Activate qui ouvre un UsF etc...
En fait tout fonctionne sauf le gel de l'ecran.

Il me semble, JP, etre dans la configuration de ton point 2 (?)

merci encore de vos reflexions
 
Re : Application.ScreenUpdating inactif

Re,

En l'état et sans le fichier... .

Déposes nous ce fichier, sans données ou peu) mais avec les macros et l'USF, Zippé si possible et moins de 48 Ko.

A te lire.

Jean-Pierre
 
Dernière édition:
Re : Application.ScreenUpdating inactif

Salut tout le monde,

Tu peux essayer ça :
Code:
Private Declare Function LockWindowUpdate Lib "user32" (ByVal hwndLock As Long) As Long
Private Declare Function GetDesktopWindow Lib "user32" () As Long

' "gèle" ou autorise le rafraichissement de l'écran
' permet de bloquer l'affichage de boites de dialogue
' indésirables, les mouvements de la souris
' *à manier avec précaution* (plus radical que ScreenUpdating)
' mpep, auteur inconnu
 
sub bouton_click
  ' application.screenupdating= false
  WindowUpdating (False)  'to freeze the screen
  '
  windows("xxxxx").activate
  sheets(feuill2).activate
  ' Etc ...
  ' Fin du code
  WindowUpdating (True)  'to unfreeze the screen
End Sub

Sub WindowUpdating(Enabled As Boolean)
  ' Completely Locks the Whole Application Screen Area,
  ' including dialogs and the mouse.
Dim Res As Long
  If Enabled Then
    LockWindowUpdate 0    'Unlock screen area
  Else
    Res = LockWindowUpdate(GetDesktopWindow)    'Lock at desktop level
  End If
End Sub

A essayer 😉

A+
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

  • Question Question
Microsoft 365 Excel365
Réponses
2
Affichages
441
Réponses
5
Affichages
471
  • Question Question
Microsoft 365 Erreur de format
Réponses
5
Affichages
436
Retour