Apparition temporaire d'un message

Est-il possible qu'un message disparaisse après quelques secondes sans qu'il soit nécessaire d'appuyer sur le bouton OK ?

Voici une petite recette :
A ) Tu ajoutes un userform (formulaire) à ton projet. dans la fenêtre VBE (visual basic editor), menu insertion - userform
B ) Ajoute un contrôle étiquette à ton formulaire et à l'aide de la fenêtre propriétés
- formate ce contrôle de la façon désirée. (Couleur de font ... couleur caractère....)
C ) Copie ce code provenant de l'aide d'excel dans ton formulaire

Private sub UserForm_Activate()
 
    newHour = Hour(Now())
    newMinute = Minute(Now())
    newSecond = Second(Now()) + 1
    waitTime = TimeSerial(newHour, newMinute, newSecond)
    Application.Wait waitTime
 
    UserForm1.Hide
 
  end sub

Le chiffre 1 de la procédure détermine la durée en seconde que tu veux voir le formulaire affiché. Adapte le à ta situation.
Pour définir le texte affiché dans le contrôle "étiquette" , utilise directement la propriété du contrôle "Caption" ou copie ceci au code de ton formulaire :

Private sub UserForm_Initialize()
 
 Me.Label1.Caption = "Voici un message très important..." ' à définir
 
 end sub

Maintenant dans une procédure , au moment jugé opportun, tu affiches ton message Userform1.show Voilà pour le principe de base ....

Auteur :

Mots clefs associés à cette page : , , , ,