Texte Clignotant: arrêt après 3 ou 4 secondes

Salut Tous le Monde,

J'ai cette syntaxe que j'ai trouvé sur ce Forum, et qui fonctionne bien pour faire clignoter un texte ds un Label.

Private Sub UserForm_Activate()
Dim MaTempo As String
MaTempo = Timer
Do
Do Until MaTempo + 1 <= Timer
DoEvents
Loop
If Label_1.Visible = True Then Label_1.Visible = False Else Label_1.Visible = True
MaTempo = Timer
Loop

Mon souhait est de faire clignoter le texte environ 3 ou 4 secondes et qu'il s'arrête.

Que dois-je ajouter pour arriver à ce résultat?

Merci Beaucoup

Jean.

Bonsoir,

à tester

Private Sub UserForm_Activate()
Dim MaTempo As String
mc=timer+5
MaTempo = Timer
Do until mc<=Timer
Do Until MaTempo + 1 <= Timer
DoEvents
Loop
If Label_1.Visible = True Then Label_1.Visible = False Else Label_1.Visible = True
MaTempo = Timer
Loop

Bonsoir h2so4,

J'ai essayé, et j’aboutis à une erreur.

Je vous joins le Classeur et photos de l'erreur.

Merci de Votre Aide.

Jean

Bonsoir Moé Kolisse,

Respect H2sO4

Est ce que l'erreur de Moé kolisse ne viendrait pas de" Label1" au lieu de "Label_1"?

Cordialement

Bonsoir BAKH,

Effectivement, je n'avais pas remarqué ce changement.

Maintenant ça fonctionne très bien.

Merci Beaucoup de votre AIDE à Vous et à h2so4.