Masquer des segments de graphique avec VBA

Bonjour,

J’aimerais avoir un macro VBA qui me permettra de masques des segments si je clique sur la cellule A2.

Merci pour votre aide.

Bonjour Sosso2023,

Je peux te proposer d'insérer ce code dans la feuille où tu souhaites cliquer sur A2 (tu cliques sur la feuille > voir le code)

' Cacher le segment en cliquant sur A2
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Selection.Count = 1 Then
        If Not Intersect(Target, Range("A2")) Is Nothing Then
            Call LeNomDeTaMacro
        End If
    End If
End Sub

Cliquer sur A2 activera donc ta Macro (ici Macro3) qui masquera le/les segments choisis. En voici le code

Sub Macro3()
'
' Macro3 - objectif : cacher le segment voulu
'
    ActiveSheet.Shapes.Range(Array("Le Nom de ton Segment")).Visible = msoFalse
End Sub

Si tu préfères, tu peux l'enregistrer toi même il te faut masquer tes segments via Mise en page > Panel de selection (Selection Pane, mon Excel est en anglais)

J'espère avoir été clair, n'hésite pas à me faire signe si tu as des questions

Bonne fin de journée

Merci à vous

Vous résolu mon problème.

Bonne journée également

Bonjour DorianF

Dites moi svp,

J'aimerais quand je clique sur la cellule A1 de la feuille1 mon tableau qui se trouve sur la feuille2 s’affiche à partir de la cellule A6 de la feuille 1 avec un trie personnalisé sur vba.

Merci pour ton retour.

Bonjour,
Merci de joindre un fichier pour une aide adaptée du forum.
Une reformulation de la demande est souhaitée.
Et précise la version Excel utilisée dans ton profil.
Cdlt.

Bonjour,

Je voudrais quand je clique sur TEST1 afficher sur la feuille 1 a partir de la cellule 6 le tableau qui se trouve dans la feuille 2 en filtrant sur le groupe 1 et quand je clique sur TEST2 afficher le tableau en filtrant sur groupe 2.

J'ai un abonnement Microsoft 365 apps for entreprise version 2208.

Merci

Re,
Une proposition à adapter.
Cdlt.

Option Explicit

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim lo As ListObject, lCol As Long

    If Not Intersect(Target, Me.Range("A1:B1")) Is Nothing Then
        Cancel = True
        lCol = Target.Column
        Set lo = Worksheets("Feuil2").ListObjects("t_groupes")
        With lo
            If .ShowAutoFilter Then .AutoFilter.ShowAllData
            .Range.AutoFilter field:=4, Criteria1:=lCol
        End With
    End If

    With Worksheets("Feuil2")
        .Activate
        .Cells(1).Select
    End With

End Sub

Je voudrais que le résultat du filtre s'affiche sur la feuil 1 cellule A6

Re,
Une mise à jour de la proposition initiale.
Modifie ton profil avec la version Excel utilisée.
Cdlt.

Bonjour,
Un petit retour ?
Cdlt.