Besoin d'aide sur la gestion de commandbutton

Version imprimable

26/01/2014, 17h00
jeremygr

Besoin d'aide sur la gestion de commandbutton

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

Bonsoir,

Code:

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

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:

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é.

26/01/2014, 18h48
jeremygr
Citation:
Envoyé par rdurupt

Code:

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.
26/01/2014, 19h11
Invité

Me est le UserForm actif, Controls est la collection de tous les contrôles don dispose le UserForm
26/01/2014, 20h19
jeremygr

merci pour ton explication :)