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 !