Problème VBA EXCEL : Label clignotant

Bonjour,

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

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.

Re,

Pourquoi une checkbox ????

exemple complete avec clignote checkbox:
plus simple a comprendre
https://www.cjoint.com/c/EAxlqNhRTRB

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.
@+

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

Merciii beaucoup pour votre aide ;)