Microsoft 365 Transformation BDD en tableau à partir de VBA

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 8 Février 2022

• #2

Bonjour Demasc et bienvenu sur XLD,
Auriez vous un petit fichier test anonyme ?
Uniquement une dizaine de ligne de la BDD, et la structure du tableau désiré.
Ce serait infiniment plus simple pour répondre, et pas en dehors de la plaque.

 

Vote positif 0 Vote négatif

D

Demasc

XLDnaute Nouveau

• 8 Février 2022

• #3

Merci Sylvanu,
En voici un exemple

 

Pièces jointes

• BDD pour Tableau.xlsx

  965.5 KB · Affichages: 7

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 8 Février 2022

• #4

Merci. mais que voulez vous obtenir en résultat ?
Car il s'agit déjà d'un tableau. Quelle est la structure du tableau que vous désirez ?

 

Vote positif 0 Vote négatif

D

Demasc

XLDnaute Nouveau

• 8 Février 2022

• #5

Plus clairement :

Sub Macro2()
' Mise sous forme de tableau
Application.CutCopyMode = False
ActiveSheet.ListObjects.Add(xlSrcRange, Range("$A$1:$K$21450"), , xlYes).Name _
= "Tableau1"
Range("Tableau1[#All]").Select
ActiveSheet.ListObjects("Tableau1").TableStyle = "TableStyleLight1"
End Sub

Cliquez pour agrandir...

Lorsque j'enregistre ma macro et effectue la mise sous forme de tableau (Onglet "Accueil" --> "Mettre sous forme de tableau") j'obtiens le programme ci-joint. Le problème étant que j'ai dans ce programme Range("$A$1:$K$21450"). Ors j'aimerais que la Range soit variable car la taille des colonnes et lignes serait amené à changer.

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 8 Février 2022

• #6

Vous pouvez modifier comme suit :

VB:

DL = Range("K65500").End(xlUp).Row
ActiveSheet.ListObjects.Add(xlSrcRange, Range("$A$1:$K$" & DL), , xlYes).Name = "Tableau1"

DL calcule la dernière ligne utilisée.
Il faut prendre la colonne où tout est rempli, j'ai opté pour la colonne K.
Dans votre fichier, on a :
DL=21450, et donc le Range("$A$1:$K$" & DL) vaut Range("$A$1:$K$21450")

 

Vote positif 0 Vote négatif

Solution

D

Demasc

XLDnaute Nouveau

• 8 Février 2022

• #7

Je viens d'essayer, ca fonctionne, merci beaucoup !
Et merci également pour votre réactivité

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 8 Février 2022

• #8

Petite variante si vous n'êtes pas sur du nombre de colonnes :

VB:

Set Plage = [A1].CurrentRegion
ActiveSheet.ListObjects.Add(xlSrcRange, Plage, , xlYes).Name = "Tableau1"

CurrentRegion prend toute la plage jusqu'à la dernière ligne et la dernière colonne.

 

Vote positif 0 Vote négatif