Apparition temporaire d'un message
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 : Denis Michon
Mots clefs associés à cette page : message, msgbox, temporaire, userform, formulaire
- Vous devez vous identifier ou créer un compte pour écrire des commentaires
