Autres Excel 2021 - Filtre d'un TS pour alimenter un combobox

[Cousinhub]

Bonjour,
Je n'arrive pas à utiliser la fonction Filter en VBA, afin d'alimenter un combobox à partir d'une colonne d'un Tableau Structuré, en ignorant les cellules vides (ou égales à "").
Par le biais d'un Dictionary ou autre tableau, pas de pb, mais je voudrais vraiment utiliser cette fonction Filter.
Vous remerciant par avance.
Voir dans le fichier un exemple, où le combobox serait alimenté par les valeurs non nulles de la colonne "resultat"

 

[Dranreb]

Bonsoir.
Mon objet ComboBoxLiées se charge de tout.

 

[Dranreb]

Bonjour.
Sinon ma fonction SujetCBx se charge juste d'établir la liste des clés et des numéros de lignes qui y correspondent.

 

[Cousinhub]

Bonjour,
@Dranreb
Merci pour tes propositions, mais dans mes rêves, j'espérais une seule ligne de commande, et qui commencerait par "Filter"..
Maintenant, pour mon 5000 ème post, tu me fais un beau cadeau...
Comme ce fichier est destiné à plusieurs postes, je ne peux leur demander d'installer une macro complémentaire, et pour ta deuxième réponse, avec le fichier, c'est comme si on livrait une boîte d'allumettes avec un 38Tonnes... (Lol)
Je te remercie quand même, et te souhaite une bonne journée

 

[Dranreb]

C'est pour ça que le plus souvent j'installe les modules de services à même le projet VBA utilisateur, le CBxLCtlA.xlsm ne servant qu'à consulter sa page d'aide.
Mais dans l'UserForm c'est quand même très peu d'instructions pour ça, non ?

 

[Cousinhub]

Re-,
Sinon, j'avais ceci comme code, qui fonctionne, "mais" qui impose un ajout/suppression de "nom".

Private Sub UserForm_Initialize()
Range("t_Essai[resultat]").Name = "MonR"
Me.ComboBox1.List = Filter([Transpose(If(MonR="","@~@",MonR))], "@~@", 0)
ThisWorkbook.Names("MonR").Delete
End Sub

Je sais, je pinaille, mais c'était juste pour savoir si on pouvait fusionner ces lignes, pour au final, n'en avoir qu'une...
Merci pour ta participation, et bonne journée à tous(tes)

 

[mapomme]

Bonjour @bhbh , @Dranreb ,

Le code suivant fonctionne chez moi :

Private Sub UserForm_Initialize()
   Me.ComboBox1.List = [FILTER(t_Essai[resultat],t_Essai[resultat]<>"")]
End Sub

edit : Bonjour @Hasco

 

[Cousinhub]

Yesss!
@mapomme , tu as tout bien compris...
Merci beaucoup, et bonne journée

 

[Hasco]

Bonjour le fil,
Hello l'ami bh²

Je le travaillait, @mapomme l'a fait ! Bravo !

 

[Dranreb]

Le problème c'est que pour autant que je sache cette fonction Filtrer ne propose pas une liste classée et sans doublon, et que si on la traite par d'autres outils pour l'avoir ainsi, après, on n'a aucune facilité pour retrouver la ou les lignes où chaque valeur figuerait. Tandis que ma Function SujetCBx renvoie tout ce qu'il faut dans un seul Variant.

 

[Staple1600]

Bonsoir le fil

FILTER et Filter c'est pas là même chose, non ?

Fonction FILTRE - Support Microsoft

Comment utiliser la fonction FILTER dans Excel pour filtrer une plage de données en fonction des critères que vous définissez.

support.microsoft.com

Fonction de filtre (Visual Basic pour Applications)

Rubrique de référence sur Office VBA

learn.microsoft.com

NB: c'est juste pour ma gouverne.
Le principal est que Combobox soit rempli

 

[cp4]

Bonjour tout le monde,

@bhbh : Excuse mon intrusion.

@mapomme : Sur mon vieux pc, win7 64bits et Excel2010 32bits, ton code plante. Est-ce dû à ma version. Merci beaucoup.

Bonne journée.

 

[mapomme]

Bonjour @cp4 ,

La fonction FILTER(...) utilisée est uniquement disponible pour (dixit Krosoft) :

Excel for Microsoft 365, Excel for Microsoft 365 for Mac, Excel for the web Excel 2021, Excel 2021 for Mac , Excel 2019 Excel for iPad, Excel for iPhone, Excel for Android tablets, Excel for Android phones

 

[cp4]

Bonjour @cp4 ,

La fonction FILTER(...) utilisée est uniquement disponible pour (dixit Krosoft) :

Merci beaucoup pour la célérité de ta réponse. Très bonne journée.

 

[chris]

Bonjour à tous

Le problème c'est que pour autant que je sache cette fonction Filtrer ne propose pas une liste classée et sans doublon, et que si on la traite par d'autres outils pour l'avoir ainsi, après, on n'a aucune facilité pour retrouver la ou les lignes où chaque valeur figuerait. Tandis que ma Function SujetCBx renvoie tout ce qu'il faut dans un seul Variant.

Se combine avec SORT et UNIQUE : exemple sur un autre cas

Me.ComboBox1.List = [SORT(UNIQUE(FILTER(T_essai2[Ville],YEAR(T_essai2[date])=2020)))]