Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Microsoft 365 Redimensionner un tableau structuré Excel en VBA

I

iliess

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

VB: 
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

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

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

Cordialement
 

Pièces jointes

  • Redimensioner un tableau.xlsm
    17.3 KB · Affichages: 3
Solution
I
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
VB: 
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
Trier par date Trier par votes

Dranreb

XLDnaute Barbatruc
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
 
Vote positif 0 Vote négatif

Gégé-45550

XLDnaute Accro
TooFatBoy à dit:
Mais en fait, pourquoi veux-tu "redimensionner" le TS ?
Cliquez pour agrandir...
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
 
Vote positif 0 Vote négatif

TooFatBoy

XLDnaute Barbatruc
Je le soupçonne de vouloir le vider pour ensuite y importer des données venant d'un autre classeur.
 
Vote positif 0 Vote négatif

mapomme

XLDnaute Barbatruc
Supporter XLD
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
 
Dernière édition:
Vote positif 0 Vote négatif
I

iliess

XLDnaute Occasionnel
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
VB: 
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
 
Vote positif 0 Vote négatif
Solution
Identifiez-vous ou inscrivez-vous pour participer.

Discussions similaires

I
  • Résolu(e)
Microsoft 365 Placer un tableau VBA dans un tableau structuré Excel
Réponses
14
Affichages
281
mapomme
Y
  • Question
Microsoft 365 récupérer données de tableau structuré sur une plage
Réponses
2
Affichages
286
jpb388
A
  • Question
XL 2016 Déterminer le N° de ligne dans un tableau structuré
2
Réponses
26
Affichages
1 K
Phil69970
V
  • Question
XL 2016 Donner le nom du fichier à mon tableau mis en forme
Réponses
2
Affichages
313
vivi21
V
B
  • Question
XL 2021 Transfert tableau structuré EXCEL à un endroit précis de WORD
Réponses
8
Affichages
367
job75
M
  • Question
XL 2019 Optimisation VBA
Réponses
1
Affichages
288
vgendron
I
  • Question
Microsoft 365 SOMMEPROD en vba excel
Réponses
12
Affichages
288
iliess
I
  • Question
XL 2013 Réduire un code
Réponses
0
Affichages
264
chaelie2015
D
  • Question
XL 2019 Redimensionner et supprimer des colonnes tableau (VBA)
Réponses
4
Affichages
1 K
sylvanu
R
  • Résolu(e)
XL 2016 Supprimer une ligne d'un tableau structuré
Réponses
2
Affichages
727
ReneDav14000
R
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…