Alors en fait, j'avais voulu faire ça aussi dans mon programme précédent et c'est pas possible directement, mais en chargeant une référence supplémentaire, tu peux faire des PopUp limitée dans le temps.
Extraits bruts de que j'avais fait :
'windows script host object model à activer!
Sub TimedMess(Message As String, Optional Titre As String)
Dim SH As IWshRuntimeLibrary.WshShell
Set SH = New IWshRuntimeLibrary.WshShell
SH.Popup Message, 2, Titre, vbOKOnly 'Ici la durée c'est 2 secondes, tu peux la passer en argument de la fonction!
End Sub
Sub appelMessTim()
TimedMess "Nice", "Working"
End Sub
Et si tu veux que les références soient chargées à l'ouverture du fichier peut importe où :
Private Sub Workbook_Open()
On Error Resume Next
'Reference ADO Object Library using Major / Minor GUID
With ThisWorkbook.VBProject.References
.AddFromGuid "{000204EF-0000-0000-C000-000000000046}", 4, 0
.AddFromGuid "{00020813-0000-0000-C000-000000000046}", 1, 6
.AddFromGuid "{2DF8D04C-5BFA-101B-BDE5-00AA0044DE52}", 2, 4
.AddFromGuid "{00020430-0000-0000-C000-000000000046}", 2, 0
.AddFromGuid "{91493440-5A91-11CF-8700-00AA0060263B}", 2, 9
.AddFromGuid "{F935DC20-1CF0-11D0-ADB9-00C04FD58A0B}", 1, 0
End With
End Sub
J'ai juste plus aucune idée de qui est quoi là dedans, y a du PowerPoint, des trucs de stats et je sais plus quoi, mais dans ceux là, tu as celui de la référence à activer pour les popup avec minutage (windows script host object model)
Voilà, amuse toi bien!
(et si tu veux juste faire faire une petite pause à ton code pour que ta machine reprenne un peu le dessus, regarde DoEvent)