Comment compter le nombre de lignes dans un tableau croisé dynamique ?

Comment compter le nombre de lignes dans un tableau croisé dynamique ? - VB/VBA/VBS - Programmation

Marsh Posté le 05-06-2012 à 07:52:03    

Bonjour,
 
Je voudrais compter le nombre de ligne dans un tableau croisé dynamique. J'ai trouvé sur http://excel.developpez.com/faq/?page=TCD, une macro qui permettrait de le faire mais ça ne fonctionne pas. Voici le code :

Code :
  1. Sub compterNombreLignesTCD()
  2.     Dim Pvt As PivotTable
  4.     'Définit le TCD   
  5.     Set Pvt = Worksheets("Feuil1" ).PivotTables("Tableau croisé dynamique1" )
  6.    
  7.     'TableRange1:
  8.     'plage contenant l'intégralité du rapport de tableau croisé dynamique,
  9.     'à l'exclusion des champs de page.
  10.     MsgBox Pvt.TableRange1.Rows.Count
  11.    
  12.     'TableRange2 :
  13.     'plage contenant l'intégralité du rapport de tableau croisé dynamique,
  14.     'y compris les champs de page.
  15.     MsgBox Pvt.TableRange2.Rows.Count
  16. End Sub


Je pense que le problème vient du fait que mes données sources ne sont pas la "Feuil1"  en entière mais seulement 3 colonnes.
 
Merci de votre aide !!

Reply

Marsh Posté le 05-06-2012 à 07:52:03   

Reply

Marsh Posté le 05-06-2012 à 09:35:48    

Salut, je viens de tester à l'instant ce code, en l'adaptant bien sur, et il fonctionne correctement. Ce code concerne le TCD nommé "Tableau croisé dynamique1" situé sur Feuil1


---------------
Myanmar 90/91 : http://gadaud.gerard.free.fr/publi [...] index.html
Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed