VBA : ScreenUpdating + bouton shape
Résolu
tchitchy
Messages postés
42
Statut
Membre
-
tchitchy Messages postés 42 Statut Membre -
tchitchy Messages postés 42 Statut Membre -
Bonjour a tous,
Tout d'abord, veuillez m'excuser pour les accents qui ne seront pas presents car j'ecris depuis un clavier QWERTY :).
Ensuite, voila ma question :
J'ai une macro VBA. Lorsque je l'utilise, je voudrais faire apparaitre un messsage d'attente tout en desactivant l'affichage avec screenupdating. Avec un bout de code vous comprendrez mieux je pense :
Sheets("Form1").Shapes("Wait").Visible = True
Application.ScreenUpdating = False
'macro
Application.ScreenUpdating = True
Sheets("Form1").Shapes("Wait").Visible = False
Logiquement, le bouton devrait apparaitre avant que l'ecran soit fige. Or, ce n'est pas le cas. J'ai cherche sur differents sites mais je n'ai pas encore trouve de reponse a ma question.
En vous remerciant par avance,
Tchy
Tout d'abord, veuillez m'excuser pour les accents qui ne seront pas presents car j'ecris depuis un clavier QWERTY :).
Ensuite, voila ma question :
J'ai une macro VBA. Lorsque je l'utilise, je voudrais faire apparaitre un messsage d'attente tout en desactivant l'affichage avec screenupdating. Avec un bout de code vous comprendrez mieux je pense :
Sheets("Form1").Shapes("Wait").Visible = True
Application.ScreenUpdating = False
'macro
Application.ScreenUpdating = True
Sheets("Form1").Shapes("Wait").Visible = False
Logiquement, le bouton devrait apparaitre avant que l'ecran soit fige. Or, ce n'est pas le cas. J'ai cherche sur differents sites mais je n'ai pas encore trouve de reponse a ma question.
En vous remerciant par avance,
Tchy
A voir également:
- Vba doevents screenupdating
- Excel compter cellule couleur sans vba - Guide
- Incompatibilité de type vba ✓ - Forum VB / VBA
- Vba ouvrir un fichier excel avec chemin ✓ - Forum VB / VBA
- Vba récupérer valeur cellule ✓ - Forum VB / VBA
- Erreur 13 incompatibilité de type VBA excel ✓ - Forum Excel
3 réponses
Salut le Forum
Essaye en insérant un DoEvents
Mytå
Essaye en insérant un DoEvents
Sheets("Form1").Shapes("Wait").Visible = True
DoEvents
Application.ScreenUpdating = False
Mytå
Salut et merci de ta reponse. Seulement j'ai toujours le meme soucis.
Quand je mets la ligne "Application.ScreenUpdating = False" en commentaire le bouton apparait et des que je l'active a nouveau le bouton n'est plus visible.
Quand je mets la ligne "Application.ScreenUpdating = False" en commentaire le bouton apparait et des que je l'active a nouveau le bouton n'est plus visible.
Je viens re repondre a ta reponse Myta. Ca fonctionne en fait en inserant le DoEvents. C'est juste que ma macro s'executait trop vite pour qu'il apparaisse.
Je te remercie enormement je vais voir exactement ce a quoi correspond ce fameux "DoEvents".
Merci encore
Je te remercie enormement je vais voir exactement ce a quoi correspond ce fameux "DoEvents".
Merci encore
Encore une fois me revoila.
Alors effectivement le DoEvents fonctionne mais pas tout le temps. Je m'explique :
Lorsque je suis sur VBA et que j'appuie sur F5 alors la ca fonctionne correctement.
Seulement, quand je suis dans mon tableur et que j'appuie sur mon bouton la ca ne fonctionne pas. J'ai toujours le meme probleme.
Desole de ces messages a repetition...
Alors effectivement le DoEvents fonctionne mais pas tout le temps. Je m'explique :
Lorsque je suis sur VBA et que j'appuie sur F5 alors la ca fonctionne correctement.
Seulement, quand je suis dans mon tableur et que j'appuie sur mon bouton la ca ne fonctionne pas. J'ai toujours le meme probleme.
Desole de ces messages a repetition...
