XL 2010 [RESOLU] Lenteur rendre visible un Label

cp4 · 23 Juillet 2024

Bonjour,

Quelque chose m'échappe. Me manque-t-il quelque chose pour que mon label devienne visible rapidement.

VB:

If MsgBox("Confirmez l'enregistrement de: " _
             & UCase(TxtNom) & vbLf & vbLf & "Numéro: " & TxtNo, vbYesNo + vbQuestion, "Demande de confirmation") = vbYes Then
    
   LabMessage.Visible = True: Me.Repaint

Application.ScreenUpdating = False
      Call Macro1
      Call Macro2
      Call Macro3
      Call Macro4
      Call Macro5
Application.ScreenUpdating = True
   Else
      MsgBox "Opération Abandonnée!", vbOKOnly + vbInformation, "ABANDON"
      Exit Sub
   End If

Il ne s'affiche qu'après la fin d’exécution de la dernière macro. Alors qu'il devrait s'afficher avant l'appel de la première macro.

En vous remerciant par avance.

Edit: je suis vraiment bête. Il manquait le REPAINT (ajouté dans le code)

crocrocro · 23 Juillet 2024

Bonjour Cp4,
le code présenté est insuffisant pour apporter une réponse pertinente.
N'y a-t-il pas, en amont de ce code (dans la même macro ou dans l'appel de la macro un

VB:

Application.ScreenUpdating = False

Vous pouvez déjà essayer de positionner un

Code:

Application.ScreenUpdating = true

juste avant

Code:

LabMessage.Visible = True

TooFatBoy · 23 Juillet 2024

cp4 à dit:
Edit: je suis vraiment bête. Il manquait le REPAINT (ajouté dans le code)

Tu as vu passer mon message ?

cp4 · 23 Juillet 2024

crocrocro à dit:
Bonjour Cp4,
le code présenté est insuffisant pour apporter une réponse pertinente.
N'y a-t-il pas, en amont de ce code (dans la même macro ou dans l'appel de la macro un

VB:

Application.ScreenUpdating = False

Vous pouvez déjà essayer de positionner un

Code:

Application.ScreenUpdating = true

juste avant

Code:

LabMessage.Visible = True

Bonjour @crocrocro ,

En fait, j'ai oublié de faire un Repaint.
A propos Application.ScreenUpdating, je vais les supprimer car elles y sont dans les différentes macros.

Je te remercie.

cp4 · 23 Juillet 2024

TooFatBoy à dit:
Tu as vu passer mon message ?

Bonjour @TooFatBoy ,

Content de te croiser.

TooFatBoy à dit:
Tu as vu passer mon message ?

Quel message?

TooFatBoy · 23 Juillet 2024

cp4 à dit:
A propos Application.ScreenUpdating, je vais les supprimer car elles y sont dans les différentes macros.

Est-ce que du coup ça ne risque pas de faire clignoter l'affichage ?

TooFatBoy · 23 Juillet 2024

cp4 à dit:
Quel message?

En réponse à ta question je demandais si c'était bien un Label dans un Userform et si du coup tu avais essayé un Repaint.
Mais je l'ai supprimé presque aussitôt...

cp4 · 23 Juillet 2024

TooFatBoy à dit:
Est-ce que du coup ça ne risque pas de faire clignoter l'affichage ?

Je n'ai pas encore testé.

cp4 · 23 Juillet 2024

TooFatBoy à dit:
En réponse à ta question je demandais si c'était bien un Label dans un Userform et si du coup tu avais essayé un Repaint.
Mais je l'ai supprimé presque aussitôt...

C'est en effet un Label dans un Userform.
Eclaire stp ma lanterne, tu as failli suffoqué?! Pourquoi tu l'as supprimé aussitôt?

TooFatBoy · 23 Juillet 2024

cp4 à dit:
Pourquoi tu l'as supprimé aussitôt?

Parce que, n'étant pas très doué en Excel, ta question ne me paraissait pas hyper limpide et je croyais avoir dit une énorme clownerie...

cp4 · 23 Juillet 2024

TooFatBoy à dit:
Parce que, n'étant pas très doué en Excel, ta question ne me paraissait pas hyper limpide et je croyais avoir dit une énorme clownerie...

T'inquiètes

patricktoulon · 23 Juillet 2024

re
Bonjour

le screenupdating n'a aucune incidence sur les controls dans un userform
c'est pas ça le problème

c'est un défaut bien connu "bad timing in runtime before work with heavy memory load" de vba
quand tu lance immédiatement des boucles sur des objects autres pouvant être très gourmandes en ressource
le repaint est en effet la seule solution
par contre pas dans les boucles sinon l'affiche du contenu du userform sursaute

XL 2010 [RESOLU] Lenteur rendre visible un Label

cp4

XLDnaute Barbatruc

crocrocro

XLDnaute Impliqué

TooFatBoy

XLDnaute Barbatruc

cp4

XLDnaute Barbatruc

cp4

XLDnaute Barbatruc

TooFatBoy

XLDnaute Barbatruc

TooFatBoy

XLDnaute Barbatruc

cp4

XLDnaute Barbatruc

cp4

XLDnaute Barbatruc

TooFatBoy

XLDnaute Barbatruc

cp4

XLDnaute Barbatruc

patricktoulon

XLDnaute Barbatruc

Discussions similaires