Discussion :

[jeremygr]

bonjour, actuellement je fait un petit programme en VBA avec un userform,mais j'ai un problème et j'ai beau cherchez je n'arrive pas a voir comment je peut le résoudre .
voici mon problème dans mon userform j'ai une centaine de commandbutton nommer de bt1 à Bt100 et je voudrai pouvoir changer la couleur de fond de chaque bouton en fonction de ce qu'il y a marquer dans les cellule "A1" a "A100".
Exemple si il y a marquer 1 en A3 alors le bouton bt3 devra prendre la couleur n°1(les couleur sont déjà affecter a des variables et il y en a environ une dizaine) .
je sais modifier la couleur pour un bouton mais je n’arrive pas a passer d'un bouton à un autre ,sans a avoir a écrire 100 fois la même fonction pour donner la valeur de la couleur de chaque cellule à chaque bouton.

pouvez vous m'aider a résoudre mon problème ?
merci d'avance

[Invité]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
For i = 1 To 100
 Me.Controls("BT" & i).BackColor = &HC0FFFF
Next

[jeremygr]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
For i = 1 To 100
 Me.Controls("BT" & i).BackColor = &HC0FFFF
Next

Merci rdurupt, ça fonctionne exactement comme ce que je voulais mais par contre pourrais tu m'expliquer ce que c'est "Me.Controls" ?
car je suis débutant en VBA et je cherche a comprendre ce que je fait et l'aide Windows n'a pas pue m’éclairer sur cette fonction.

[Invité]

Me est le UserForm actif, Controls est la collection de tous les contrôles don dispose le UserForm

[jeremygr]

merci pour ton explication

[Theze]

Bonjour,

Teste ce qui suit. A mettre dans le module de ta Form. Attention, tous tes boutons doivent commencer de la même manière, par "Bt" et non "bt" ou alors, adapte dans le code au niveau de la fonction "Split" :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
 
Private Sub UserForm_Activate()
 
    Dim Cmd As MSForms.CommandButton
    Dim Num As Integer
    Dim Couleur As Long
 
    For Each Cmd In Me.Controls
 
        Num = Split(Cmd.Name, "Bt")(1)
 
        Select Case Worksheets("Feuil1").Range("A" & Num).Value
 
            Case 1, 3, 5
 
                Couleur = RGB(255, 255, 255) 'blanc
 
            Case 2, 4, 6
 
                Couleur = RGB(255, 0, 0) 'rouge
 
            Case 7, 9, 11
 
                Couleur = RGB(0, 0, 255) 'bleu
 
            'ext...
 
        End Select
 
        Cmd.BackColor = Couleur
 
    Next Cmd
 
End Sub

La variable "Couleur" est ici pour le test, adapte en remplaçant par ta ou tes variables.

Hervé.