Regazrde ce que ferait ceci, par exemple :
Avec 2 checkboxes et 7 lines nommées Line1, Line2 .... Line7
Option Explicit
Private Sub Check1_Click()
calcule_couleur ActiveControl, Array("Line1", "Line2", "Line3")
End Sub
Private Sub Check2_Click()
calcule_couleur ActiveControl, Array("Line4", "Line5", "Line6", "Line7")
End Sub
Private Sub calcule_couleur(C As CheckBox, a)
Dim i As Integer
If C.Value Then couleur vbRed Else couleur vbBlack
For i = 0 To UBound(a)
Controls(a(i)).BorderColor = IIf(C.Value, vbRed, vbBlack)
Next
End Sub
C'est quand même beaucoup plus léger et tout aussi efficace, non ?
Mais si tu tiens tant à "faire clignoter", tu as là également le principe de décisions, à mettre en expressions conditionnelles.
Bonne chance
________________________
Réponse exacte ? => "REPONSE ACCEPTEE" facilitera les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement répéter son contenu. Je n'interviendrai que si nécessité de la compléter.