J'ai besoin d'un peu d'aide !
J'ai une userform qui s'affiche à un moment donné lors de l'exécution d'une macro...
Dans cette userform, il y a :
- un label : "Saisie obligatoire :"
- une zone de texte : zone où la saisie est obligatoire
- un bouton OK pour refermer la userform et enregistrer la saisie à un endroit donné d'une feuille
Bref, je souhaitera que le label "Saisie obligatoire" clignote... tout simplement.
J'ai bien trouvé un code sur le net mais il faut cliquer sur un bouton de la userform pour que le label clignote...
Code :
- Sub Clignotement()
- Dim TempsClign As Single
- Dim Depart As Single
- Dim Fin As Single
- Dim MemTimer As Single
- Const TempsAllum = 0.5
- Const TempsExtinc = 0.5
- TempsClign = 6
- Depart = Timer
- Do While Timer < Depart + TempsClign
- MemTimer = Timer
- Do While Timer < MemTimer + TempsExtinc
- DoEvents
- UserForm1.Etiquette1.ForeColor = &H8000000F
- Loop
- MemTimer = Timer
- Do While Timer < MemTimer + TempsAllum
- DoEvents
- UserForm1.Etiquette1.ForeColor = &H80000012
- Loop
- DoEvents
- Loop
- End Sub
|
et moi, je veux qu'il clignote dès l'ouverture de la userform...

---------------
Conducteur de Twingo - Ancien pilote de 206 RC