thomlau
XLDnaute Occasionnel
Bonjour à tous
J'espère que le week-end commence bien pour vous.
Voilà mon problème :
Dans un Userform, j'ai 192 labels (rien que ça!), et je voudrais qu'à l'initialisation de l'USF, ces 192 labels prennent la valeur de chaque cellule d'un tableau composé de 192 cellules.
De plus, ci la valeur de la cellule est égale à "REPOS", le label prend la couleur orange par exemple.
C'est réalisable pour ma part, mais en faisant pour chaque label :
Label1.Caption = Sheets("planning").range("B1").value
if Sheets("planning").range("B1").value = "REPOS" then
Bon ceci à faire 192 fois....ça risque d'être long, c'est pourquoi, une fois de plus je fais appel à votre savoir.
D'avance merci si vous pouviez automatisé cette tâche.
J'espère que le week-end commence bien pour vous.
Voilà mon problème :
Dans un Userform, j'ai 192 labels (rien que ça!), et je voudrais qu'à l'initialisation de l'USF, ces 192 labels prennent la valeur de chaque cellule d'un tableau composé de 192 cellules.
De plus, ci la valeur de la cellule est égale à "REPOS", le label prend la couleur orange par exemple.
C'est réalisable pour ma part, mais en faisant pour chaque label :
Label1.Caption = Sheets("planning").range("B1").value
if Sheets("planning").range("B1").value = "REPOS" then
Label1.BackColor = &H000080FF&
End IfBon ceci à faire 192 fois....ça risque d'être long, c'est pourquoi, une fois de plus je fais appel à votre savoir.
D'avance merci si vous pouviez automatisé cette tâche.