afficher un message d'attente en attendant la fin d'une macro

[carnaux23]

Bonjour,
Je souhaite afficher un message qui dirait veuillez patienter, pendant qu'une macro en VBA se déroule.
Y a t'il une astuce.
Merci d'avance de votre aide

 

[tototiti2008]

Re : afficher un message d'attente en attendant la fin d'une macro

Bonjour carnaux23,

oui, tu peux passer par un Userform avec la propriété Showmodal à False.

regarde Discussions similaires en bas de la page

 

[ROGER2327]

Re : afficher un message d'attente en attendant la fin d'une macro

Bonjour carnaux23, tototiti2008

Une proposition avec une zone de texte.

[COLOR="DarkSlateGray"]Sub attendre()
Dim s As String, t As Single, sel As Range
   t = 5
   s = "Attendez " & t & " secondes."
   With Sheets("Feuil1")
      Application.ScreenUpdating = False
      .Shapes("Text Box 1").Visible = msoTrue
      Set sel = Selection
      .Shapes("Text Box 1").Select: Selection.Characters.Text = s
      .Shapes("Text Box 1").Select: Selection.ShapeRange.ZOrder msoBringToFront
      sel.Select
      Application.ScreenUpdating = True
      Application.Wait (Now + TimeValue(Format((t - 2) / 86400, "h:mm:ss")))
      .Shapes("Text Box 1").Select: Selection.Characters.Text = "Terminé dans 2 secondes."
      sel.Select
      Application.Wait (Now + TimeValue("0:00:02"))
      .Shapes("Text Box 1").Visible = msoFalse
   End With
End Sub[/COLOR]

ROGER2327