Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

pb avec userform

  • Initiateur de la discussion Initiateur de la discussion davidan
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

D

davidan

Guest
bonjour, je suis un novice en vba et j'aimerai un peu d'aide
j'ai créé une userform afin de remplacer les filtres automatique mais mon code ne semble pas adapté et fait boguer excel. ainsi je suis obliger de faire un ctrl alt sup afin de me sortir de là. aider moi à corriger mon code SVP.
voici mon code:
Userform1
Private sub bouton_OK_click()
selection.autofilter field:=2, criteria1:=combobox1
selection.autofilter field:=3, criteria1:=combobox2
unload Userform1
end sub
private sub bouton_annulation_click()
userform1.hide
selection.autofilter
unload userform1
end sub

le clic sur le bouton ok entraine un bog une fois sur 2 alors que celui sur Annuler l'entraine systematiquement. mais les action ont bien lieu.
OK entraine un trie automatique et annuler remet les filtre sur 'tous'
 
Bonjour Davidan, bonjour le forum,

le problème vient de :

selection.autofilter field:=2, criteria1:=combobox1

il faut que tu désignes la cellule correspondant à l'en-tête du filtre automatique comme par exemple :
Range('B1').AutoFilter field:=2, Criteria1:=ComboBox1
Range('C1').AutoFilter field:=3, Criteria1:=ComboBox2
Je ne comprends pas pourquoi 2 filtrages, tu risques de te retouver avec tout masqué si le critère sur le Field3 n'apparaît pas lorque le premier filtre a agi. Ça me paraît étrange...

Pour le bug sur Annuler, je te propose :

UserForm1.Hide
On Error Resume Next
Selection.AutoFilter
Unload UserForm1
 
bonjour


avec les lignes suivantes?

Range('B1').Select
Selection.AutoFilter
Selection.AutoFilter Field:=2, Criteria1:=ComboBox1.value
Selection.AutoFilter Field:=3, Criteria1:=ComboBox2.value

UserForm1.Hide n'est pas nécessaire
à bientôt
 
ca marche tres bien pour l'annulation merci
mais j'ai encore un problème dans ma liste déroulante.
en effet une fois sur 2 lorsque je selectionne un nom dans le menu déroulant, le menu se bloque( la flèche reste enfoncée ) et je suis obliger de faire un ctrl alt sup pour y mettre fin
merci par avance
 
en fait ça continuer à se bloquer.
le but de la démarche que j'entreprend est de créer une boite de dialogue remplaçant les filtre automatique et cela avec les même fonctionnalités.c'est pour cela qu'il y a plusieurs filtres car en fait le tableau auquel je rattacherai la boite de dialogue ( qd elle marchera) a une quinzaine de colonne et environ 10000 lignes( c'est pourquoi il me faut un grand nombre de filtre).
merci pour tout!
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

  • Question Question
Microsoft 365 Pb avec Windows
Réponses
47
Affichages
3 K
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…