Option Explicit
Dim t As Byte
_____________________________________
Private Sub OptionButton1_Change()
rouge
End Sub
_______________________________________
Private Sub OptionButton2_Change()
rouge
End Sub
________________________________________
Private Sub OptionButton3_Change()
rouge
End Sub
_________________________________________
Private Sub OptionButton4_Change()
rouge
End Sub
___________________________________________
Private Sub rouge()
For t = 1 To 4
If Controls('optionbutton' & t) = True Then
Controls('optionbutton' & t).ForeColor = &HFF
Else: Controls('optionbutton' & t).ForeColor = &H80000012
End If
Next
End Sub