FAQ
Formulaire
Un objet quelconque (zone de texte, section de formulaire...) dont on souhaite changer la couleur en cycle.
Ici, c'est le fond d'une zone de texte "Horloge".
'Déclaration - au dessus de la première Sub !
Dim iCol As Integer
Const Col1 As Long = 65280
Const Col2 As Long = 8454143
Const Col3 As Long = 16711680
Private Sub Form_Timer()
Ici, c'est le fond d'une zone de texte "Horloge".
'Déclaration - au dessus de la première Sub !
Dim iCol As Integer
Const Col1 As Long = 65280
Const Col2 As Long = 8454143
Const Col3 As Long = 16711680
Private Sub Form_Timer()
iCol = iCol + 1
Select Case iCol
End SubSelect Case iCol
Case 1: Me.Horloge.BackColor = Col1
Case 2: Me.Horloge.BackColor = Col2
Case 3: Me.Horloge.BackColor = Col3: iCol = 0
End SelectCase 2: Me.Horloge.BackColor = Col2
Case 3: Me.Horloge.BackColor = Col3: iCol = 0