filtre et macro

[Chaps]

Bonjour,

J'ai un filtre sur lequel je n'aimerai demander que les valeurs négatives, sachant qu'elles sont nombreuses est il possible de faire la manip sous macro.

Merci pour le retour

@+

Chaps

 

[ccpapy]

Re : filtre et macro

bonjour,
bien sur que c'est possible seulement sans un fichier exemple comment veux-tu que l'on sache dans quelle cellule se trouvent les valeurs que tu voudrais trier ?
joint un bout de ton fichier en expliquant ton problème ça ira mieux pour nous pour te répondre
à+

 

[Chaps]

Re : filtre et macro

Re,

En fait, pour être plus précis, c'est un filtre de TCD, voici ce que j'aimerai obtenir, évidemment mon code est faux, mais je pense que vous comprendrez mon besoin.

Sub Macro2()

Dim c As long
For c = 0 To 99999999999

ActiveSheet.PivotTables("Tableau croisé dynamique2").PivotFields("A terme"). _
EnableMultiplePageItems = True
ActiveSheet.PivotTables("Tableau croisé dynamique2").PivotFields("A terme"). _
CurrentPage = "(Tous)"
With ActiveSheet.PivotTables("Tableau croisé dynamique2").PivotFields("A terme" _
)
.PivotItems(c).Visible = False
End With
Next c

End Sub

 

[Chaps]

Re : filtre et macro

En cherchant bien, j'ai trouvé une réponse de Hervé à un post, j'ai tenté d'adapter son code.

Sub Macro2()

Dim i As Byte
Dim x As PivotTable
Dim nombre As Boolean

Set x = Worksheets("TCD").PivotTables("Tableau croisé dynamique2")
With x.PivotFields("A terme")
nombre = .PivotItems.Count
For i = 1 To nombre
If .PivotItems(i) > 0 Then
.PivotItems(i).Visible = False
End If
Next i
End With
ActiveWorkbook.Sheets("TCD").Select
End Sub


Mais j'obtiens un dépassement de capacité !? certes j'ai bcp d'items mais bon qd meme.
Merci pour le retour.

@+

Chaps