Faire clignoté un texte

  • Initiateur de la discussion Initiateur de la discussion aurel
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

aurel

XLDnaute Junior
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
 
Re : Faire clignoté un texte

Bonjour Aurel,

Voici une solution :
Code:
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
 
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 ????
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
3
Affichages
516
Réponses
5
Affichages
336
Retour