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
Bookmarks