Changement de couleur sur un bouton ActiveX lors du clique
Bonjour,
Dans un fichier, j'ai 5 bouton de commande ActiveX affecter à une macro qui me permet de filtrer une colonnes lors de l'appui du bouton.
Exemple :
Private Sub CommandButton213_Click()
Selection.AutoFilter Field:=4, Criteria1:=""
End Sub
J'aimerai savoir si il est possible que lors du clique sur un de mes boutons, il change de couleur ou qu'il y ai un élément visuel qui me permet de savoir quel bouton est actuellement "activer". Et bien sûr, si je re-clique sur un autre bouton, l'élément visuel s'installe sur le nouveau bouton et part de l'autre.
Merci d'avance,
Cordialement.
Bonjour,
pourquoi des boutons ActiveX ?
@ bientôt
LouReeD
J'ai cru bon d'en utiliser, il y avait une autre manière ?
J'essaie de ne pas utiliser les ActiveX pour un soucis de compatibilité, mais si le "développement" est pour vous pas de soucis. les shapes font très bien l'affaire.
Avez vous un fichier avec votre tableau et les différents code de filtre demandés ?
@ bientôt
LouReeD
Oui en effet le fichier est pour moi, j'ignorais qu'on pouvais faire autrement qu'avec ces boutons. Merci pour votre contribution.
Voici un fichier d'exemple :
Bonsoir,
une seule procédure qui agit en fonction du nom du bouton :
Sub Filtre()
' on passe les bouton à la couleur "neutre"
For Each sh In ActiveSheet.Shapes
sh.Fill.ForeColor.RGB = RGB(241, 50, 255)
Next sh
' on test si l'on vient de cliquer sur un bouton autre que "tous"
If Application.Caller <> "Tous" Then
' on effectue le filtre en fonction
Selection.AutoFilter Field:=1, Criteria1:=Application.Caller
Else
' sinon on supprime tous les filtres
Selection.AutoFilter Field:=1
End If
' on passe le bouton cliqué en rouge
ActiveSheet.Shapes(Application.Caller).Fill.ForeColor.RGB = RGB(255, 0, 0)
End SubDonc chaque nom de shape correspond au filtre à effectuer.
Le fichier :
@ bientôt
LouReeD
Parfait, merci beaucoup.
Pour plaisanter je dirais que c'est mon deuxième prénom !
merci pour ce retour et vos remerciements !
@ bientôt
LouReeD