Microsoft 365 code vba bouton suivant

[Pascal37800]

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

 

[chris]

Bonjour

Une scrollbar nommé TCD_ScrollV

Dans le module de l'onglet du TCD

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

Dans un module standard

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

 

[Pascal37800]

Bonjour Chris, merci pour le code mais je n'arrive pas à le faire fonctionner, je ne comprends pas ?
J'ai bien adapté le code VB de l'onglet concerné

et recopié le code dans le module 1

Faut-il un scroll spécifique ?
Je suis vraiment désolé, le VB et moi ça fait deux
Merci encore

 

[chris]

Bonjour

MENU est bien la feuille contenant la scrollbar correctement nommée et le TCD ?

Obtiens-tu une erreur ?

Si non c'est probablement du à l'existence ou au nom de la scrollbar