Filtre d'apres choix combobox non vide

[carlos]

Bonjour

cette macro (clic bouton) me lance un USF qui filtre une bdd (f_ele).

Chaque combobox fait reference à une colonne et à un critere ( un peu comme les filtres)

Le probleme est que si un des combobox est vide il recherche les cellules vides comme condition repondant a ce combobox alors que je voudrais qu'il ne tienne pas compte de ce ou ces combobox vides ..;

Merci

 

[carlos]

voici le fichier joint qui etait trop gros

merci [file name=CopieClasseoption.zip size=45441]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/CopieClasseoption.zip[/file]

 

[bebere]

bonjour à tous
réponse à ta demande j'espère
d'après combo en cascade de My Dear Friends
à bientôt [file name=Classeoption.zip size=48619]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Classeoption.zip[/file]

 

[carlos]

Bonjour Bebere et merci pour ta proposition

Je n'arrive pas à la mettre en oeuvre et ton code est trop complexe pour moi pour le dechiffrer ....

Par exemple si je choisis la classede '51' tout seul est que je clique sur le bouton OK auquel eleve n'apparait dans la feuille classe, pourquoi ?

merci

 

[bebere]

re
bugs corrigés
explique plus en détails ce que tu veux
à+ [file name=ClasseoptionV1.zip size=47404]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/ClasseoptionV1.zip[/file]

 

[carlos]

re bonjour Bebere

je souhaite filtrer la base de donnée f_ele à partir de mon USF de la meme maniere que le ferais excel avec ses filtres.

Par exemple je veux pouvoir lister tous mes eleves de la classe(Divcod) de 51 en utilisant le combobox1 et les coller dans la feuille 'classe'.

Je veux aussi pouvoir lister tous les eleves qui sont en '51' ET qui font Latin en 'ELEOPT2'en utilisant le combobox 1 ET combobox3.

ou bien lister tous les eleves qui font du russe: combobox2 critere 'RUS1'
En resumé je veux faire des recherche mono criteres mais aussi multicriteres , un peu comme le faisais mon premier fichier .
Mais celui ci filtrer aussi les criteres'vides' dans les combobox vides .

J'espere que c'est plus clair sinon n'hesite pas à me le dire

Merci

 

[bebere]

re
filtre sur item combobox1
je propose d'ajouter des options boutons pour sélectionner les combobox concernées

à+ :S [file name=ClasseoptionV2.zip size=44872]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/ClasseoptionV2.zip[/file]

 

[carlos]

Bonsoir Bebere

Tu as sacrement bossé pour m'aider à resoudre en partie ce probleme.

Ton idée d'options boutons devraient certainement facilité le reste ..

En tout cas merci pour ce que tu as fait

Carlos

 

[bebere]

re

change les lignes entre private... et test...
par les lignes entre private... et test...
çi dessous

Private Sub CommandButton1_Click()
Sheets('classe').Activate
With ActiveSheet
L = .Range('B65536').End(xlUp).Row
If L > 4 Then
L = .Range('B65536').End(xlUp).Row + 1
.Range('B5:I' & L).ClearContents
End If
End With
Test = False

essais pas concluant
continue demain
bonne nuit

 

[carlos]

merci et bonne nuit Bebere

 

[bebere]

re
1)divcod doit il tjrs être là ,si oui pas de choix
2)choix entre eleopt1 à eleopt5,1 par 1 à chaque fois

ex1:divcod et eleopt1
ex1:divcod et eleopt2
etc..
répond si c'est cela ou autre chose pour demain
à bientôt

 

[carlos]

Bonjour Bebere

1)divcod doit il tjrs être là ,si oui pas de choix

Non pas forcement

2)choix entre eleopt1 à eleopt5,1 par 1 à chaque fois

Non il peuy y avoir ;

eleopt2 et eleopt4 et eleopt 5

Hier g essayé de faire une macro 'enregistrée' par excel sur la base des filtres automatique car c'est exactement ce que je veux . Je suis toujours confronté au meme probleme

Sub filtre()
Sheets('f_ele').Select
Selection.AutoFilter Field:=5, Criteria1:='AGL1'
Selection.AutoFilter Field:=6, Criteria1:='ESP2'
Selection.AutoFilter Field:=7, Criteria1:='LATIN'
End Sub

il faudrait un truc du genre
Sub filtre()
Sheets('f_ele').Select
if combobox1 <> '' then Selection.AutoFilter Field:=4, Criteria1:= combobox1.value
elseif Selection.AutoFilter Field:=4, Criteria1:= TOUT
if combobox2 <> '' then Selection.AutoFilter Field:=5, Criteria1:= combobox2.value
elseif Selection.AutoFilter Field:=5, Criteria1:= TOUT
if combobox3 <> '' then Selection.AutoFilter Field:=6, Criteria1:=combobox3.value
elseif Selection.AutoFilter Field:=6, Criteria1:= TOUT
if combobox7 <> '' then Selection.AutoFilter Field:=7, Criteria1:=combobox4.value
elseif Selection.AutoFilter Field:=7, Criteria1:= TOUT
End Sub
ELSEIF SERAIT LA CONDITION SINON
mERCI

 

[bebere]

bonjour à tous
je vais essayer aussi avec les filtres
je donne signe de vie sitôt trouvé
à bientôt

 

[bebere]

re
je pense que c'est ce que tu veux
à+ [file name=ClasseoptionV2_20050823124559.zip size=48755]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/ClasseoptionV2_20050823124559.zip[/file]

 

[carlos]

re re re Bebere

Merci pour ta perseverance.

Malgré tout si je choisis '3 1' ET 'Agl1' , je devrais avoir les eleves de 3 1 qui ont anglais en eleop1.Or j'ai aussi ceux d'allemand ...

Merci