Set c = Sheets("Feuil1").Range("B4:J25").Find(Date)
If c Is Nothing Then
TextBox1.BackColor = &H80000005
Else
TextBox1.BackColor = &HFF&
End If
Private Sub TextBox1_Change()
Set c = Sheets("Feuil1").Range("B4:J25").Find(Date)
If c Is Nothing Then
TextBox1.BackColor = &H80000005
Else
TextBox1.BackColor = &HFF&
End If
End Sub
Private Sub Label1_Click()
Set c = Sheets("Feuil1").Range("B4:J25").Find(Date)
If c Is Nothing Then
UserForm1.Label1.BackColor = &HFFFFFF
Else
UserForm1.Label1.BackColor = &HFF&
End If
End Sub
For x = 2 To 10
For y = 4 To 25