Tableau avec 2 commandbutton dont un avec 4 listes déroulantes

Fermé
VBAquandtunoustiens Messages postés 3 Date d'inscription vendredi 3 janvier 2014 Statut Membre Dernière intervention 5 janvier 2014 - 3 janv. 2014 à 17:44
VBAquandtunoustiens Messages postés 3 Date d'inscription vendredi 3 janvier 2014 Statut Membre Dernière intervention 5 janvier 2014 - 5 janv. 2014 à 18:52
Bonjour!

Après avoir fait le tour de plusieurs forums, je n'ai toujours pas trouvé la réponse à ma question.
J'espère donc que vous pourrez m'aider à résoudre mon problème!

Pour résumer, j'ai mis 2 commandbutton :
=> Le premier me permettant de filtrer mon tableau selon un critère
=> Le second me permettant de filtrer dans un 2ème temps mon tableau selon 4 critères.
Or je ne parviens pas à faire fonctionner mon second CommandButton (le premier fonctionne à merveille :) ) et je ne sais pas comment faire en sorte que le 2nd command button ne filtre pas les informations triées par le 1er commandbutton.

Si vous pouviez m'éclairer très rapidement (je dois rendre ça début de semaine prochaine... :( ), vous seriez super!

Merci d'avance!!

Pour les plus curieux, je vous ai détaillé mon tableau ci-dessous :

J'ai réalisé un tableau qui contient plusieurs données :
- 1ère colonne : des familles de crédit
- 2ème colonne : des sous-familles de crédit (correspondants à la 1ère colonne)
- 3ème colonne : des conditions liées à la sous-famille de crédit sélectionnée (2ème colonne)
- 4ème colonne : des documents liés à la sous-famille de crédit sélectionnée (2ème colonne)
- 5ème colonne : des sûretés liées à la sous-famille de crédit sélectionnée (2ème colonne)
- 6ème colonne : des documents correspondants à chaque sûreté (5ème colonne) : chaque sûreté peut requérir plusieurs documents

En haut de mon tableau, j'ai mis deux listes déroulantes dépendantes :
- La famille de crédit
- La sous-famille de crédit
suivies d'un command button qui permet de trier dans mon tableau la sous-famille de crédit sélectionnée (2ème colonne) et donc de voir apparaitre les conditions et documents affiliés à cette sous-famille de crédit.

La macro utilisée est la suivante :

Private Sub CommandButton1_Click()
ActiveSheet.Unprotect

If Not IsEmpty(Range("Créditsélectionné")) Then ActiveSheet.Range("$A$20:$K$900").AutoFilter Field:=3, Criteria1:=Range("Créditsélectionné").Value

Et ça fonctionne!

Là où cela ne fonctionne plus est pour le 2nd command button!

Pour ce dernier, j'ai mis 4 listes déroulantes, chacune dépendant de la sous-famille sélectionnée précédemment.
Je voudrais qu'en pressant le commandbutton, cela me sélectionne TOUTES les sûretés que j'ai sélectionnées SANS enlever ma sélection avec le premier command button.
Or quand je le fais, rien ne change.

J'ai utilisé la macro suivante :

Private Sub CommandButton3_Click()
ActiveSheet.Unprotect
If Not IsEmpty(Range("Sûreté1sélectionnée")) Then ActiveSheet.Range("$A$20:$K$900").AutoFilter Field:=10, Criteria1:=Range("Sûreté1sélectionnée").Value
If Not IsEmpty(Range("Sûreté2sélectionnée")) Then ActiveSheet.Range("$A$20:$K$900").AutoFilter Field:=10, Criteria1:=Range("Sûreté2sélectionnée").Value
If Not IsEmpty(Range("Sûreté3sélectionnée")) Then ActiveSheet.Range("$A$20:$K$900").AutoFilter Field:=10, Criteria1:=Range("Sûreté3sélectionnée").Value
If Not IsEmpty(Range("Sûreté4sélectionnée")) Then ActiveSheet.Range("$A$20:$K$900").AutoFilter Field:=10, Criteria1:=Range("Sûreté4sélectionnée").Value
End Sub
A voir également:

3 réponses

Polux31 Messages postés 6917 Date d'inscription mardi 25 septembre 2007 Statut Membre Dernière intervention 1 novembre 2016 1 204
3 janv. 2014 à 18:48
Bonjour,

... je dois rendre ça début de semaine prochaine ...

C'est dans quel cadre ? Boulot ? Exo ?
0
VBAquandtunoustiens Messages postés 3 Date d'inscription vendredi 3 janvier 2014 Statut Membre Dernière intervention 5 janvier 2014
4 janv. 2014 à 13:13
Bonjour c'est dans le cadre d'un travail de Groupe.

Auriez-vous une idée de la solution? :-)
0
VBAquandtunoustiens Messages postés 3 Date d'inscription vendredi 3 janvier 2014 Statut Membre Dernière intervention 5 janvier 2014
5 janv. 2014 à 18:52
Re-bonjour!

En fait, pour simplifier ma question, je souhaiterais sur un même tableau filtrer à partir de deux commandbuttons des données différentes. Mon problème est qu'un command button annule l'autre en quelque sorte.
Comment insérer la notion ET dans mon code VBA?
Auriez-vous une idée??

Merci d'avance !!
0