Comment faire pour que le segment du tableau croisé dynamique se déplace avec le défilement de la feuille de calcul dans Excel ?

Lorsque vous travaillez avec un tableau croisé dynamique, vous pouvez insérer des segments pour filtrer visuellement les données du tableau. Cet article traite de la manière de garder le segment du tableau croisé dynamique toujours visible tout en faisant défiler la feuille de calcul.

Maintenir le segment du tableau croisé dynamique en mouvement avec le défilement de la feuille de calcul à l'aide d'un code VBA

Maintenir le segment du tableau croisé dynamique en mouvement avec le défilement de la feuille de calcul à l'aide d'un code VBA

Le script VBA suivant peut vous aider à maintenir le segment du tableau croisé dynamique en mouvement avec la feuille de calcul. Veuillez procéder comme suit.

1. Appuyez simultanément sur les touches Alt + F11 pour ouvrir la fenêtre Microsoft Visual Basic for Applications.

2. Dans la fenêtre Microsoft Visual Basic for Applications, double-cliquez sur ThisWorkbook dans le volet Projet à gauche, puis copiez et collez le code VBA ci-dessous dans la fenêtre ThisWorkbook (Code). Voir capture d'écran :

Code VBA : Maintenir le segment du tableau croisé dynamique en mouvement avec le défilement de la feuille de calcul

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
    Dim ShF As Shape
    Dim ShM As Shape
    'specify a slicer
    Application.ScreenUpdating = False
    Set ShF = ActiveSheet.Shapes("Column1")
    Set ShM = ActiveSheet.Shapes("Column2")
    'change position of the slicer
    With Windows(1).VisibleRange.Cells(1, 1)
        ShF.Top = .Top
        ShF.Left = .Left + 300
        ShM.Top = .Top
        ShM.Left = .Left + 100
    End With
    Application.ScreenUpdating = True
End Sub

Remarques :

1). Dans le code, Colonne1 et Colonne2 sont les noms des segments.

2). Vous pouvez spécifier la position des segments lors du défilement de la feuille de calcul dans le code.

3). Et vous pouvez ajouter plus de segments dans le code ou supprimer des segments selon vos besoins.

3. Appuyez sur les touches Alt + Q pour fermer la fenêtre de dialogue Microsoft Visual Basic for Applications.

Désormais, les segments spécifiés se déplaceront avec la cellule active lors du défilement de la feuille de calcul. Voir capture d'écran :

Découvrez la magie d'Excel avec Kutools AI

• Exécution intelligente : Effectuez des opérations sur les cellules, analysez les données et créez des graphiques, le tout piloté par des commandes simples.
• Formules personnalisées : Générez des formules adaptées pour rationaliser vos flux de travail.
• Codage VBA : Écrivez et implémentez du code VBA sans effort.
• Interprétation des formules : Comprenez facilement des formules complexes.
• Traduction de texte : Surmontez les barrières linguistiques dans vos feuilles de calcul.

Améliorez vos capacités Excel avec des outils alimentés par l'IA. Téléchargez maintenant et découvrez une efficacité sans précédent !

Articles connexes :

• Comment garder un tableau extensible en insérant une ligne de tableau dans une feuille de calcul protégée dans Excel ?
• Comment combiner des cellules et conserver le formatage des cellules dans Excel ?
• Comment supprimer les doublons mais conserver la première instance dans Excel ?