Discussion :

[havopti]

Salut a tous je cherche à prévenir les usagers d'une de mes macros que celle ci s’exécute et qu'il ne faut pas paniquer car celle ci est un peu longue

problème en mettant un code du type

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

MsgBox "Patientez", vbInformation

au tout début de macro

il faut cliquer sur "ok" pour que la suite s’exécute, hors je voudrais juste informer et que la macro se lance tout de suite sans attendre de cliquez sur ok

[Ashireon]

salut

Le messagebox attends un retour par principe un click etc..

Fait toi un petit userform juste avec le message que tu fermera en fin de traitement.

Tu pourra ensuite l’améliorer avec une barre de progression etc.. au fur et a mesure de tes compétences en vba.

[Philippe Tulliez]

Bonjour,
Pour compléter la réponse d'Eric, voici un code à placer dans un Module
(exemple Module1)
Le UserForm peut avoir simplement un TextBox avec le message et en plus un message s'affiche dans la barre d'état.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Sub MainProcess()
  Dim oStatusBAr
  Dim x As Long, y As Long
  oStatusBAr = Application.DisplayStatusBar
  With Application
  .DisplayStatusBar = True
  .StatusBar = "Process en cours..."
  End With
  With usfWaiting: .Show 0: .Repaint: End With ' Affichage UserForm
  ' Code d'exécution
  For x = 1 To 1000:
   With Application
   .StatusBar = "Process en cours..." & x
   End With
   For y = 1 To 1000000: Next y
  Next x
  '
  Unload usfWaiting
  With Application: .StatusBar = False: .DisplayStatusBar = oStatusBAr: End With
End Sub

Le message dans la barre d'état n'est là que illustrer les possibilités d'une procédure d'attente mais cela ralenti l'exécution si on affiche trop souvent des informations.

[havopti]

merci beaucoup a tous les 2 j'ai réussi avec un userform