Extraire certaines données d'un tableau et présenter le résultats dans un autre

Re : Extraire certaines données d'un tableau et présenter le résultats dans un autre

Voici un fichier un peu plus près du vrai résultat en disposition.

En fait, le vrai fichier contient 15 feuilles dont une pour chaque mois de l'année. Une constitut un résumé classé par type de dépenses pour la comptabilité et c'est sur cette page que je veux extraire les données portant la mention «divers» afin de subir un traitement manuel. J'aurai donc sur cette page 12 tableaux dynamiques si c'est la méthode retenue qui devront s'actualiser au fur et à mesure que les employés vont compléter leur rapport de dépenses à chaque mois.

Je vais donc retenter la solution de Philippe.

Merci de votre patience à tous les deux.

Ginette

Re : Extraire certaines données d'un tableau et présenter le résultats dans un autre

Salut @ tous,
Voir Pj si ca te convient??
sur ton fichier reel tu selectionnes les deux cellules en Rouge et tu tires vers la droite Puis vers le bas.

Re : Extraire certaines données d'un tableau et présenter le résultats dans un autre

Définitivement, je me sens vraiment nulle.

Bon, je me retrouve avec 12 tableaux dynamiques (un pour chaque mois de l'année)groupés dans une page «résumé». J'ai placé un code dans chaque page où se trouve les tableaux sources. J'ai ajouter worksheets("Résumé"). en avant de ActiveSheet.PivotTables("Tableau croisé dynamique2").PivotCache.Refresh pour signifier où se trouve le TCD mais j'ai une erreur d'exécution '438' (Propriété ou méthode non gérée par cet objet.

Mon code complet dans chaque page: (Le numéro du tableau change)

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Worksheets("Comptabilité-dépenses").ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotCache.Refresh
End Sub


As-tu une idée de mon erreur

Merci

Re : Extraire certaines données d'un tableau et présenter le résultats dans un autre

OK j'ai trouvé

Private Sub Worksheet_Activate()
ActiveWorkbook.RefreshAll
End Sub

Merci à vous deux!