Macro filtre sur TCD

Bonjour,

Je cherche à faire, via une macro, un filtre sur deux TCD différents avec une valeur commune : le n° de siren

Pour cela j'utilise cette macro qui fonctionne seulement si le siren est présent dans les deux TCD, or il peut arriver que le Siren soit présent dans un TCD et pas l'autre, quand c'est le cas, la macro fait un débogage.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

Sub test()   Dim Nom As String Siren = InputBox("Saisir le N°SIREN recherché ?")     Sheets("CA").Select ActiveSheet.PivotTables("Tableau croisé dynamique4").PivotFields("N° SIREN").ClearAllFilters ActiveSheet.PivotTables("Tableau croisé dynamique4").PivotFields("N° SIREN").CurrentPage = Siren   Sheets("volume").Select ActiveSheet.PivotTables("Tableau croisé dynamique3").PivotFields("SIREN - Compte").ClearAllFilters ActiveSheet.PivotTables("Tableau croisé dynamique3").PivotFields("SIREN - Compte").CurrentPage = Siren   Sheets("Feuil1").Select Range("G4").Select     End Sub

---

j'aimerai ajouter des lignes dans ma macro pour dire :

Si le siren n'appartient pas a la table "CA" ou a la table "volume" alors ouvrir un message box "siren inconnu dans l'une des tables" sinon s'il est présent dans les deux tables exécuter la macro (ci dessus).

mais je ne sais pas comment l'écrire...
Merci d'avance pour votre aide !

Bonjour

Les TCD ont la même source ou chacun une source différente ? Dans le 1er cas cela se fait très simplement via un segment connecté aux 2 TCD...

Bonjour,

Les TCD ont des sources différentes. De plus, plusieurs doublon dans chaque table donc impossible de croiser les tables par une relation "un à plusieurs", il faudrait une relation "plusieurs à plusieurs" mais je ne peux pas le faire avec ma version d'office. D'où l'idée de la macro...