Private Sub ComboBox3_Click()
If TextBox1 = "" Then
ComboBox3 = ""
MsgBox " Les TextBox sont vides." & Chr(10) _
& "Attention ! Elles vont être coloriées en rouge.", , "MADA BLACK"
For i = 1 To 10
Controls("TextBox" & i).BackColor = vbRed
Next
End If
End Sub
Private Sub TextBox1_Change()
If TextBox1 <> "" Or ComboBox <> "" Then
MsgBox "Eh mon pote! Faudrais savoir ce que tu veux!!" & Chr(10) _
& " du blanc ou du rouge??", , "1 DECI"
For i = 1 To 10
Controls("TextBox" & i).BackColor = vbWhite
Next
End If
End Sub