Microsoft 365 code vba bouton suivant

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
 
Dernière modification par un modérateur:

chris

XLDnaute Barbatruc
Bonjour

Une scrollbar nommé TCD_ScrollV

Dans le module de l'onglet du TCD
VB:
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
Code:
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

XLDnaute Nouveau
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é
1653808216730.png

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

XLDnaute Barbatruc
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
 
Dernière édition:

Discussions similaires

Statistiques des forums

Discussions
311 732
Messages
2 081 995
Membres
101 857
dernier inscrit
mt60400