Astuces Excel
  1. Astuces Excel
  3. Utilisez la valeur de combobox en tant que critère d'autofilter lié au button macro sur la feuille en tant que triggersur
Intereting Posts
Générer une nouvelle structure XML à l'aide des schéma XML / XSLT et des valeurs de cellule Excel / CSV (avec C #) Effectuez un button suivant dans un formulaire Userform pour passer à la ligne suivante dans une feuille Excel filtrée win32com.client enregistre les documents plutôt que les CWD Découvrez quel classur s'appelle une macro Dans Excel, avoir une copy conditionnelle d'une colonne, d'une feuille à l'autre Excel PowerPivot Calcul moyen Fonction Excel VBA avec jeu d'loggings (problème de performance) Feuille de filter Excel VBA à toutes les valeurs sauf les valeurs dans une colonne d'une autre feuille VBA Runtime Error 1004 "Erreur définie par l'application ou par l'object" lorsque vous utilisez la fonction Index Range Comparaison des valeurs des cellules dans une colonne avec la valeur de ComboBox saisie par l'user Copie fractionnée des colonnes Excel non adjacentes aux colonnes de table Word non adjacentes Comment créer une copy d'un tableau défini dans Excel qui se met à jour automatiquement lors de la modification de la table d'origine? Comment puis-je get la moyenne et les écarts types regroupés par key? c # -excel interop – créez un tableau sur le classur plutôt que dans une feuille Trier mes données puis uniquement modifier datatables dans le genre

Utilisez la valeur de combobox en tant que critère d'autofilter lié au button macro sur la feuille en tant que triggersur

J'essaie de remplir une valeur de cellule à partir de la list des combobox (Combobox2) et d'utiliser cette valeur de cellule comme critère d'autofilter. J'ai essayé d'utiliser "Activesheet.range (" h1 ") = Me.Combobox2.value" mais j'obtiens une erreur d'object requirejse.

L'idée est de faire en sorte que l'user sélectionne un élément dans la list des combobox, puis click un button de macro dans la feuille à filterr en fonction de leur sélection. Est-ce que je manque quelque chose?

Merci d'avance. 

Sub ActivateEP() Worksheets("WMOR_Bundle").Activate ActiveSheet.Range("H1") = Me.ComboBox1.Value ActiveSheet.Range("A:P").AutoFilter Field:=16, Criteria1:=ActiveSheet.Range("H1") ActiveSheet.Range("a1").Select End Sub