Microsoft 365 Supprimer Lignes Tableau

[eric72]

Bonjour à tous,
J'ai un tableau structuré dans lequel il y a une formule en colonne "C" et je n'arrive à déclencher une macro qui supprimerait toutes les lignes du tableau mais en conservant la formule en colonne C, auriez-vous une idée pour résoudre ce problème.
Merci beaucoup pour votre dévouement.
Eric

 

[mapomme]

Bonjour à tous,

Un essai en conservant le tableau structuré.

1. le bouton Vider le tableau ôte toute les lignes du tableau structuré
2. ensuite dès qu'on introduit une valeur dans le tableau structuré, la formule se remet en colonne 3
3. ou à chaque fois qu'on modifie le tableau, la formule est remise en colonne 3

Le code est entièrement dans le module de la feuille "TbPoseur".

Private Sub Worksheet_Change(ByVal Target As Range)
   With Range("a1").ListObject
      If .ListRows.Count > 0 Then
         If Not Intersect(Target, .DataBodyRange) Is Nothing Then
            On Error GoTo Fin
            Application.EnableEvents = False
            .ListColumns(3).DataBodyRange.ClearContents
            .ListColumns(3).DataBodyRange.Formula2R1C1 = "=[@[Prénom Poseur]]&""""&LEFT([@[Nom Poseur]],1)"
         End If
      End If
   End With
Fin:
   Application.EnableEvents = True
End Sub

Sub ViderTableau()
   If Range("a1").ListObject.ListRows.Count > 0 Then Range("a1").ListObject.DataBodyRange.Delete
End Sub