coolbehappy
Messages postés5Date d'inscriptionvendredi 24 février 2006StatutMembreDernière intervention23 octobre 2010
-
21 sept. 2010 à 00:44
coolbehappy
Messages postés5Date d'inscriptionvendredi 24 février 2006StatutMembreDernière intervention23 octobre 2010
-
21 sept. 2010 à 19:16
Bonjour,
Dans Userform1 j'ai 40 Labels que j'ai nommés Plot1, Plot2, Plot3,...,Plot40.
Je voudrais modifier la couleur de fond de tous les Labels en fonction de la valeur de la variable Couleur (String).
Je ne sais pas comment écrire ce code.
Voici ce que j'ai écrit :
For i = 1 To 40
If Couleur "R" Then UserForm1.Controls(Plot & i).BackColor RGB(255, 0, 0)
If Couleur "O" Then UserForm1.Controls(Plot & i).BackColor RGB(255, 190, 0)
If Couleur "V" Then UserForm1.Controls(Plot & i).BackColor RGB(0, 255, 0)
Next i
Cela ne fonctionne pas. Je pense que c'est dû à Controls(Plot & i). Et je ne trouve pas la syntaxe correcte sur Internet.
coolbehappy
Messages postés5Date d'inscriptionvendredi 24 février 2006StatutMembreDernière intervention23 octobre 2010 21 sept. 2010 à 19:16
Jordane, je t'adresse un grand merci.
J'y ai passé beaucoup de temps sans succès et tu m'as indiqué la syntaxe correcte.
La procédure fonctionne exactement comme je le veux.
Bien cordialement,
Coolbehappy