problème VBA EXCEL : Label clignotant Résolu/Fermé

Question

Bonjour,

je suis débutant en VBA excel, j'ai créé un label non visible sur mon USERFORM qui se déclenche en alerte lorsque je dépasse quelques conditions. je voulais par conséquent le rendre clignotant lorsqu'il devient visible . comme dois-je procéder SVP?

Merci pour votre réponse.

f894009 · Answer

Bonjour,

un exemple: https://www.cjoint.com/c/EAxhnclu5EB

LANGAZOU · Answer

Bonjour, Merci pour votre réponse. le problème c'est que je suis débutant en VBA et j'ai pas pu adapter le code sur mon problème. voici mon code : For Each TheRow In Feuil9.ListObjects("Tab_Taux").ListRows 'On recherche la ligne qui correspond à critère Montant et Nbr de jour If TextBox3 <> "" And TextBox7 <> "" And TextBox11 <> "" And ComboBox1 <> "" Then If (CDbl(TextBox7.Text) >= TheRow.Range(1, 1).Value) And (CDbl(TextBox7.Text) <= TheRow.Range(1, 2).Value) And (CDbl(TextBox3.Text) >= TheRow.Range(1, 3).Value) And (CDbl(TextBox3.Text) <= TheRow.Range(1, 4).Value) Then 'On controle le taux If CDbl(TextBox11.Text) > TheRow.Range(1, 5).Value And CheckBox1.Value = False Then TextBox11.Value = "" MsgBox " (1ère Consultation) Dépassement du Taux Maximal : " & TheRow.Range(1, 5).Value & " % " CheckBox1.Visible = True 'On quitte la boucle Exit For End If End If End If Next - je veux que lorsque le checkbox1 devient visible son label commence à clignoter. Merci.

f894009 · Answer

Re,

Pourquoi une checkbox ????

exemple complete avec clignote checkbox: 
plus simple a comprendre
https://www.cjoint.com/c/EAxlqNhRTRB

pijaku · Answer

Bonjour,

@f894009 : Juste une petite mise en garde sur l'utilisation de DoEvents en boucle.
A la suite d'une remarque d'UcFoutu (que tu as croisé sur le site CCM/CodeS SourceS), j'ai réalisé, avec lui, une petite étude sur l'utilisation de DoEvents. Tu la trouvera ici : https://codes-sources.commentcamarche.net/faq/11087-vba-doevents-problemes-et-solutions

Juste pour te montrer, par l'intermédiaire de ton code, la portée de ce machin, teste ce code :
Il s'agit de ton code de clignotement de label auquel j'ai ajouté un compteur de DoEvents. Laisse le fonctionner 3-4 secondes, tu seras surpris du résultat.
'Clignotant pour Label et Bouton
Sub TimerLab_Bout()
Static Memt As Double, Cpt As Long
    Do While Arret_Timer1 Or Arret_Timer2   'Clignotant Label ou Clignotant Bouton Ok
        If Memt < Timer Then
            If Arret_Timer1 Then
              If userform1.Label45.Caption = "" Then
                userform1.Label45.Caption = "Sélection cellule"
              Else
                userform1.Label45.Caption = ""
              End If
            End If
            If Arret_Timer2 Then
              If userform1.CmBValider.Caption = "" Then
                userform1.CmBValider.Caption = "AUTOMATIQUE"
              Else
                userform1.CmBValider.Caption = ""
              End If
            End If
            Memt = Timer + 0.333 'Interval temps: 1/3 de seconde
        End If
        DoEvents: Cpt = Cpt + 1
    Loop
    MsgBox Cpt
End Sub

Il vaut mieux, d'autant plus que tu maîtrises VB, utiliser un véritable Timer comme indiqué dans le tutoriel.

Sur ce, bonne continuation.
@+

f894009 · Answer

Re,

LANGAZOU:
exemple avec OnTime:  https://www.cjoint.com/c/EAxmqNfLPOM

pijaku: ai suivi le lien, c'est bien fait, vaut le cout d'etre consulte

LANGAZOU · Answer

Merciii beaucoup pour votre aide ;)

Problème VBA EXCEL : Label clignotant

6 réponses