Adapter un code VBA (conditions - formats) sur 31jours

Bonjour,

J'ai crée un morceau de code qui fonctionne que voici : 36 57

Il regarde le "jour de la date" et selon le nombre il colorise les textbox

Mais au lieu de retaper 31x le même code un en dessous de l'autre

Il y à pas moyen de faire plus simple ?

Si date = 1 alors Txt36 à 57 = colorier

Si date = 2 alors Txt64 à 85 = colorier

...

...

Si date = 30 alors Txt680 à 701 = colorier

:) Merci à vous

      If Day(Date) = 30 Then
        Dim y As Long
        For y = 680 To 701

     With Controls("TextBox" & y)
  Controls("TextBox" & y).BackColor = RGB(255, 128, 128)
  Controls("TextBox" & y).ForeColor = RGB(0, 0, 0)
  End With
  Next y
   End If

Bonjour dgeo10

Ne me dite pas que vous avez 700 Textbox dans un USF mon dieu

Salut, heu beh si pourquoi ! ?

31jours x 23 colonnes donc 713 txt

Et je ne voulais pas une listbox

bonjour,

et avec "me.Controls("TextBox" & y)"

Re,

dgeo10 a écrit :

Salut, heu beh si pourquoi ! ?

31jours x 23 colonnes donc 713 txt

Et je ne voulais pas une listbox

Comment se fait la saisi

A quoi correspondent ces 23 colonnes ?

A+