Discussion :

[annadez]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 !

[78chris]

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...

[annadez]

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...