faire clignoter une écriture ds zone de texte

Question

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.

Configuration: Windows XP / Internet Explorer 6.0

mprog67 · Answer

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

Faire clignoter une écriture ds zone de texte

1 réponse

Votre réponse

Discussions similaires

Newsletters