Microsoft 365 Redimensionner un tableau structuré Excel en VBA

[iliess]

Bonsoir
J'utilise le code suivant pour redimensionner un tableau structuré Excel en VBA.

Sub Redimensionner()
ActiveSheet.ListObjects("Tableau1").Unlist
Cells.ClearFormats
ActiveSheet.ListObjects.Add(xlSrcRange, Range("A4:12"), , xlYes).Name = "Tableau1"
Range("A1:I3").Clear
End Sub

En augmentant le nombre de lignes (445621 lignes), le temps d'exécution du code augmente considérablement. J'essaie donc d'éviter .Unlist et remplacez le code par .Resize

Sub Macro1()
    ActiveSheet.ListObjects("Tableau1").Resize Range("$A$4:$I$12")
End Sub

Erreur d'exécution '1004': le code ca marche pas

Cordialement

 

[Dranreb]

Bonsoir.
Voyez si ce poste peut résoudre votre problème

Microsoft 365 - Placer un tableau VBA dans un tableau structuré Excel

Bonjour Voici le code suivant qui place un tableau VBA (Arr) dans un tableau structuré (Tableau 2). Le code fonctionne très bien, mais si j'ajoute la ligne Total dans le tableau structuré Tableau2, la structure du tableau2 est mal structurée. Sub test() Dim Arr As Variant Dim Sh1 As Worksheet...

excel-downloads.com

 

[TooFatBoy]

Bonjour,

J'utilise le code suivant pour redimensionner un tableau structuré Excel en VBA.

N'est-il pas possible de simplement vider le tableau et ensuite d'écrire dedans ?


Mais en fait, pourquoi veux-tu "redimensionner" le TS ?

 

[Gégé-45550]

Mais en fait, pourquoi veux-tu "redimensionner" le TS ?

Bonsoir,
C'est la bonne question que pose l'ami TooFatBoy.
Soit on a besoin d'y ajouter ou de supprimer des lignes et ce n'est pas la bonne commande, soit on veut le vider complètement et ce n'est toujours pas la bonne commande ... et si par hasard on cherche à ajouter des lignes vides, c'est une très mauvaise idée.
Cordialement

 

[iliess]

bonsoir, Mr @Dranreb
ce n'est pas la même question

 

[TooFatBoy]

Soit on a besoin d'y ajouter ou de supprimer des lignes et ce n'est pas la bonne commande, soit on veut le vider complètement et ce n'est toujours pas la bonne commande ... et si par hasard on cherche à ajouter des lignes vides, c'est une très mauvaise idée.

Je le soupçonne de vouloir le vider pour ensuite y importer des données venant d'un autre classeur. 😉

 

[iliess]

Bonsoir Mr @TooFatBoy , Mr @Gégé-45550
je vous explique mieux
après l'ouverture d'un grand fichier Excel par Power Query voici le poste :https://excel-downloads.com/threads/ouvrir-un-fichier-excel-rapidement-en-vba.20082355/post-20638684

voici résultat du fichier

voici résultat souhaité

 

[mapomme]

Bonsoir,

Le code fonctionne très bien et très rapidement chez moi à la condition que :

Les en-têtes de votre TS "tableau1" sont en ligne 1.

Cette instruction ne fonctionne pas :
ActiveSheet.ListObjects("Tableau1").Resize Range("A4:I12") <-- vous changez de ligne les en-têtes

Celle-ci fonctionne car on ne change pas de ligne l'emplacement des en-têtes:
ActiveSheet.ListObjects("Tableau1").Resize Range("A1:I12") <-- vous conservez la ligne d'en-têtes à sa place

 

[TooFatBoy]

après l'ouverture d'un grand fichier Excel par Power Query

voici résultat du fichier

voici résultat souhaité

Peut-être faudrait-il importer les données en 2 voire 3 étapes (en-tête de feuille, en-tête du TS, données du TS) ?

Mais pas sûr que ça change grand chose... 🙁

 

[iliess]

Bonsoir, Mr @mapomme Grâce à votre réponse, j'ai une idée très facile.
-1 Changer les en tête par les valeurs de A4 à I4
-2 insérer 3 ligne
-3 copie les lignes 2 et 3 du tableau 1.

voici le code finale

Sub traitement()
Dim ShAuxi As Worksheet
Set ShAuxi = Sheets("Feuil1")
With ShAuxi
    .Range("A1:I1").Value = .Range("A4:I4").Value
    .Rows("1:3").Insert Shift:=xlDown
    .Range("A1:I2").Value = .Range("A5:I6").Value
    .ListObjects("Tableau1").DataBodyRange.Rows("1:3").Delete
   
End With
End Sub

 

[iliess]

Avant

Apres

 

[iliess]

Merci beaucoup,
et bonne nuit