Label clignotant dans une userform

Marsh Posté le 25-08-2009 à 16:57:29

:hello:

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

Marsh Posté le 25-08-2009 à 16:57:29

Marsh Posté le 25-08-2009 à 17:00:02

En fait, je cherche une sorte de 'autoopen' lié à la userform... un peu pareil que quand on ouvre une feuille Excel et qu'il y a une macro Workbook_Open...

---------------
iMac 4Ghz (fin 2015) RAM 16Go SSD 256Go SSD 2To

Marsh Posté le 08-09-2009 à 16:30:40

Et sur le Activate de ton Form ?

---------------
Soyez malin, louez entre voisins !

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed

Name *

Email *

URL

Message *