correction macro sur croisés dynamiques

[OliverForDan]

Bonjour à tous,
pourriez-vous me dire pourquoi cette simple macro ne fonctionne pas
Dim Coulée1 As String
Dim Coulée2 As String

Sheets("coulées").Select

Clée1 = Range("B2").Value
Clée2 = Range("B3").Value

With ActiveSheet.PivotTables("BL").PivotFields("Coulée")
.PivotItems(Clée1).Visible = True ====> je voudrais ici faire apparaître dans le croisé dynamique deux valeurs de coulées...mais il ne veut pas!!!???


End With
End Sub

 

[gosselien]

Re : correction macro sur croisés dynamiques

Bonsoir 🙂

et si tu envoyais une bonne copie de ton fichier anonymisée 🙂

P. (même si perso, les tcd en vba ce n'est pas trop mon truc, mais chacun séparément oui 😀 )