Idiot du virage
XLDnaute Nouveau
Bonjour à tous,
Bien à l'aise dans les formules mais complètement à la ramasse en VBA ...
Je voudrais n'afficher que les enregistrements vides d'un champ d'un TCD.
J'ai commencé à écrire quelque chose qui ne fonctionne pas :
Sub Macro1()
'
' Macro1 Macro
'
Dim pf As PivotField
Set pf = ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("Date Vente")
If pf.PivotItems(pf.PivotItems.Count).ValueIsEmpty
Then pf.PivotItems(pf.PivotItems.Count).Visible = False
End Sub
Y-à-t-il quelqu'un pour m'aider à progresser ?
Bien à l'aise dans les formules mais complètement à la ramasse en VBA ...
Je voudrais n'afficher que les enregistrements vides d'un champ d'un TCD.
J'ai commencé à écrire quelque chose qui ne fonctionne pas :
Sub Macro1()
'
' Macro1 Macro
'
Dim pf As PivotField
Set pf = ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("Date Vente")
If pf.PivotItems(pf.PivotItems.Count).ValueIsEmpty
Then pf.PivotItems(pf.PivotItems.Count).Visible = False
End Sub
Y-à-t-il quelqu'un pour m'aider à progresser ?