Si existe, supprimer un segment TCD en VBA

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

Bonjour,

un proposition de fonction parmi tant d'autres

Code:

---

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:

---

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

---

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

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:

---

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

---

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"