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
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:
- Comment faire apparaître une boîte de message en cliquant sur une certaine cellule dans Excel?
- Comment copier le texte de la boîte de message dans Excel?
- Comment faire apparaître une boîte de message lors de l'activation / l'ouverture d'une feuille de calcul spécifiée dans Excel?
- Comment faire apparaître une boîte de message pour afficher une plage de cellules ou des valeurs de cellule dans Excel?
- Comment faire apparaître une boîte de message si la valeur de la cellule change dans une plage dans Excel?
Meilleurs outils de productivité bureautique
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...
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!
