Userform - Fermer et faire réouvrir dans 5 minutes

Bonjour à tous

Je crée un tableau de bord pour entreprise.

Selon la valeur afficher dans une cellule (calcul), un Userform de mise en garde s'affiche.

Mon code:

Private Sub Worksheet_Calculate()

If [B1] = 1 Then

UsF_Orange_M1.Show

End If

End Sub

Mon Userform s'affiche donc au calcul de la feuille.

Deux options pour mes opérateurs :

1) click ok --> le UsF se ferme

Private Sub CommandButton2_Click()

Unload Me

End Sub

2) Recall in 5 min --> le UsF se ferme et apparaît à nouveau dans 5 minutes.

C'est sur cette deuxième option que je n'arrive pas avancer.

Est-ce que vos conseils avisés me permettraient d'éclairer mon chemin ?

Bien à vous

Willau

Bonjour,

La fonction Ontime répondra sûrement à ta problématique, elle permet de planifier l'éxécution d'un programme.

Des liens t'en parlant plus en détail:

https://www.excel-pratique.com/fr/astuces_vba/ontime.php

https://docs.microsoft.com/fr-fr/office/vba/api/excel.application.ontime