Discussion :

[jean-fanch]

bonjour à tous,
j'ai créé une base de donnée sous excel, qui comporte 12 boutons un par mois jan, fevr, etc j'aimerais qu'après le click sur l'un d'eux celui-ci " s'allume" en rouge afin de marquer le mois concerné, et "éteint " celui qui aurait été allumé sur une action précédente. Merci pour vos suggestions.

[unparia]

Bonjour
C'est quoi, très exactement, une "base de donnée qui comporte 12 boutons" ?
Ta base de données est-elle (excuse-moi, mais ce que tu as écrit ...) composée d'enregistrements de 12 champs dont chacun est un bouton ?
Explique cela.

[jean-fanch]

j'ai inséré 12 boutons sur ma feuille de calcul et quand je clique sur un ou l'autre cela me donne des valeurs filtrées de mon tableau d'enregistrement de données.
Pour info j'ai fait ce code, ça fonctionne, existe t il quelque chose de plus simple ?

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub CommandButton1_Click()
CommandButton1.BackColor = &HFF
CommandButton2.BackColor = &HA6A6A6
CommandButton3.BackColor = &HA6A6A6
CommandButton4.BackColor = &HA6A6A6
CommandButton5.BackColor = &HA6A6A6
CommandButton6.BackColor = &HA6A6A6
CommandButton7.BackColor = &HA6A6A6
CommandButton8.BackColor = &HA6A6A6
CommandButton9.BackColor = &HA6A6A6
CommandButton10.BackColor = &HA6A6A6
CommandButton11.BackColor = &HA6A6A6
CommandButton12.BackColor = &HA6A6A6
End Sub

idem pour les 12 boutons
Qu'en pensez vous ?

[unparia]

Regarde dans un premier temps ce que fait ceci :

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
Private Sub CommandButton1_Click()
 toto CommandButton1
End Sub
Private Sub CommandButton2_Click()
 toto CommandButton2
End Sub
'...
'etc ... jusqu'à
Private Sub CommandButton12_Click()
 toto CommandButton12
End Sub
 
 
Private Sub toto(c As Object)
 For i = 1 To 12
   Me.OLEObjects("commandbutton" & CStr(i)).Object.BackColor = &HA6A6A6
 Next
 c.BackColor = &HFF
End Sub

Il est maintenant clair que si tu veux éviter d'appeler la procédure toto dans chaque clic de chaque bouton, il te faudra passer par une collection des boutons à traiter et un module de classe traitant, pour cette collection, les évènements d'un contrôle CommandButton. Cet aspect-là me parait largement sortir, pour l'instant, du cadre de tes connaissances.

[jean-fanch]

bonsoir unparia,
ton code fonctionne parfaitement, je te remercie, il est vrai que for i to.......next simplifie les choses. Mes connaissances en VBA ne volent pas bien haut, mais petit à petit grâce à des personnes comme toi et ceux de ce Forum, je consolide tout ça et améliore mes capacités. Merci encore et bonne soirée.

[kiki29]

Salut, une recherche ?