Afficher un message temporaire

[Lighter]

Bonjour à tous,
Je cherche comment dans un code VBA, je peux afficher dans le déroulement du programme, un message qui s'affiche que 15 à 20 secondes puis disparait pour continuer la suite du process.
Je passerai par une temporisation d'un MSGBOX( ) mais je n'en suis pas convaincu.
Merci pour votre aide

 

[youky(BJ)]

Re : Afficher un message temporaire

Bonjour Lighter,
Voici un exemple sur ce fichier (message de 12 secondes)
Macro simple à comprendre et voir Feuil2 ou je mets la zone de texte
Bruno

 

[gilbert_RGI]

Re : Afficher un message temporaire

Bonjour

un truc dans le genre

 

[patoq]

Re : Afficher un message temporaire

bonsoir,

CreateObject("Wscript.shell").Popup "Voila le message", 15, "Titre du message"

MsgBox temporaire de 15 sec.

Cdt
Patrice

 

[mapomme]

Re : Afficher un message temporaire

Bonjour Lighter,

Peut-être encore une autre manière:

Sub Test()

'***************************************
' code avant pause
  MsgBox "Fin du code avant la pause"
'***************************************

  Dim T0 As Single, Duree As Integer
  T0 = Timer: Duree = 10: Beep
  Do
    If Not UserForm1.Visible Then UserForm1.Show 0
    UserForm1.Label1 = "Veuillez patientez env. " & Int(Duree + T0 - Timer + 0.5) & "s"
    DoEvents
  Loop Until (Timer - T0) > Duree
  Unload UserForm1: Beep
    
'***************************************
' code après pause
  MsgBox "Suite du code après pause"
'***************************************

End Sub

edit: v2

 

[herve62]

Re : Afficher un message temporaire

Bsr tous

T0 = Timer: Duree = 10: Beep

Je connaissais pas , Y a t-il un lien pour expliquer >déjà le format ,et ce que ça fait ?


Slt Mapomme , t'as vu .. je reviens !! ( je dis pas ton nom , moi c'est Hervé !!.. ca tu sais )
Bonne fin WE

 

[mapomme]

Re : Afficher un message temporaire

Bonsoir Hervé 🙂 ,

Ravi de ton retour. Pour la syntaxe:
Les deux points ":" servent en VBA à séparer deux (ou plus) instructions sur la même ligne plutôt que de les écrire sur deux lignes (ou plus).
Ici trois instructions regroupées sur la même ligne:
T0 = Timer '(nbre de secondes écoulées depuis minuit)
Duree = 10 '(temps d'attente en s)
Beep '(couine)

@+

 

[MJ13]

Re : Afficher un message temporaire

Bonjour à tous

J'avais fait ce code pour afficher un USF temporaire:

 

[k.Karim]

Re : Afficher un message temporaire

bonsoir,

CreateObject("Wscript.shell").Popup "Voila le message", 15, "Titre du message"

MsgBox temporaire de 15 sec.

Cdt
Patrice

Bonjour patoq,
Merci du code très simple et marche à merveilles.

 

[patricktoulon]

Bonjour
sur 2013 et + ça ne fonctionnera plus

 

[k.Karim]

Bonjour
sur 2013 et + ça ne fonctionnera plus

Bonsoir,
Moi j'ai encore 2007 j'ai oublié de le préciser.
merci de le signaler

 

[sylvanu]

Bonjour tout le monde,

je peux afficher dans le déroulement du programme,

Pour suivre le déroulement du programme sans interrompre celui ci, on peut utiliser :

Application.StatusBar = "Niveau de progression"

On peut ainsi insérer cette ligne dans plusieurs endroits du programme.
Et à la fin, ne pas oublier d'effacer le message :

Application.StatusBar = ""

 

[patricktoulon]

bonjour sylvanu
sinon dans les ressources il y a ta progressbar dans la status bar
et le msgbox temporaire de Dudu2 et moi
quand a ta progressbar voici ma version

Sub testxx()
    For i = 1 To 100000
        x = i
        StatusProgressBar 100000, x
    Next
End Sub



Function StatusProgressBar(max, ind)
    Dim barre$, fin&, it&, perct&
    barre = WorksheetFunction.Rept(ChrW(9618), 20)
    fin = Int(max / (max / 20))
    it = Int(ind / (max / 20))
    Mid$(barre, 1, it) = Application.Rept(ChrW(9608), it)
    perct = Int(100 * (it / fin))
    Application.StatusBar = " - Progression : |" & barre & "|  " & perct & " %  "
End Function

 

[sylvanu]

Re,
Ou celui ci, dans les ressources :

Insérer un ProgressBar dans le StatusBar

On peut insérer un ProgressBar dans le StatusBar pour éviter l'utilisation d'un useform. C'est une autre méthode simple de voir la progression d'un événement. Le code est très simple à copier dans votre code , et idem pour l'appel de la fonction...

www.excel-downloads.com