Bonjour
je galère actuellement sur la dernière partie de mon fichier excel
je souhaite mettre dans une combobox le résultat d'un filtre automatique
je commence par créer mon filtre
Sheets("BDD").Select
'Lancement du filtre automatique
ActiveSheet.Range("$A$1:$F$5").AutoFilter Field:=4, Criteria1:=F_Gestion.T_Feeder_Rapport, _
Operator:=xlAnd
je filtre sur la colonne D avec le critère récupéré dans un TextBox
mon filtre fonctionne et me donne un résultat
ensuite je souhaite récupérer la colonne A et mettre que les résultats visibles dans une ComboBox "F_Gestion.T_Date_Rapport"
mais je bloque et je n'arrive pas malgré les différentes réponses dans les forums à trouver la solution
Normalement pour remplir une ComboBox j'utilise :
Sheets("BDD").Activate 'Ouvrir la feuille "BDD"
Range("A2").Activate 'Sélectionner la cellule "A2"
F_Gestion.T_Date_Rapport.Clear 'Vider la Combobox
Do Until IsEmpty(ActiveCell.Value) 'Début de Boucle pour renseigner la zone de liste
'Prendre la valeur de la cellule et la positionner en valeur de la zone de liste
F_Gestion.T_Date_Rapport.AddItem ActiveCell.Value
ActiveCell.Offset(1, 0).Activate
Mais dans ce cas précis cela ne fonctionne pas car je me retrouve avec l'ensemble de la colonne A dans ma ComboBox et je ne veux que les résultats du filtre
Merci d'avance pour votre aide
Cdlt
Aurélien