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

badraaliou4 à dit:

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.

VB:

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

Cliquez pour agrandir...

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

badraaliou4 à dit:

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

VB:

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

Cliquez pour agrandir...