Remplir ComboBox avec tableau filtré: erreur 381.
Bonjour à tous,
J'ai écrit une code, qui fonctionne, pour alimenter une ComboBox depuis un tableau filtré. Seul problème, c'est quand, après avoir été filtré, le tableau ne contient plus qu'une seule ligne... En effet, à ce moment, le reçois le message d'erreur suivant:
" Erreur d'exécution 381 : Impossible de définir la propriété List .Index de table de propriétés non valide."
Voici mon code:
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
| Public Sub AlimenterComboBox() 'Permet d'alimenter une ComboBox sur base des critères de tri envoyés à la fonction.
Dim Domaine As String, Niveau As String
Domaine = ComboBoxDomaineDeCompetence.Text 'Définition des critères de tri
Niveau = ComboBoxNiveau.Text
With Sheets("Critères").ListObjects("TableauCriteres")
.Range.AutoFilter Field:=2, Criteria1:=Domaine 'Trie TableauCriteres selon les paramètres envoyés en argument
.Range.AutoFilter Field:=3, Criteria1:=Niveau
End With
'####### Remplissage ComboBox avec les données triées ####
Me.ComboBoxCriteresAlimentes.List = Range("TableauCriteres[Critères]").SpecialCells(xlCellTypeVisible).Formula
Sheets("Critères").ListObjects("TableauCriteres").Range.AutoFilter Field:=2 'Annule le filtrage
Sheets("Critères").ListObjects("TableauCriteres").Range.AutoFilter Field:=3
End Sub |
Les deux critères de tri sont défini par l'utilisateur via deux autres ComcoBox. Le tableau duquel est issu le résultat du tri est "TableauCriteres" Sur la feuille "Critères".
En vous remerciant d'avance ! :)
