Note: The other languages of the website are Google-translated. Back to English
English English

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:


Les meilleurs outils de productivité de bureau

Kutools for Excel résout la plupart de vos problèmes et augmente votre productivité de 80%

  • Réutilisation: Insérer rapidement formules complexes, graphiques et tout ce que vous avez utilisé auparavant; Crypter les cellules avec mot de passe; Créer une liste de diffusion et envoyer des e-mails ...
  • Barre Super Formula (modifiez facilement plusieurs lignes de texte et de formule); Disposition de lecture (lire et modifier facilement un grand nombre de cellules); Coller dans la plage filtréeplus
  • Fusionner les cellules / lignes / colonnes sans perdre de données; Contenu des cellules divisées; Combiner des lignes / colonnes en double... Empêcher les cellules en double; Comparer les gammesplus
  • Sélectionnez Dupliquer ou Unique Lignes; Sélectionnez les lignes vides (toutes les cellules sont vides); Super Find et Fuzzy Find dans de nombreux classeurs; Sélection aléatoire ...
  • Copie exacte Plusieurs cellules sans changer la référence de formule; Créer automatiquement des références à plusieurs feuilles; Insérer des puces, Cases à cocher et plus encore ...
  • Extrait du texte, Ajouter du texte, Supprimer par position, Supprimer l'espace; Créer et imprimer des sous-totaux de pagination; Conversion entre le contenu et les commentaires des cellulesplus
  • Super filtre (enregistrer et appliquer des schémas de filtrage à d'autres feuilles); Tri avancé par mois / semaine / jour, fréquence et plus; Filtre spécial par gras, italique ...
  • Combiner des classeurs et des feuilles de travail; Fusionner les tableaux en fonction des colonnes clés; Diviser les données en plusieurs feuilles; Conversion par lots xls, xlsx et PDFplus
  • Plus de 300 fonctionnalités puissantes. Prend en charge Office / Excel 2007-2019 et 365. Prend en charge toutes les langues. Déploiement facile dans votre entreprise ou organisation. Essai gratuit de 30 jours. Garantie de remboursement de 60 jours.
onglet kte 201905

Office Tab apporte une interface à onglets à Office et simplifie considérablement 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!
bas de cabine
Commentaires (6)
Pas encore de notes. Soyez le premier à évaluer!
Ce commentaire a été minimisé par le modérateur sur le site
Tu es juste parfait... :lol: :lol: :lol: 8) 8) 8)
Ce commentaire a été minimisé par le modérateur sur le site
C'est vraiment sympa, mais sur mes codes, j'utilise la fonction "GetAsyncKeyState" pour reconnaître l'état d'entrée de mes données (à l'aide d'un pistolet d'analyse) et la fonction "MsgBoxTimeout" affecte la fonction "GetAsyncKeyState". Sans le "MsgBoxTimeOut", tout fonctionne normalement, quand je l'inclus, c'est comme désactiver la fonction "GetAsyncKeyState", mais les deux ne veulent pas travailler ensemble. Avez-vous une suggestion?
Ce commentaire a été minimisé par le modérateur sur le site
Salut. existe-t-il un moyen d'arrêter le son d'Excel (VBA) lorsque la boîte apparaît? J'ai besoin de l'utiliser comme un message en boucle à plusieurs reprises dans un morceau de code, mais à part baisser le volume, je ne sais pas comment arrêter le son d'avertissement apparaissant à chaque fois que la boîte apparaît? Merci.
Ce commentaire a été minimisé par le modérateur sur le site
Salut. Merci pour cela - c'est vraiment utile. Existe-t-il un moyen d'arrêter le son d'Excel (VBA) lorsque la boîte apparaît ? J'ai besoin de l'utiliser comme un message en boucle à plusieurs reprises dans un morceau de code, mais à part baisser le volume, je ne sais pas comment arrêter le son d'avertissement apparaissant à chaque fois que la boîte apparaît? Merci.
Ce commentaire a été minimisé par le modérateur sur le site
Salut thebankman,Ce sont les sons du système d'application par défaut dans Windows. Vous pouvez le désactiver comme indiqué dans la capture d'écran ci-dessous.
Ce commentaire a été minimisé par le modérateur sur le site
Merci Cristal. Très appréciée
Il n'y a pas encore de commentaires postés ici
Laisser vos commentaires
Publier en tant qu'invité
×
Évaluez cet article:
0   Personnages
Emplacements suggérés