Boucle if pour supprimer des données

Bonjour à tous, j'utilise une macro qui transforme des données en un tableau structuré appelé Articles.

Sub AjoutTableau()
Application.ScreenUpdating = False
'ajout tableau'

    Range("A1").CurrentRegion.Select
    ActiveSheet.ListObjects.Add(xlSrcRange, , xlYes).Name = "Articles"

End Sub

Je sollicite votre aide car j'aimerai modifié ce code en insérant une boucle if : si le tableau Articles existe alors supprimer le tableau Articles du gestionnaire de nom (pas les données) afin que je puisse re créer un nouveau tableau Articles et réexécuter ce code. Merci

bonjour,

essaie ceci, instruction à mettre avant la création de ton tableau.

ActiveSheet.Range("Articles[#All]").Delete

Salut merci pour ta réponse. Lorsque j'exécute l'instruction supprime le tableau sauf la cellule A1 et décale les autres cellule vers la cellule A1

re-bonjour,

essaie ceci alors

On Error Resume Next
    Set r = Range("Articles[#All]")
    ActiveSheet.ListObjects("articles").Unlist
    r.Clear
    Set r = Nothing
    On Error GoTo 0

Rebonjour merci pour ton aide. Ca supprime le tableau et les données du tableau sauf que moi je souhaitais juste supprimer le tableau et conserver les données (si le tableau article existe).

L'objectif est de supprimer cette ligne Articles du gestionnaire de nom et conservé les données de ce tableau, juste ce ne sera plus un tableau.

re-bonjour,

désolé, j'avais zappé que tu voulais garder les données.

donc ainsi

 

    On Error Resume Next
    ActiveSheet.ListObjects("articles").Unlist
    On Error GoTo 0

Bonjour, merci pour ton retour. Ca marche parfaitement c'est exactement ce que je voulais. Bonne journée