Bonjour à tous,
Je continu mon formulaire, qui avance bien, une petite question j'ai un ensemble de textbox 48 pour exacte avec la meme condition:
Si < 7h48 alors met le fond du textbox en rouge.
Je l'ai créer elle fonctionne mais un peu long à faire!!!
Y aurai il une solution plus rapide pour le faire, je vous mets le code ci dessou.
Merci d'avance Coco
'011
TextBox1 = Sheets("011").Range("O4").Text
TextBox2 = Sheets("011").Range("P4").Text
TextBox3 = Sheets("011").Range("Q4").Text
TextBox4 = Sheets("011").Range("R4").Text
TextBox5 = Sheets("011").Range("S4").Text
etc etc....
If TextBox1.Value < "7:48" Then
TextBox1.BackColor = &HFF& 'rouge
Else
TextBox1.BackColor = &H80000005 'blanc
End If
If TextBox2.Value < "7:48" Then
TextBox2.BackColor = &HFF& 'rouge
Else
TextBox2.BackColor = &H80000005 'blanc
End If
If TextBox3.Value < "7:48" Then
TextBox3.BackColor = &HFF& 'rouge
Else
TextBox3.BackColor = &H80000005 'blanc
End If
If TextBox4.Value < "7:48" Then
TextBox4.BackColor = &HFF& 'rouge
Else
TextBox4.BackColor = &H80000005 'blanc
End If
If TextBox5.Value < "7:48" Then
TextBox5.BackColor = &HFF& 'rouge
Else
TextBox5.BackColor = &H80000005 'blanc
End If