XL 2010 [RESOLU] Lenteur rendre visible un Label

[cp4]

Bonjour,

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

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]

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

Application.ScreenUpdating = False

Vous pouvez déjà essayer de positionner un

Application.ScreenUpdating = true

juste avant

LabMessage.Visible = True

 

[TooFatBoy]

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

Tu as vu passer mon message ?

 

[cp4]

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

Application.ScreenUpdating = False

Vous pouvez déjà essayer de positionner un

Application.ScreenUpdating = true

juste avant

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]

Tu as vu passer mon message ?

Bonjour @TooFatBoy ,

Content de te croiser.

Tu as vu passer mon message ?

Quel message?

 

[TooFatBoy]

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]

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]

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

Je n'ai pas encore testé.

 

[cp4]

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]

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]

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]

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