Filtre par userform

[Baramine]

Bonjour,

J'ai dans mon fichier une liste de données avec une colonne région.
J'ai créé un userform qui affiche la liste des régions.
Je cherche à filtrer les données avec les valeurs sélectionnées dans mon userform.

Je ne vois pas comment m'y prendre.

J'ai enregistré une macro pour filtrer pour voir le code qui est mis derrière
Sub TESTFILTER()
'
' TESTFILTER Macro
'

ActiveSheet.Range("$A$8:$AY$5383").AutoFilter Field:=33, Criteria1:=Array( _
"AISNE", "ALPES-DE-HAUTE-PROVENCE", "ARDECHE", "ARIEGE"), Operator:= _
xlFilterValues
End Sub

JE ne vois pas comment adapter ça avec mon userform.

Si quelqu'un pouvait me donenr une piste, ce serait sympa!

Merci pour votre aide!

PS: Je n'ai laissé que quelques colonnes et lignes dans mon fichier


Baramine

 

[roro69]

Re : Filtre par userform

Re
Donc ajoute Unload Me dans à la fin de l'execution de ton bouton de commande filtrer.

 

[Robert]

Re : Filtre par userform

Bonjour le fil, bonjour le forum,

Ooops vachement en retard ! Le fil a bien évolué depuis... J'envoie quand même cette proposition basée sur le premier fichier de Baramine. Je n'ai pas utilisé le filtre mais une boucle sur chaque cellule et Masquer/Afficher la ligne en fonction du critère. Le bouton Sélection Région commence par tout réafficher...

 

[pierrejean]

Re : Filtre par userform

Re

C'est un peu plus clair

Edit : Salut Robert

 

[benouboy]

Re : Filtre par userform

Bonjour le Forum,

une autre version nettement moins elegante que celle de Boisgontier (c'est le moins qu'on puisse dire!!!), mais bon ca marche aussi!

Benouboy

 

[Baramine]

Re : Filtre par userform

Merci!
Il y a un moyen d'accélérer ou de mettre une message chargement en cours?
J'ai 6000 lignes dans mon doc et je vois défiler le masque et ça dur un certain temps

Merci pour aide!
C'est nickel sur un petit fichier mais le mien est assez lourd et si je pouvais masque le défilement, ce serait parfait!

baramine

 

[pierrejean]

Re : Filtre par userform

Re

A tester (chez moi de l'ordre de la seconde pour 6000 lignes )

 

[BOISGONTIER]

Re : Filtre par userform

Avec Filtre élaboré (0,1s)

JB