Bonjour a toutes et tous
J'ai récupéré ceci il y a peu et cela marche très bien
Sub tempo()
msgbox "Procédure 1"
Application.OnTime Now + TimeValue("00:00:03"), "DeuxièmeMacro"
End Sub
Sub DeuxièmeMacro()
msgbox "2ème macro"
End Sub
Que faudrait-il rajouter pour voir, pendant le décompte de la tempo,
apparaître une petite fenêtre avec un message " fin de la tempo dans" et le
décompte effectif de cette tempo, puis le disparition de cette fenêtre.
La syntaxe "TimeValue("00:00:03")" ( 3 secondes dans cet exemple) est-elle
limitée au secondes ou peut-on descendre au dixièmes voir moins?
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Joël GARBE
Bonjour Yan,
Un truc dans ce genre-là pourrait-il faire l'affaire (message dans barre d'état Sub tempo() MsgBox "Procédure 1" Dim i As Integer For i = 3 To 1 Step -1 Application.StatusBar = "Fin de la tempo dans " & i & " secondes" Application.Wait (Now + TimeValue("00:00:01")) Next Application.StatusBar = False DeuxièmeMacro End Sub
Sub DeuxièmeMacro() MsgBox "2ème macro" End Sub
--
Bien cordialement,
Joël GARBE www.joelgarbe.fr "yan" a écrit dans le message de news: 418cabb5$0$18914$
Bonjour a toutes et tous J'ai récupéré ceci il y a peu et cela marche très bien
Sub tempo() msgbox "Procédure 1" Application.OnTime Now + TimeValue("00:00:03"), "DeuxièmeMacro" End Sub
Sub DeuxièmeMacro() msgbox "2ème macro" End Sub
Que faudrait-il rajouter pour voir, pendant le décompte de la tempo, apparaître une petite fenêtre avec un message " fin de la tempo dans" et le décompte effectif de cette tempo, puis le disparition de cette fenêtre.
La syntaxe "TimeValue("00:00:03")" ( 3 secondes dans cet exemple) est-elle limitée au secondes ou peut-on descendre au dixièmes voir moins?
A+ yannick
Bonjour Yan,
Un truc dans ce genre-là pourrait-il faire l'affaire (message dans barre
d'état
Sub tempo()
MsgBox "Procédure 1"
Dim i As Integer
For i = 3 To 1 Step -1
Application.StatusBar = "Fin de la tempo dans " & i & " secondes"
Application.Wait (Now + TimeValue("00:00:01"))
Next
Application.StatusBar = False
DeuxièmeMacro
End Sub
Sub DeuxièmeMacro()
MsgBox "2ème macro"
End Sub
--
Bien cordialement,
Joël GARBE
www.joelgarbe.fr
"yan" <xyz@wanadoo.fr> a écrit dans le message de news:
418cabb5$0$18914$8fcfb975@news.wanadoo.fr...
Bonjour a toutes et tous
J'ai récupéré ceci il y a peu et cela marche très bien
Sub tempo()
msgbox "Procédure 1"
Application.OnTime Now + TimeValue("00:00:03"), "DeuxièmeMacro"
End Sub
Sub DeuxièmeMacro()
msgbox "2ème macro"
End Sub
Que faudrait-il rajouter pour voir, pendant le décompte de la tempo,
apparaître une petite fenêtre avec un message " fin de la tempo dans" et
le décompte effectif de cette tempo, puis le disparition de cette fenêtre.
La syntaxe "TimeValue("00:00:03")" ( 3 secondes dans cet exemple)
est-elle limitée au secondes ou peut-on descendre au dixièmes voir moins?
Un truc dans ce genre-là pourrait-il faire l'affaire (message dans barre d'état Sub tempo() MsgBox "Procédure 1" Dim i As Integer For i = 3 To 1 Step -1 Application.StatusBar = "Fin de la tempo dans " & i & " secondes" Application.Wait (Now + TimeValue("00:00:01")) Next Application.StatusBar = False DeuxièmeMacro End Sub
Sub DeuxièmeMacro() MsgBox "2ème macro" End Sub
--
Bien cordialement,
Joël GARBE www.joelgarbe.fr "yan" a écrit dans le message de news: 418cabb5$0$18914$
Bonjour a toutes et tous J'ai récupéré ceci il y a peu et cela marche très bien
Sub tempo() msgbox "Procédure 1" Application.OnTime Now + TimeValue("00:00:03"), "DeuxièmeMacro" End Sub
Sub DeuxièmeMacro() msgbox "2ème macro" End Sub
Que faudrait-il rajouter pour voir, pendant le décompte de la tempo, apparaître une petite fenêtre avec un message " fin de la tempo dans" et le décompte effectif de cette tempo, puis le disparition de cette fenêtre.
La syntaxe "TimeValue("00:00:03")" ( 3 secondes dans cet exemple) est-elle limitée au secondes ou peut-on descendre au dixièmes voir moins?
A+ yannick
yan
J'ai essayé ça marche impec, un peu discret mais vachement cool! Merci beaucoup A+ yannick
"Joël GARBE" a écrit dans le message de news: 418cdd11$0$22039$
Bonjour Yan,
Un truc dans ce genre-là pourrait-il faire l'affaire (message dans barre d'état Sub tempo() MsgBox "Procédure 1" Dim i As Integer For i = 3 To 1 Step -1 Application.StatusBar = "Fin de la tempo dans " & i & " secondes" Application.Wait (Now + TimeValue("00:00:01")) Next Application.StatusBar = False DeuxièmeMacro End Sub
Sub DeuxièmeMacro() MsgBox "2ème macro" End Sub
--
Bien cordialement,
Joël GARBE www.joelgarbe.fr "yan" a écrit dans le message de news: 418cabb5$0$18914$
Bonjour a toutes et tous J'ai récupéré ceci il y a peu et cela marche très bien
Sub tempo() msgbox "Procédure 1" Application.OnTime Now + TimeValue("00:00:03"), "DeuxièmeMacro" End Sub
Sub DeuxièmeMacro() msgbox "2ème macro" End Sub
Que faudrait-il rajouter pour voir, pendant le décompte de la tempo, apparaître une petite fenêtre avec un message " fin de la tempo dans" et le décompte effectif de cette tempo, puis le disparition de cette fenêtre.
La syntaxe "TimeValue("00:00:03")" ( 3 secondes dans cet exemple) est-elle limitée au secondes ou peut-on descendre au dixièmes voir moins?
A+ yannick
J'ai essayé ça marche impec, un peu discret mais vachement cool!
Merci beaucoup
A+
yannick
"Joël GARBE" <joel-garbe@wanadoo.fr> a écrit dans le message de news:
418cdd11$0$22039$8fcfb975@news.wanadoo.fr...
Bonjour Yan,
Un truc dans ce genre-là pourrait-il faire l'affaire (message dans barre
d'état
Sub tempo()
MsgBox "Procédure 1"
Dim i As Integer
For i = 3 To 1 Step -1
Application.StatusBar = "Fin de la tempo dans " & i & " secondes"
Application.Wait (Now + TimeValue("00:00:01"))
Next
Application.StatusBar = False
DeuxièmeMacro
End Sub
Sub DeuxièmeMacro()
MsgBox "2ème macro"
End Sub
--
Bien cordialement,
Joël GARBE
www.joelgarbe.fr
"yan" <xyz@wanadoo.fr> a écrit dans le message de news:
418cabb5$0$18914$8fcfb975@news.wanadoo.fr...
Bonjour a toutes et tous
J'ai récupéré ceci il y a peu et cela marche très bien
Sub tempo()
msgbox "Procédure 1"
Application.OnTime Now + TimeValue("00:00:03"), "DeuxièmeMacro"
End Sub
Sub DeuxièmeMacro()
msgbox "2ème macro"
End Sub
Que faudrait-il rajouter pour voir, pendant le décompte de la tempo,
apparaître une petite fenêtre avec un message " fin de la tempo dans" et
le décompte effectif de cette tempo, puis le disparition de cette
fenêtre.
La syntaxe "TimeValue("00:00:03")" ( 3 secondes dans cet exemple)
est-elle limitée au secondes ou peut-on descendre au dixièmes voir moins?
J'ai essayé ça marche impec, un peu discret mais vachement cool! Merci beaucoup A+ yannick
"Joël GARBE" a écrit dans le message de news: 418cdd11$0$22039$
Bonjour Yan,
Un truc dans ce genre-là pourrait-il faire l'affaire (message dans barre d'état Sub tempo() MsgBox "Procédure 1" Dim i As Integer For i = 3 To 1 Step -1 Application.StatusBar = "Fin de la tempo dans " & i & " secondes" Application.Wait (Now + TimeValue("00:00:01")) Next Application.StatusBar = False DeuxièmeMacro End Sub
Sub DeuxièmeMacro() MsgBox "2ème macro" End Sub
--
Bien cordialement,
Joël GARBE www.joelgarbe.fr "yan" a écrit dans le message de news: 418cabb5$0$18914$
Bonjour a toutes et tous J'ai récupéré ceci il y a peu et cela marche très bien
Sub tempo() msgbox "Procédure 1" Application.OnTime Now + TimeValue("00:00:03"), "DeuxièmeMacro" End Sub
Sub DeuxièmeMacro() msgbox "2ème macro" End Sub
Que faudrait-il rajouter pour voir, pendant le décompte de la tempo, apparaître une petite fenêtre avec un message " fin de la tempo dans" et le décompte effectif de cette tempo, puis le disparition de cette fenêtre.
La syntaxe "TimeValue("00:00:03")" ( 3 secondes dans cet exemple) est-elle limitée au secondes ou peut-on descendre au dixièmes voir moins?
