Le fichier à télécharger SetMsgBoxTimer.xlsm contient:
Les principales caractéristiques:
- Le Module_SetMsgBoxTimer à importer dans le projet VBA.
- Le Module_TestMsgBox comme exemple de mise en œuvre pour un MsgBox.
- Le Module_TestMsgPointBox comme exemple de mise en œuvre pour le Custom MsgBox.
- Le Module_TestUserForm1 comme exemple de mise en œuvre pour un UserForm quelconque.
- Le Module_TestFirefox comme exemple de mise en œuvre pour une application
Les principales caractéristiques:
- Cette procédure initialement faite pour limiter la durée d'affichage d'un MsgBox peut également être utilisée pour un UserForm ou n'importe quelle application lancée par le code VBA. Le fenêtre concernée, si toujours présente, est fermée à échéance du délai imparti.
- L'appel à cette procédure doit être fait immédiatement avant l'instruction MsgBox ou UserForm.Show ou Shell de lancement d'une application.
- Une variable publique booléenne SetMsgBoxTimerTimeOut permet de savoir si le délai d'attente a été atteint.
- Placer le Module_SetMsgBoxTimer dans la projet VBA.
- Dans le code VBA, utiliser la fonction SetMsgBoxTimer juste avant l'instruction MsgBox ou UserForm.Show ou Shell de lancement d'une application en indiquant le nombre de secondes (Single) du délai d'attente.
VB:Sub Exemple() Call SetMsgBoxTimer(2.5) MsgBox "Vous avez 2 secondes et demie pour cliquer sur le bouton !" If SetMsgBoxTimerTimeOut Then MsgBox "Trop tard !" End Sub
- Le Test Msg.Box utilise cette ressource:
VBA - MsgBox personnalisé paramétrable en taille et couleur de texte, de boutons et en position
Un "Custom MsgBox": -> qui s'appelle exactement comme un MsgBox (mêmes arguments), -> qui s'affiche exactement comme un MsgBox (même look, par défaut peu plus grand pour une meilleure lisibilité), -> qui se comporte exactement comme un MsgBox...
excel-downloads.com
- V1 - Initiale.
- V2 - Compatibilité Office 32 bits.
Peut-être est-ce dû au fait que tu es en Office 32 bits.
La V2 est compatible Office 32 bits. A essayer !
Cordialement.