Aide pour modification VBA

Bonjour à tous ,

j'ai un souci avec des données et un tableau croisé et j'espère que vous pourrez gentiment m'aider.

dans une feuille les données saisies, dans une autre un tableau croisé à imprimer.

tout le monde ne saisie pas correctement les données, résultat un tableau avec beaucoup de données à zéro ou de vide.

je peux les enlever avec les filtres du tableau croisé, mais je dois le refaire à chaque actualisation

J'ai essayer en enregistrant une macro, mais elle plante des qu'une filtre est différent....

ci dessous le code vba après l'enregistrament :

Sub MacroActualisation()

End Sub

Ce que je souhaiterai, c'est que si les filtres le proposent d'enlever les "0" et "vide", or dans mon code si le filtre n'est pas là ....ba plantage.

merci pour votre aide que vous pourrez m'apporter

Bonjour,

Ton code n'est pas très lisible dans ton post et sans ton fichier, c'est moins évident de visualiser...

Autre chose : l'intérêt de ton filtre est juste de supprimer les données vides ou égales à 0 ? Si oui on peut procéder autrement...

Je remets ici ton code (strictement identique) en forme :

Sub MacroActualisation()
'
' MacroActualisation Macro
' actualise le tableau croisé puis enleve par filtre les "vide" et "0"
'

'
Range("A1").Select
ActiveSheet.PivotTables("Tableau croisé dynamique3").PivotCache.Refresh
With ActiveSheet.PivotTables("Tableau croisé dynamique3").PivotFields( _
"Nom Patient")
.PivotItems("0").Visible = False
End With
With ActiveSheet.PivotTables("Tableau croisé dynamique3").PivotFields( _
"Cotations")
.PivotItems("0").Visible = False
End With
With ActiveSheet.PivotTables("Tableau croisé dynamique3").PivotFields("Qté")
.PivotItems("0").Visible = False
End With
With ActiveSheet.PivotTables("Tableau croisé dynamique3").PivotFields("ACTES")
.PivotItems("0").Visible = False
End With
With ActiveSheet.PivotTables("Tableau croisé dynamique3").PivotFields("MCI")
.PivotItems("0").Visible = False
.PivotItems("(blank)").Visible = False
End With
With ActiveSheet.PivotTables("Tableau croisé dynamique3").PivotFields("MAU")
.PivotItems("0").Visible = False
.PivotItems("(blank)").Visible = False
End With
With ActiveSheet.PivotTables("Tableau croisé dynamique3").PivotFields("€ soins" _
)
.PivotItems("0").Visible = False
.PivotItems("").Visible = False
.PivotItems("(blank)").Visible = False
End With
With ActiveSheet.PivotTables("Tableau croisé dynamique3").PivotFields( _
"Total € Soins")
.PivotItems("0").Visible = False
.PivotItems("").Visible = False
.PivotItems("(blank)").Visible = False
End With
With ActiveSheet.PivotTables("Tableau croisé dynamique3").PivotFields("0,1")
.PivotItems("0").Visible = False
.PivotItems("").Visible = False
.PivotItems("(blank)").Visible = False
End With
With ActiveSheet.PivotTables("Tableau croisé dynamique3").PivotFields("€ NET")
.PivotItems("0").Visible = False
.PivotItems("").Visible = False
.PivotItems("(blank)").Visible = False
End With
With ActiveSheet.PivotTables("Tableau croisé dynamique3").PivotFields("ID")
.PivotItems("0").Visible = False
.PivotItems("(blank)").Visible = False
End With
With ActiveSheet.PivotTables("Tableau croisé dynamique3").PivotFields("Kms")
.PivotItems("0").Visible = False
.PivotItems("(blank)").Visible = False
End With
With ActiveSheet.PivotTables("Tableau croisé dynamique3").PivotFields("IK")
.PivotItems("0").Visible = False
.PivotItems("").Visible = False
.PivotItems("(blank)").Visible = False
End With
With ActiveSheet.PivotTables("Tableau croisé dynamique3").PivotFields( _
"Dimanche")
.PivotItems("0").Visible = False
.PivotItems("(blank)").Visible = False
End With
With ActiveSheet.PivotTables("Tableau croisé dynamique3").PivotFields( _
"€ Totaux")
.PivotItems("0").Visible = False
.PivotItems("").Visible = False
.PivotItems("(blank)").Visible = False
End With
Range("L1").Select
End Sub

bonjour à vous

salut Pedro22

les TCd possèdent une (et même plusieurs) fonction de filtre, qui restent actives même après actualisation

pas besoin de VBA

besoin de rien du tout

c'est Excel

génial

amitités