Suppression TableStyle à partir d'Excel

Question

J'ai ajouté un TableStyle classeur Excel utilisant l'instruction:

ActiveWorkbook.TableStyles.Add("PivotTable SS") 

je peux le supprimer en utilisant:

ActiveWorkbook.TableStyles("PivotTable SS").Delete 

Comment puis-je vérifier par programme si elle existe déjà avant de décider s'il faut supprimer ou non?

Actuellement, je suis Boucler dans tous les styles de table et de faire une suppression sélective:

For Each ts In ActiveWorkbook.TableStyles 
     If ts.Name = "PivotTable Style 1" Then 
      ts.Delete 
     End If 
    Next ts 

Cependant, cela est du temps. Comment puis-je vérifier l'existence de la table pivotante et l'effacer sans boucler?

Merci :)

Answer 1

Vous pouvez attribuer le style à une variable. Si la variable est Nothing, le style n'existe pas. Si le style n'existe pas et que vous essayez d'affecter la variable, vous obtiendrez un message d'erreur, vous devez donc suspendre temporairement la gestion des erreurs.

Sub DeleteAStyle() 

    Dim ts As TableStyle 

    On Error Resume Next 
    Set ts = ActiveWorkbook.TableStyles("PivotTable Style 1") 
    On Error GoTo MyUsualErrorHandler 

    If Not ts Is Nothing Then 
     ts.Delete 
    End If 

End Sub