Même condition pour plusieur textbox

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

coco6728 a écrit :

Bonjour à tous,

bonjour,

essaie ceci, non testé

'011
for i=1 to 48
  with me("textbox" & i)
     .value=Sheets("011").cells(4,14+i).Text

            If .Value < "7:48" Then
               .BackColor = &HFF& 'rouge
               Else
             .BackColor = &H80000005 'blanc
            End If
end with
next i

Bonjour H2so4

Merci pour le début, ca fonctionne pour la feuille '011', mais j'avais oublié de dire que les données ne se prennent pas sur la même feuille. J'ai essayé d'adapter mais sans sucées.

Je transmet le fichier.

Rebonjour,

code adapté pour la gestion des couleurs, il te reste la récupération des données sur la bonne feuille donc le etc, etc ...

'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....
for i=1 to 48
  with me("textbox" & i)
       If .Value < "7:48" Then
               .BackColor = &HFF& 'rouge
               Else
             .BackColor = &H80000005 'blanc
            End If
end with
next i

Super comme je voulais,

Grand Merci

Coco