Excel 2002 : Tableau croisé dynamique

[invitee518b267]

Bonjour

Peut-on créer un tableau croisé dynamique en ayant les données à analyser sur plusieurs feuilles d'un même classeur ?


Par exemple :
J'ai un classeur qui se nomme "Budget.xls".
A l'intérieur de ce fichier, j'ai 5 feuilles "Données_croisées", "Année2008", "Année2009", "Année2010", "Année2011".
Je souhaite effectuer un tableau croisé dynamique (sur la feuille "Données_croisées") en prenant les données situées sur différentes feuilles.


J'ai essayè mais je rencontre des difficultées pour insérer plusieurs plages ?


Si, cette action est possible, pouvez-vous s'il vous plait m'aider ?



Merci
Bonne journée
-----

[invite8666d089]

Tu trouveras ci-joint un fichier Excel (zippé) dont la structure (feuilles) est celle que tu nous a donnée. C'est un exemple probablement loin de ton besoin, mais tu ne devrais pas avoir trop de mal à l'adapter. Ici, on a les tableaux d'investissement et de fonctionnement d'une mairie pour les années 2008 à 2011. Dans la 1ère feuille ("Données_croisées") on veut calculer les moyennes des 4 années étudiées. Il suffit de lancer la macro "Moyennes".

Sub Moyennes()
  Dim I, J As Integer
  Dim NbFeuilles As Integer
  Dim Ws As Worksheet
  Dim Total As Double
  Dim NbLignes As Integer
  Dim NbColonnes As Integer

  ' Paramétrage
  NbFeuilles = Sheets.Count ' 5 feuilles dont une réceptrice
  NbLignes = 12 ' 12 mois
  NbColonnes = 2 ' 1 colonne investissement + 1 fonctionnement
  
  
  ' On enregistre les moyennes dans la feuille réceptrice
  For I = 2 To NbColonnes + 1
    For J = 2 To NbLignes + 1
        Total = 0
        For Each Ws In ThisWorkbook.Worksheets
            If Ws.Name <> "Données_croisées" Then
                If IsNumeric(Ws.Cells(J, I)) Then
                    Total = Total + CDbl(Ws.Cells(J, I))
                End If
            End If
        Next Ws
        ActiveSheet.Cells(J, I) = Total / (NbFeuilles - 1)
    Next J
  Next I
  
End Sub