XL 2016 VBA - Est-il possible de récupérer toutes les valeurs de filtre possible sans parcourir la colonne

[Dudu2]

Bonjour,

Supposons un colonne qui peut être filtrée et qui est ou non filtrée.
Peut-on récupérer toutes les valeurs listées dans la liste déroulante du filtre sans parcourir les données.

Soit ce tableau:

Je voudrais récupérer ça:

ou

 

[Dudu2]

@Bernard_XLD
C'est quoi ces chiffres 318, 879.75, 144, 210 dans le Set Objet_Segment ?

 

[Gégé-45550]

@Bernard_XLD
C'est quoi ces chiffres 318, 879.75, 144, 210 dans le Set Objet_Segment

Bonsoir,
Je pense qu'il s'agit des valeurs 'Top', 'Left', 'Height' et 'Width' du segment ajouté.

Slicers.Add, méthode (Excel)​

• 07/04/2023

Crée un segment et retourne un objet Slicer .

Syntaxe​

expression. Ajouter (SlicerDestination, Level, Name, Caption, Top, Left, Width, Height)
Expression Variable qui représente un objet Slicers .

Parameters​

SlicerDestination	Requis	Variant	Chaîne qui spécifie le nom de la feuille, ou objet Worksheet qui représente la feuille, où le segment obtenu sera placé. La feuille de destination doit se trouver dans le classeur qui contient l’objet Slicers spécifié par expression.
Level	Facultatif	Variant	Pour les sources de données OLAP, ordinale ou nom MDX (Multidimensional Expression) du niveau de création du slicer. Aucune prise en charge pour les sources de données non OLAP.
Name	Facultatif	Variant	Nom du slicer. Si aucun nom n’est spécifié, Excel en génère automatiquement un. Il doit être appliqué à tous les slicers d’un classeur.
Caption	Facultatif	Variant	Légende du slicer.
Top	Facultatif	Variant	Position verticale initiale du segment, en points, par rapport au coin supérieur gauche de la cellule A1 d’une feuille de calcul.
Left	Facultatif	Variant	Position horizontale initiale du slicer, en points, par rapport à l’angle supérieur gauche de la cellule A1 dans un classeur.
Width	Facultatif	Variant	Largeur initiale, en points, du contrôle de slicer.
Height	Facultatif	Variant	Hauteur initiale, en points, du contrôle de slicer.

 

[Bernard_XLD]

C'est quoi ces chiffres 318, 879.75, 144, 210 dans le Set Objet_Segment

le positionnement du segment dans la feuille

Je pense qu'il s'agit des valeurs 'Top', 'Left', 'Height' et 'Width' du segment ajouté.

tout à fait cela

les segments sont très puissants pour des filtres en cascade quoiqu'un peu délicats à manipuler en vba parfois

 

[Dudu2]

@laurent950, Pas de souci je vais regarder.

@Bernard_XLD, J'ai tenté de Functionariser ton code.
Ca marche pour la colonne 1 mais pas pour la colonne 2.
Tu peux regarder dans le classeur joint STP ?

 

[Gégé-45550]

@laurent950, Pas de souci je vais regarder.

@Bernard_XLD, J'ai tenté de Functionariser ton code.
Ca marche pour la colonne 1 mais pas pour la colonne 2.
Tu peux regarder dans le classeur joint STP ?

Bonsoir,
Par exemple comme dans la PJ

 

[laurent950]

Bonsoir @Dudu2
Objet : Ajout des fichiers et précisions sur le module de classe
J’ai ajouté les fichiers dans Poste :

• #12 : sur filtre actif
• #13 : uniquement les filtres actifs, et tous les champs si, par défaut, aucun n’est décoché

Ensuite, grâce au module de classe, il est possible de récupérer les données comme souhaité. Il suffit d’adapter le module standard, qui est très flexible

 

[laurent950]

Bonsoir @Gégé-45550 cela ne correspond plus au Poste #1 ? Votre Poste #20 !

 

[Bernard_XLD]

Tu peux regarder dans le classeur joint STP ?

j'ai remplacé tes variables workbook et Worksheet par Wbk et Wsh, c'est plus lisible et clair.

Function TabValeursUniquesColonneTS(Tbl As ListObject, TblNoColonne As Integer) As Variant()
    Dim SlicerItem As SlicerItem
    Dim Segment As Object
    Dim TabValeursUniques() As Variant
    Dim Wbk As Workbook
    Dim Wsh As Worksheet
    Dim NomColonne As String
    Dim i As Long
   
    Set Wbk = Tbl.Parent.Parent
    Set Wsh = Tbl.Parent
    NomColonne = Tbl.HeaderRowRange(TblNoColonne)
    Set Segment = Wbk.SlicerCaches.Add2(Tbl, NomColonne).Slicers.Add( _
                            Wsh, , NomColonne, NomColonne, 318, 879.75, 144, 210)
    ReDim TabValeursUniques(1 To Wbk.SlicerCaches("Segment_" & NomColonne).SlicerItems.Count)
    For Each SlicerItem In Wbk.SlicerCaches("Segment_" & NomColonne).SlicerItems
        i = i + 1
        TabValeursUniques(i) = SlicerItem.Name
    Next SlicerItem
    Segment.Delete
    'Return value
    TabValeursUniquesColonneTS = TabValeursUniques
End Function

 

[laurent950]

Explication en Poste #19 si décoché 2 et 4 Alors pourquoi ce resultat ?
c'est pas ce que l'on comprend en #Poste 1

Ca marche pour la colonne 1

 

[Bernard_XLD]

Et ça marche ! Suis impressionné.

😉et pourtant, elle tourne !

 

[Dudu2]

@Bernard_XLD

TabValeursUniques = TabValeursUniquesColonneTS(ActiveSheet.ListObjects(1), 2)

Même punition sur la colonne 2.
De toutes façons VBA sait différencier un nom de variable d'un type.

 

[Bernard_XLD]

Explication en Poste #19 si décoché 2 et 4 Alors pourquoi ce resultat ?

Peut-on récupérer toutes les valeurs listées dans la liste déroulante du filtre sans parcourir les données.

Dudui2 ne veut pas la sélection mais la liste complète du filtre

 

[Bernard_XLD]

Même punition...

 

[Dudu2]

@laurent950,

c'est pas ce que l'on comprend en #Poste 1

J'ai écrit:
Supposons un colonne qui peut être filtrée et qui est ou non filtrée.
Peut-on récupérer toutes les valeurs listées dans la liste déroulante du filtre sans parcourir les données.
Et en plus j'ai placé 2 screenshots avec ce que je veux récupérer (colonne filtrée ou non)
Tu trouves que ce n'est pas clair ?

 

[Bernard_XLD]

Même punition

ton classeur modifié