Pascal37800
XLDnaute Nouveau
Bonjour, je souhaite creer un bouton pour passer à la valeur suivante d'un filtre TCD soit via un spin button ou autre ? Je sèche
Merci
Merci
Dernière modification par un modérateur:
Private Sub TCD_ScrollV_Change()
Dim y as long
y = ActiveSheet.PivotTables("Nom_TCD").PivotFields("NomChamp").PivotItems.Count
TCD_ScrollV.Max = y
Call Defiler(TCD_ScrollV.Value, y, ActiveSheet.PivotTables("Nom_TCD").PivotFields("NomChamp"))
End Sub
Sub Defiler(x, y, TCD As PivotField)
Application.ScreenUpdating = False
With TCD
AMasq = IIf(x <> 1, True, False)
.PivotItems(1).Visible = True
For i = 2 To y
.PivotItems(i).Visible = i = x
Next i
If AMasq = True Then .PivotItems(1).Visible = False
End With
End Sub