Excel 2016 VBA userform - copier tableau structuré

Bonjour le forum,

Confronté à un code réfractaire, je me permets de solliciter votre aide.

Le bouton <ajouter> d'un userform permet dispatcher les informations d'un tableau structuré selon un critère (libellé) dans différentes feuilles. Ensuite, un tableau structuré (TS) est crée pour chaque nouvelle feuille.

Le problème est que le TS est crée seulement dans la première ligne du tableau et ne se propage pas aux lignes qui vont s'insérer en-dessous.

Vous trouverez, en pièce jointe, un extrait de mon projet ainsi que des explications complémentaires. Je remercie d'avance toute éventuelle aide du forum. Jorge.

Bonjour,

J'ai un peu de mal à trouver dans votre code l'endroit où vous créez vos tableaux structurés.

Pour info, la méthode "standard" pour redimensionner un TS à une plage de valeur + longue/courte est celle-ci :

Sub example()
  With Sheet1.ListObjects("Table1")
    .Resize .DataBodyRange.CurrentRegion
  End With
End Sub

Ca fonctionne très bien tant que le TS ne touche pas d'autres cellules… Sinon, c'est un peu plus compliqué.

Bonjour saboh12617, le forum,

Merci pour ta réponse.

D'après de ce que j'ai compris, le tableau est crée en copiant la feuille <Modele> (qui contient un TS) et ensuite renommé par la procédure suivante

        '* nomme le nouveau tableau structuré
        With ActiveSheet
            NomOnglet = .Range("B2").Value
            .Name = NomOnglet
            .ListObjects(1).Name = "TS_" & NomOnglet
            '* .ListObjects(1).Resize .DataBodyRange.CurrentRegion  '<<<<<
            .Range("A1").Select
        End With

J'ai essayé, sans succès, d'adapter votre code.

Essayez plutot ceci, le With ne correspond pas pour le DataBodyRange autrement

        With ActiveSheet
            NomOnglet = .Range("B2").Value
            .Name = NomOnglet
            .ListObjects(1).Name = "TS_" & NomOnglet
            .ListObjects(1).Resize .ListObjects(1).DataBodyRange.CurrentRegion  '<<<<<
            .Range("A1").Select
        End With

Pile dans le mille!!

Merci beaucoup et cordiales salutations. Jorge

Content d'aider. Merci pour votre retour, bonne fin de journée.