Filtrage sous plusieurs conditions

[MelaAllIn]

Bonjour à tous !
Je fais (encore !!!) une fois appel à vos lumières pour un coup de main sur du code VBA.
Je souhaite réaliser un filtrage des données à l'aide d'un formulaire :
- On sélectionne dans le formulaire qui s'ouvre à partir des boutons "Filtrage" 1 ou plusieurs mots, et dans les onglets 1 et 2, je voudrais que n'apparaissent que les lignes pour lesquelles on trouve en colonne B les mots sélectionnés (il peut y avoir plusieurs mots dans la colonne...)
- Je voudrais que le filtrage réalisé lors de l'enregistrement du fichier soit toujours actif lorsque l'on le ré-ouvre.
J'ai créé les boutons et le formulaire, ça c'est pas trop dur, mais c'est sur la partie filtrage et mémoire du filtre réalisé que je bloque...
Je joins un fichier exemple, en espérant avoir été assez claire !
D'avance merci à tous.
MelaAllIn

 

[pierrejean]

Re : Filtrage sous plusieurs conditions

Bonjour MelaAllin

Vois si cela te convient

 

[MelaAllIn]

Re : Filtrage sous plusieurs conditions

Génial, comme d'habitude, ce forum est une mine d'or !!!
Merci beaucoup et à la prochaine !

 

[MelaAllIn]

Re : Filtrage sous plusieurs conditions

J'ai adapté un peu la solution de PierreJean (encore merci !), et j'ai encore besoin d'un petit coup de main (voir le fichier joint) :
Comment faire pour ne pas avoir de message d'erreur (degugage) lorsque l'on clique sur valider quand aucun filtre n'est sélectionné ? J'aimerais mieux avoir une msgbox qui précise que aucun filtre n'est sélectionné et qui renvoie ensuite sur le formulaire quand on clique sur OK...
D'avance merci à tous !
MelaAllIn

 

[MelaAllIn]

Re : Filtrage sous plusieurs conditions

Encore une autre question !
La cellule en colonne B peut être vide. J'aimerais que dans ce cas, les lignes concernées ne soient pas filtrées (qu'elles restent visibles dans tous les cas).
Merci
MelaAllIn

 

[Dull]

Re : Filtrage sous plusieurs conditions

Salut MelaAllIn, PierreJean, le Forum

En l'absence de l'ami PierreJean je te propose de rajouter cette ligne en Rouge

Private Sub BtnValider_Click()
Dim voir As Collection
Set voir = New Collection
[COLOR=Red][B]If ListBoxFiltre.ListIndex = 0 Then MsgBox "Aucun filtre n'est sélectionné": Exit Sub
[/B][/COLOR]If CheckBoxFiltre = True Then
    Sheets("Superieur").Rows.Hidden = False
    Sheets("Inferieur").Rows.Hidden = False
Else

'...

si tu click sur valider alors qu'aucun item est sélectionnée rien ne se passe

Bonne Journée

 

[MelaAllIn]

Re : Filtrage sous plusieurs conditions

J'ai honte, c'était tout simple !
Par contre, j'ai mis ton instruction juste après le Else.
Merci
MelaAllIn