euh ... j'ai oublié de préciser que je ne connais pas (plus ?) grand chose en vba ...
j'en fais depuis un moment mais je n'ai eu à utiliser que des macros basiques qui généralement, n'ont même pas besoin de crééer des objets (c'est pour dire) et de ce fait, pas mal de bases sont passées aux oubliettes ... je te passe mon code :
Sub tps()
m = MsgBox("Go !", vbOKOnly,"titre")
' durée donnée par la sub precedente '
Start = Timer ' top
Finish = Start + duree
Do While Timer < Finish
il_reste = Int(Finish - Timer)
m0 = CreateObject("Wscript.shell").Popup("TEete" & var_a & " texte " & var_b & " texte " & var_c & " texte" & Chr(10) & _
"Il reste " & il_reste & " secondes avant la fin." & Chr(10) & _
"La fenetre se fermera automatiquement à la fin du temps imparti." & Chr(10) & _
"Appuyez sur OK pour mettre à jour ou sur Cancel pour quitter.", duree, "Titre", vbOKCancel)
If m0 = vbCancel Then
Finish = 10000
'grosse valeur donc fini'
End If
m00 = MsgBox("C'est fini !", vbOKOnly, "Sexy_Game")
DoEvents ' Donne le contrôle à d'autres processus.
Loop
sub_suivante
End Sub
j'aimerais que la variable il_reste se mette à jour dans ma msgbox pour eviter ce vieux message "ok pour mettre a jour " !!