Bonjour à tous,

Je cherhche à tester l'existence ou non d'une donnée dans un champ de tableau croisé dynamique.
Je m'explique, je récupère des données quotidiennement à travers un fichier EXCEL. Ces données je les traites via une macro, puis j'alimente un tableau récapitulatif, et pour alimenter ce récap, je me sers d'un tableau croisé dynmaique.

En fait en page, j'insère un champ "TYPE", dans lequel il peut y avoir soit "ENT", soit "STD", soit 1 seul soit aucun.
Je me demandais si on pouvais faire un test en if pour savoir si ENT ou STD existe ?

Merci de votre aide

Tony

bonsoir

je ne suis pas sur d'avoir compris mais tu peux tester:

Sub Test()
    Recherche_Dans_TCD "Type", "STD"
End Sub

Sub Recherche_Dans_TCD(NomField As String, Donnee As String)
    Dim Pvt As PivotTable
    Dim Pvf As PivotField
    Dim i As Range
   
    Set Pvt = ActiveSheet.PivotTables("Tableau croisé dynamique1")
    Set Pvf = Pvt.PivotFields(NomField)
   
    Set i = Pvf.DataRange.Find(What:=Donnee, LookAt:=xlWhole)
   
    If i Is Nothing Then
        MsgBox "Pas trouvé."
    Else
        MsgBox "Trouvé."
    End If
End Sub



bonne soirée
michel