Passer au contenu principal

Comment créer un minuteur de boîte de message pour fermer automatiquement la boîte de message après un certain temps dans Excel?

Lorsque vous utilisez le classeur Excel, vous pouvez souvent utiliser des scripts VBA pour résoudre des problèmes. Et il y aura des boîtes de message qui apparaîtront pendant l'exécution du script. Dans certains cas, vous souhaiterez que certaines boîtes de message spécifiées se ferment automatiquement après un certain temps, au lieu de les fermer manuellement. Dans cet article, nous allons vous montrer la méthode de création d'une minuterie de boîte de message pour fermer automatiquement la boîte de message après un certain temps dans Excel.

Créer un minuteur de boîte de message pour fermer automatiquement la boîte de message après un certain temps


Créer un minuteur de boîte de message pour fermer automatiquement la boîte de message après un certain temps

Voici un modèle de script VBA pour vous permettre de créer un minuteur de boîte de message.

Supposons que vous exécutiez un script VBA pour déplacer des lignes en fonction de la valeur de la cellule. Après avoir terminé le déplacement, vous avez besoin d'une boîte de message pour vous dire que l'opération a réussi et cette boîte de message doit se fermer automatiquement après 4 secondes (voir capture d'écran ci-dessous). Veuillez suivre les étapes ci-dessous.

1. Ouvrez le Microsoft Visual Basic pour applications fenêtre, cliquez sur insérer > Module, puis insérez le code VBA que vous souhaitez utiliser pour déplacer les lignes en fonction de la valeur de la cellule.

2. Copiez le code VBA suivant 1 et placez-le avant le code que vous souhaitez utiliser. Voir capture d'écran ci-dessous :

Code VBA 1:

Private Declare PtrSafe Function CustomTimeOffMsgBox Lib "user32" Alias "MessageBoxTimeoutA" ( _
            ByVal xHwnd As LongPtr, _
            ByVal xText As String, _
            ByVal xCaption As String, _
            ByVal xMsgBoxStyle As VbMsgBoxStyle, _
            ByVal xwlange As Long, _
            ByVal xTimeOut As Long) _
    As Long

3. Copiez le code VBA 2 ci-dessous et placez-le avant la ligne "End Sub" du code que vous souhaitez utiliser.

Code VBA 2:

 Call CustomTimeOffMsgBox(0, "Moved successfully. This message box will be closed after 4 seconds", "Kutools for Excel", vbInformation, 0, 4000)

Notes: Vous pouvez modifier le contenu de la boîte de message et la durée d'affichage de la boîte de dialogue en fonction de vos besoins.

4. Après avoir exécuté le code pour effectuer l'opération, une boîte de message apparaîtra puis se fermera automatiquement après un certain temps (dans ce cas, 4 secondes).


Articles connexes:

Meilleurs outils de productivité bureautique

Caractéristiques populaires: Rechercher, mettre en évidence ou identifier les doublons   |  Supprimer les lignes vides   |  Combinez des colonnes ou des cellules sans perdre de données   |   Tour sans formule 
Super recherche: VSearchup à critères multiples    VSearch à valeurs multiples  |   Recherche virtuelle sur plusieurs feuilles   |   Recherche floue ....
Liste déroulante avancée: Créez rapidement une liste déroulante   |  Liste déroulante dépendante   |  Liste déroulante à sélection multiple ....
Gestionnaire de colonnes: Ajouter un nombre spécifique de colonnes  |  Déplacer les colonnes  |  Basculer l'état de visibilité des colonnes masquées  |  Comparer les plages et les colonnes 
Caractéristiques en vedette: Mise au point de la grille   |  Voir Design   |   Grande barre de formule    Gestionnaire de classeurs et de feuilles   |  Centre de ressources (Texte automatique)   |  Sélecteur de date   |  Combiner des feuilles de travail   |  Crypter/déchiffrer les cellules    Envoyer des e-mails par liste   |  Super filtre   |   Filtre spécial (filtre gras/italique/barré...) ...
Les 15 meilleurs ensembles d'outils12 Texte Outils (Ajouter du texte, Supprimer les caractères, ...)   |   50+ Graphique Types (Diagramme de Gantt, ...)   |   40+ Pratique Formules (Calculer l'âge en fonction de l'anniversaire, ...)   |   19 Insertion Outils (Insérer le code QR, Insérer une image à partir du chemin, ...)   |   12 Conversion Outils (Nombres en mots, Conversion des devises, ...)   |   7 Fusionner et fractionner Outils (Lignes de combinaison avancées, Cellules divisés, ...)   |   ... et plus

Améliorez vos compétences Excel avec Kutools for Excel et faites l'expérience d'une efficacité comme jamais auparavant. Kutools for Excel offre plus de 300 fonctionnalités avancées pour augmenter la productivité et gagner du temps.  Cliquez ici pour obtenir la fonctionnalité dont vous avez le plus besoin...

onglet kte 201905


Office Tab apporte une interface à onglets à Office et facilite grandement votre travail

  • Activer l'édition et la lecture par onglets dans Word, Excel, PowerPoint, Publisher, Access, Visio et Project.
  • Ouvrez et créez plusieurs documents dans de nouveaux onglets de la même fenêtre, plutôt que dans de nouvelles fenêtres.
  • Augmente votre productivité de 50% et réduit des centaines de clics de souris chaque jour!
Comments (8)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Ufff... great!!... very good... thank you
This comment was minimized by the moderator on the site
Ufff... buenisimo!!... muy bien... gracias
This comment was minimized by the moderator on the site
Hi. Thanks for this - it's really useful. Is there any way to stop Excel (VBA) chiming when the box appears? I need to use this as a repeatedly looping message in a piece of code but aside from turning the volume down I don't know how to stop the warning sound appearing everytime the box appears? Thanks.
This comment was minimized by the moderator on the site
Hi thebankman,This is the default application system sounds in windows. You can turn it off as shown in the screenshot below.
This comment was minimized by the moderator on the site
Thanks Crystal. Much appreciated
This comment was minimized by the moderator on the site
Hi. is there any way to stop Excel (VBA) chiming when the box appears? I need to use this as a repeatedly looping message in a piece of code but aside from turning the volume down I don't know how to stop the warning sound appearing everytime the box appears? Thanks.
This comment was minimized by the moderator on the site
It is really nice, but on my codes I'm using the "GetAsyncKeyState" function to recognize the entry status for my data (using an scan gun) and the "MsgBoxTimeout" function is affecting the "GetAsyncKeyState" function. Without the "MsgBoxTimeOut" everything is working normal, when I include it, is like disactivate the "GetAsyncKeyState" function, but both not want to work together. Have you any suggestion?
This comment was minimized by the moderator on the site
You are just perfect... :lol: :lol: :lol: 8) 8) 8)
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations