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

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

Cousinhub

XLDnaute Barbatruc
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"
 

Pièces jointes

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

1667474095077.png
 
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 ?
 
Re-,
Sinon, j'avais ceci comme code, qui fonctionne, "mais" qui impose un ajout/suppression de "nom".
VB:
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)
 
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.
 
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
VB:
Me.ComboBox1.List = [SORT(UNIQUE(FILTER(T_essai2[Ville],YEAR(T_essai2[date])=2020)))]
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Retour