pb avec userform

[davidan]

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'

 

[Robert]

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

 

[Bebere]

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

 

[davidan]

merci pour ton aide

 

[davidan]

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

 

[davidan]

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!