Compter nombre d'éléments visibles dans un TCD

Résolu
1Globule Messages postés 62 Statut Membre -  
1Globule Messages postés 62 Statut Membre -
Bonjour,

J'ai créé un tableau croisé dynamique avec un filtre du rapport "Semaine".
Dans cette liste, je peux choisir un ou plusieurs éléments.

J'essaye, par macro, de compter le nombre d'élément actuellement sélectionné.
Le code suivant indique toujours 1, même si j'ai plusieurs éléments sélectionnés.

MsgBox PivotTables("Tableau croisé dynamique7").PivotFields("Semaine").VisibleItems.Count

Auriez-vous une solution ?

Merci beaucoup.

1 réponse

  1.
    thev Messages postés 2006 Date d'inscription   Statut Membre Dernière intervention   721
     
    Bonsoir,

    proposition non testée 


         nb_sélectionnés = 0
        For Each élément In PivotTables("Tableau croisé dynamique7").PivotFields("Semaine").PivotItems
          If élément.Visible Then nb_sélectionnés = nb_sélectionnés + 1
        Next
        mssgbox nb_sélectionnés
    0
    1. 1Globule Messages postés 62 Statut Membre 2
       
      Merci beaucoup, mais il y a une erreur ici : If élément.Visible
      Erreur d'exécution 13 : Incompatibilité de type
      0
      1. thev Messages postés 2006 Date d'inscription   Statut Membre Dernière intervention   721 > 1Globule Messages postés 62 Statut Membre
         
        Il te manque la feuille à laquelle appartient le TCD. 


        MsgBox Sheets(i).PivotTables("Tableau croisé dynamique7").PivotFields("Semaine").VisibleItems.Count

        où i est le numéro de ta feuille.
        0
    2. 1Globule Messages postés 62 Statut Membre 2
       
      Ce code est celui que j'ai posté au début, mais il indique toujours 1.
      Je suis passé par une solution détournée en comptant le nombre le lignes affichées. C'est brouillon, mais c'est fiable.

      Merci quand même.
      0

Discussions similaires

nombre de ligne dans tableau excel filtré
barts -
toy2000gt -

10 réponses
EXCEL Calculer le nombre de OUI et de NON
crimimmi -
Raymond PENTIER -

5 réponses