Problème d'écriture trop lourd

[UDSP50]

Je n'arrive pas a alléger mon code pourriez vous m'aider svp

Le voici

Code :

1
2
3
4
5
6
7
8
9
 
If feuil2.range("f6").value = "1" then goto 10
 
10
Calendrier.label10.backcolor = feuil3.range("e6").interior.color
Calendrier.label13.backcolor = feuil3.range("e6").interior.color
Calendrier.label16.backcolor = feuil3.range("e6").interior.color
Calendrier.label19.backcolor = feuil3.range("e6").interior.color
Calendrier.label23.backcolor = feuil3.range("e6").interior.color

On peu voir que les labels augmentent de 3 en 3

Merci a vous

[redstoff]

bonjour,

le nombre total de label est fixe ou varie-t-il?
s'il est fixe combien en as-tu?

pour le label23 il est a +4 au lieu de +3 comme les autres, est ce normal?
je veux dire qu'il casse la chaine de 3 en 3

[UDSP50]

Non c'est une erreur de ma part
Tous les label sont à plus 3

J'ai des labelles qui partent de label10 à 40
Mais j'ai juste besoin d'afficher la couleur tous les 3 labels

Merci

[redstoff]

tu peux tester ca

Code :

1
2
3
4
5
6
7
Sub test()
If Feuil2.Range("f6").Value = "1" Then GoTo 10
10
For i = 10 To 40 Step 3
    calendrier.Controls("Label" & i) = Feuil3.Range("e6").Interior.Color
Next i
End Sub

je suppose dans mon test que calendrier est un userform.

[UDSP50]

Merci j'essaie je te redis mais en tout cas merci

[Godzestla]

Bonjour,

je crois qu'il y a une petite erreur dans la solution proposée.

Ceci

Code :

 calendrier.Controls("Label" & i) = Feuil3.Range("e6").Interior.Color

devrait plutôt s'écrire

Code :

 calendrier.Controls("Label" & i).backcolor = Feuil3.Range("e6").Interior.Color

je pense.

[redstoff]

oui bien vu.
petit oubli ^^