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:

• 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?