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...
---------------
iMac 4Ghz (fin 2015) RAM 16Go SSD 256Go SSD 2To