Faire clignoter une écriture ds zone de texte

loeh -  
mprog67 Messages postés 51 Statut Membre -
Bonjour à tous,

Je travaille avec Excel 2003 et je cherche à faire clignoter une écriture dans une zone de texte (zone rouge, écriture noire Arial 10)

Merci à tous pour votre aide!!
L.E.

1 réponse

  1.
    mprog67 Messages postés 51 Statut Membre 2
     
    Voilà un exemple de code j'espère qu'il vous sera utile

    Sub ControleAss()
    Dim ValAss As Integer
    Dim ValCT As Integer
    Dim color As Long

    sc = sc + 1

    sc = sc Mod 2
    color = RGB(255 - 5 * sc, 255 - 200 * sc, 255 - 200 * sc)

    If Not IsNull(Me!DateExpir) Then
    ValAss = DateDiff("d", Date, Me!DateExpir)
    If ValAss <= 10 Then
    DateExpir.BackColor = color
    DateExpir.ControlTipText = "Vous avez" & Space(1) & ValAss & Space(1) & "jours pour l'expiration" & _
    Chr(13) & "de l'assurance de ce camion."
    Else
    DateExpir.BackColor = RGB(255, 255, 255)
    DateExpir.ControlTipText = ""
    End If

    End If

    If Not IsNull(Me!Expir_CT) Then
    ValCT = DateDiff("d", Date, Expir_CT)
    If ValCT <= 10 Then
    Expir_CT.BackColor = color
    Expir_CT.ControlTipText = "Vous avez" & Space(1) & ValCT & Space(1) & "jours pour l'expiration" & _
    Chr(13) & "du controle technique de ce camion."
    Else
    Expir_CT.BackColor = RGB(255, 255, 255)
    Expir_CT.ControlTipText = ""
    End If

    End If
    End Sub
    0