XL 2013 Rester afficher outil de texte pendant l’exécution d'une macro

[badraaliou4]

Est-il possible de rester afficher l'objet de texte pendant d’exécution du macro?
j'ai essayé avec le code ci-dessous. l'exécution attend jusqu'à 10s et l'objet de texte ne reste pas afficher durant l'exécution
Merci pour votre aide.

Sub ajoutcomptecaisse()
  Sheets("load").Shapes("Message").Visible = True
  Application.Wait (Now + TimeValue("00:00:10"))
 
  '.........exécutions codes............
 
  Sheets("load").Shapes("Message").Visible = False
End Sub

 

[Modeste geedee]

Bonsour®

Est-il possible de rester afficher l'objet de texte pendant d’exécution du macro?
j'ai essayé avec le code ci-dessous. l'exécution attend jusqu'à 10s et l'objet de texte ne reste pas afficher durant l'exécution
Merci pour votre aide.

Sub ajoutcomptecaisse()
  Sheets("load").Shapes("Message").Visible = True
  Application.Wait (Now + TimeValue("00:00:10"))

  '.........exécutions codes............

  Sheets("load").Shapes("Message").Visible = False
End Sub

présentement l'instruction : Application.Wait est totalement inutile ici,
et ne fait que figer Excel pendant 10s

plutot comme ceci :

Sub ajoutcomptecaisse()
  Sheets("load").Shapes("Message").Visible = True
  Application.ScreenUpdating=False

  '.........exécutions codes............

  Sheets("load").Shapes("Message").Visible = False
Application.ScreenUpdating=True
End Sub

[/QUOTE]

 

[badraaliou4]

Merci ça marche bien avec ce code mais j'ai un souci après l'exécution .
quand je remplie de nouveau le comboxbox je ne peux plus écrire dans les cellules.
Alors mes champs à remplir comprenent d'un comboxbox et des cellules.

Merci pour votre aide

Sub ajoutcomptecaisse()
  Sheets("load").Shapes("Message").Visible = True
  fin=timer +2
Do while timer <fin
Doevents
Loop
  Application.ScreenUpdating=False

  '.........exécutions codes............

  Sheets("load").Shapes("Message").Visible = False
Application.ScreenUpdating=True
End Sub

[/QUOTE]

 

[Modeste geedee]

Merci ça marche bien avec ce code mais j'ai un souci après l'exécution .
quand je remplie de nouveau le comboxbox je ne peux plus écrire dans les cellules.
Alors mes champs à remplir comprenent d'un comboxbox et des cellules.

Merci pour votre aide

Sub ajoutcomptecaisse()
  Sheets("load").Shapes("Message").Visible = True
  'fin=timer +2
'Do while timer <fin   ' ne sert à rien !!!
'Doevents
'Loop
  Application.ScreenUpdating=False

  '.........exécutions codes............

  Sheets("load").Shapes("Message").Visible = False
Application.ScreenUpdating=True
End Sub

pas vu de combobox ... !

 

[badraaliou4]

Merci à tous.
J'ai pu corriger le problème
Ça bug lorsque je masque la barre de formule.
Et je n'avais pas remarque ça