j'ai fait 2 boutons dans une barre perso que j'ai rattaché à une macro
complementaire. Le 1er bouton casse les filtres de la feuille active, et le
2eme fait un filtre automatique "<>" & activecell. J'ai placé les boutons
Filtre Auto & Afficher tout à côté.
Les boutons Filtre auto & Afficher Tout se grisent lorsqu'ils ne peuvent
être utilisés, comment faire pour que les miens suivent ce fonctionnement ?
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
poy-poy
Bonjour John,
Il faut faire la propriété enable = false sur tes boutons. Le problème c'est quand... Tu peux déjà mettre à la fin de ton code afficher tout, à la fin tu mets controls(nom de ton bouton afficher tout).enable úlse et controls(nom du bouton filtre).enable = true Ensuite, est ce que tu autorise plusierus filtre "<>" ensemble ou non. Si non, tu fais de même (enfin l'inverse) à la fin de ton code filtre. Maintenant, cela se corse, car l'utilisateur peux mettre un autofiltre ans passer par ton bouton et afficher tout aussi. Hum, là t peux : soit leur interdire de le faire en changeant la barre de menu soit les autoriser, mais changer les menus autofiltre et afficher tout en les remplcant par un code a toi qui du coup pourrait rendre tes boutons inutilisables. Bon cette solution a l'air complexe, (et honnêtement, ca l'est trop pour moi lol...) mais elle peut être plus adaptée.
Bon courage Cordialement Benjamin
Bonjour,
j'ai fait 2 boutons dans une barre perso que j'ai rattaché à une macro complementaire. Le 1er bouton casse les filtres de la feuille active, et le 2eme fait un filtre automatique "<>" & activecell. J'ai placé les boutons Filtre Auto & Afficher tout à côté.
Les boutons Filtre auto & Afficher Tout se grisent lorsqu'ils ne peuvent être utilisés, comment faire pour que les miens suivent ce fonctionnement ?
Merci.
John
Bonjour John,
Il faut faire la propriété enable = false sur tes boutons.
Le problème c'est quand...
Tu peux déjà mettre à la fin de ton code afficher tout, à la fin tu mets
controls(nom de ton bouton afficher tout).enable úlse et controls(nom du
bouton filtre).enable = true
Ensuite, est ce que tu autorise plusierus filtre "<>" ensemble ou non. Si
non, tu fais de même (enfin l'inverse) à la fin de ton code filtre.
Maintenant, cela se corse, car l'utilisateur peux mettre un autofiltre ans
passer par ton bouton et afficher tout aussi. Hum, là t peux :
soit leur interdire de le faire en changeant la barre de menu
soit les autoriser, mais changer les menus autofiltre et afficher tout en
les remplcant par un code a toi qui du coup pourrait rendre tes boutons
inutilisables. Bon cette solution a l'air complexe, (et honnêtement, ca l'est
trop pour moi lol...) mais elle peut être plus adaptée.
Bon courage
Cordialement
Benjamin
Bonjour,
j'ai fait 2 boutons dans une barre perso que j'ai rattaché à une macro
complementaire. Le 1er bouton casse les filtres de la feuille active, et le
2eme fait un filtre automatique "<>" & activecell. J'ai placé les boutons
Filtre Auto & Afficher tout à côté.
Les boutons Filtre auto & Afficher Tout se grisent lorsqu'ils ne peuvent
être utilisés, comment faire pour que les miens suivent ce fonctionnement ?
Il faut faire la propriété enable = false sur tes boutons. Le problème c'est quand... Tu peux déjà mettre à la fin de ton code afficher tout, à la fin tu mets controls(nom de ton bouton afficher tout).enable úlse et controls(nom du bouton filtre).enable = true Ensuite, est ce que tu autorise plusierus filtre "<>" ensemble ou non. Si non, tu fais de même (enfin l'inverse) à la fin de ton code filtre. Maintenant, cela se corse, car l'utilisateur peux mettre un autofiltre ans passer par ton bouton et afficher tout aussi. Hum, là t peux : soit leur interdire de le faire en changeant la barre de menu soit les autoriser, mais changer les menus autofiltre et afficher tout en les remplcant par un code a toi qui du coup pourrait rendre tes boutons inutilisables. Bon cette solution a l'air complexe, (et honnêtement, ca l'est trop pour moi lol...) mais elle peut être plus adaptée.
Bon courage Cordialement Benjamin
Bonjour,
j'ai fait 2 boutons dans une barre perso que j'ai rattaché à une macro complementaire. Le 1er bouton casse les filtres de la feuille active, et le 2eme fait un filtre automatique "<>" & activecell. J'ai placé les boutons Filtre Auto & Afficher tout à côté.
Les boutons Filtre auto & Afficher Tout se grisent lorsqu'ils ne peuvent être utilisés, comment faire pour que les miens suivent ce fonctionnement ?
Merci.
John
Alain CROS
Bonjour.
Tester l'état des commandes de menu ?
Sub Test() With Application.CommandBars MsgBox "Filtre automatique disponible = " & _ .FindControl(, 899&).Enabled & vbNewLine & _ "Afficher tout disponible = " & _ .FindControl(, 900&).Enabled End With End Sub
Alain CROS
"John Fuss" a écrit dans le message de news: cniert$ck$
Bonjour,
j'ai fait 2 boutons dans une barre perso que j'ai rattaché à une macro complementaire. Le 1er bouton casse les filtres de la feuille active, et le 2eme fait un filtre automatique "<>" & activecell. J'ai placé les boutons Filtre Auto & Afficher tout à côté.
Les boutons Filtre auto & Afficher Tout se grisent lorsqu'ils ne peuvent être utilisés, comment faire pour que les miens suivent ce fonctionnement ?
Merci.
John
Bonjour.
Tester l'état des commandes de menu ?
Sub Test()
With Application.CommandBars
MsgBox "Filtre automatique disponible = " & _
.FindControl(, 899&).Enabled & vbNewLine & _
"Afficher tout disponible = " & _
.FindControl(, 900&).Enabled
End With
End Sub
Alain CROS
"John Fuss" <newskob650@yahoo.fr> a écrit dans le message de news: cniert$ck$1@s5.feed.news.oleane.net...
Bonjour,
j'ai fait 2 boutons dans une barre perso que j'ai rattaché à une macro
complementaire. Le 1er bouton casse les filtres de la feuille active, et le
2eme fait un filtre automatique "<>" & activecell. J'ai placé les boutons
Filtre Auto & Afficher tout à côté.
Les boutons Filtre auto & Afficher Tout se grisent lorsqu'ils ne peuvent
être utilisés, comment faire pour que les miens suivent ce fonctionnement ?
Sub Test() With Application.CommandBars MsgBox "Filtre automatique disponible = " & _ .FindControl(, 899&).Enabled & vbNewLine & _ "Afficher tout disponible = " & _ .FindControl(, 900&).Enabled End With End Sub
Alain CROS
"John Fuss" a écrit dans le message de news: cniert$ck$
Bonjour,
j'ai fait 2 boutons dans une barre perso que j'ai rattaché à une macro complementaire. Le 1er bouton casse les filtres de la feuille active, et le 2eme fait un filtre automatique "<>" & activecell. J'ai placé les boutons Filtre Auto & Afficher tout à côté.
Les boutons Filtre auto & Afficher Tout se grisent lorsqu'ils ne peuvent être utilisés, comment faire pour que les miens suivent ce fonctionnement ?
