Discussion :

[Conundrum]

Bonjour

Je souhaite créer une commande VBA qui dit :

Si ce segment existe (nom_du_segment), le supprimer
S'il n'existe pas, ne rien faire, passer à la commande suivante


J'aimerai que la commande soit compatible avec excel 2010 et 2016

[joe.levrai]

Bonjour,

un proposition de fonction parmi tant d'autres

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Function SegmentExiste(NomSegment As String) As Boolean
Dim Segment As SlicerCache
    On Error Resume Next
        Set Segment = ThisWorkbook.SlicerCaches(NomSegment)
    On Error GoTo 0
SegmentExiste = Not Segment Is Nothing
End Function

Exemple d'appel

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Sub test()
    If SegmentExiste("NomDuSegment") Then
        ' Mon action
    Else
        ' S'il existe pas, on fait ça
    End If
End Sub

[Conundrum]

Merci Joe !

J'ai omis de préciser que mon niveau de VBA est faible...

Comment j'insère ce code entre un Sub et un End Sub ?
De manière très basique, comme si j'avais 4 ans

[joe.levrai]

Tu mets la Function dans un module standard

et ensuite je t'ai mis un exemple au sein d'un Sub / End Sub pour utiliser la fonction

il ne reste qu'à compléter la partie ' Mon Action

pour supprimer un segment :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Sub test()
Dim LeSegment As String
    LeSegment = "NomSegment"
    If SegmentExiste(LeSegment) Then
        ThisWorkbook.SlicerCaches(LeSegment).Delete
    Else
        ' S'il existe pas, on fait ça
    End If
End Sub

[Conundrum]

Merci Joe,

J'y suis arrivé avec ce second code !

Pour info, me concernant et qui m'a posé des difficultés, le nom du segment par défaut c'est : "Segment_nomdusegment"