Bonjour Sophie

Stp, sur le meme fichier j’ai introduit un code VBA sur l’onglet TCD mais ca me fait erreur 1004 et m’affiche débogage ou fin.

Pourrai tu m’aider si possible afin de pouvoir controler les trois TCD directement depuis l’onglet planning

Code VBA :

Private Sub Worksheet_Activate()

Application.ScreenUpdating = False

ActiveSheet.PivotTables(“Tableau croisé dynamique1”).PivotFields(“Manager – Level 03”). _
ClearAllFilters
ActiveSheet.PivotTables(“Tableau croisé dynamique1”).PivotFields(“Manager – Level 03”). _
CurrentPage = IIf(Sheets(“Planning”).Range(“B4”).Value = “”, “(All)”, Sheets(“Planning”).Range(“B4”).Value)

ActiveSheet.PivotTables(“Tableau croisé dynamique2”).PivotFields(“Manager – Level 02”). _
ClearAllFilters
ActiveSheet.PivotTables(“Tableau croisé dynamique2”).PivotFields(“Manager – Level 02”). _
CurrentPage = IIf(Sheets(“Planning”).Range(“B4”).Value = “”, “(All)”, Sheets(“Planning”).Range(“B4”).Value)

ActiveSheet.PivotTables(“Tableau croisé dynamique3”).PivotFields(“Manager – Level 01”). _
ClearAllFilters
ActiveSheet.PivotTables(“Tableau croisé dynamique3”).PivotFields(“Manager – Level 01”). _
CurrentPage = IIf(Sheets(“Planning”).Range(“B4”).Value = “”, “(All)”, Sheets(“Planning”).Range(“B4”).Value)

End Sub

Merci encore

Bonsoir,

Voila je me suis inscrit LOL (il était temps)

J’aimerais si c’est possible avoir de l’aide sur l’un de mes fichiers. Voilà j’ai une base de données de la hiérarchie de l’entreprise et j’aimerais créer un planning des absences, j’aurais besoin d’automatiser ce fichier et pour cela j’ai créé une liste déroulante et des lignes avec rechercheV donc la liste me donne le manager et les lignes recherchent son équipe sauf que j’ai essayé de le faire avec plusieurs TCD (TCD N+3, TCD N+2…) et ma liste ramène que les N+3, mais il faudrait que les lignes aussi s’actualisent avec les noms de l’équipe adéquate (si le manager est N+3 => la recherche se fera dans la liste des N+2 … ETC)
Merci par avance pour vos retours