Faire clignoter une écriture ds zone de texte
loeh
-
mprog67 Messages postés 28 Date d'inscription Statut Membre Dernière intervention -
mprog67 Messages postés 28 Date d'inscription Statut Membre Dernière intervention -
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.
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.
A voir également:
- Faire clignoter une écriture ds zone de texte
- Alternative zone telechargement - Accueil - Outils
- Texte de chanson gratuit pdf - Télécharger - Vie quotidienne
- Écriture facebook - Guide
- Ecriture en gras - Guide
- Transcription audio en texte word gratuit - Guide
1 réponse
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
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