Faire clignoté un texte

[aurel]

Bonjour le forum,
Par le biais d'un label, j'affiche sur une userform une information capital.
J'aurai aimé la faire clignoter pour quelle ne soit pas omise par les utilisateurs.
Y a t-il un moyen?
Merci d'avance.

Aurel

 

[cbea]

Re : Faire clignoté un texte

Bonjour Aurel,

Voici une solution :

Private Sub UserForm_Activate()
    Dim temps As Single
    
    temps = Timer
    
    Do
        Do Until temps + 0.5 <= Timer
            DoEvents
        Loop
        
        ' Si la couleur de fond du Label1 est rouge alors le fond du Label1 est noir
        ' sinon le fond du Label1 est rouge
        If Label1.BackColor = RGB(255, 0, 0) Then
            Label1.BackColor = RGB(0, 0, 0)      ' Mettre la couleur que tu veux
        Else
            Label1.BackColor = RGB(255, 0, 0)
        End If
        temps = Timer
    Loop
End Sub

 

[aurel]

Re : Faire clignoté un texte

Bonjour cbea,
Merci mais sa ne fonctionne pas
J'ai adapté le code de la facon suivant:

Private Sub UserForm_Activate()
Dim temps As Single
temps = Timer
Do
Do Until temps + 0.5 <= Timer
DoEvents
Loop

If Label13.BackColor = &H8000000F Then
Label13.ForeColor = &H8000000D
Else
Label13.BackColor = &H8000000F
End If
temps = Timer
Loop
End Sub

A mon avis pb avec Timer ????

 

[cbea]

Re : Faire clignoté un texte

re,

Pourrais-tu joindre un extrait de ton fichier ?
Avant de t'envoyer la réponse, je l'avais testée et celle-ci fonctionnait.

 

[aurel]

Re : Faire clignoté un texte

Re cbea,

Je pense que sa va etre difficille c trop volumineux!!
mais peut etre que toi tu pourrais envoyer ton fichier de test?

 

[cbea]

Re : Faire clignoté un texte

Voici mon exemple dans un classeur.

 

[aurel]

Re : Faire clignoté un texte

Re cbea,
Merci pour ton aide sa marche nickel.
Bonne fin de journée