Bonjour à tous !
Voila, je suis en quête d'aide sur un problème pas banal. En effet, je viens de faire un petit code afin de filtrer un TCD automatiquement en fonction de ce qui est inscrit dans une cellule lorsque je switch sur la page du-dit TCD.
Cependant, lorsque je test ma macro (ou change de page, comme elle est automatique), le TCD se met correctement à jour avec l'intitulé de la cellule "service" dans l'onglet "recherche", mais un message d'erreur 1004 s'affiche également.
Lorsque j’exécute ma macro, le message d'erreur s'affiche à la dernière étape (après la boucle). Personnellement tant que la macro fonctionne ça ne me pose pas de problème, mais c'est un document de travail destiné à être partagé (qui plus est à des personnes ne maitrisant pas forcement Excel, d'où l'importance de ne pas avoir de message d'erreur pour préserver leur santé mental
Si quelqu'un voit la cause du problème, je suis preneur !
(et si besoin de précision, je suis évidement disponible pour vous les apporter !)
Merci d'avance
Voila, je suis en quête d'aide sur un problème pas banal. En effet, je viens de faire un petit code afin de filtrer un TCD automatiquement en fonction de ce qui est inscrit dans une cellule lorsque je switch sur la page du-dit TCD.
Cependant, lorsque je test ma macro (ou change de page, comme elle est automatique), le TCD se met correctement à jour avec l'intitulé de la cellule "service" dans l'onglet "recherche", mais un message d'erreur 1004 s'affiche également.
VB:
Private Sub Worksheet_Activate()
Dim i As Integer
Application.ScreenUpdating = False
For i = 1 To 3
Sheets("fournisseurs").PivotTables("Tableau croisé dynamique" & i).PivotFields("service"). _
ClearAllFilters
Sheets("fournisseurs").PivotTables("Tableau croisé dynamique" & i).PivotFields("service"). _
CurrentPage = IIf(Sheets("recherche").Range("service").Value = "", "(All)", Sheets("recherche").Range("service").Value)
Next
End SubLorsque j’exécute ma macro, le message d'erreur s'affiche à la dernière étape (après la boucle). Personnellement tant que la macro fonctionne ça ne me pose pas de problème, mais c'est un document de travail destiné à être partagé (qui plus est à des personnes ne maitrisant pas forcement Excel, d'où l'importance de ne pas avoir de message d'erreur pour préserver leur santé mental
Si quelqu'un voit la cause du problème, je suis preneur !
(et si besoin de précision, je suis évidement disponible pour vous les apporter !)
Merci d'avance