Création d'un tableau à partir d'une base de données

Bonjour à tous,

Après une extraction de différents fichiers en VBA j'obtiens une base de données dans une feuille allant de A à H mais n'ayant pas de longueur précise. (Entre 10 et 50 en général)

Je me demandais si il était possible de transformer cette base de données en tableau à la fin de ma macro ??

Si en plus je pouvais donner un nom à ce tableau ce serait parfait !

Je me suis renseigné sur le net mais je n'est pas trouvé grand chose ...

J'ai aussi essayé quelques trucs mais ça n'a pas été concluant ...

Merci d'avance pour vos réponse !

Bonjour,

tu parles de convertir la plage de données en tableau structuré ?

Utilises l'enregistreur de macro, fait la conversion manuellement et renomme le tableau, 95% du code te sera fourni par Excel :D

Haha, j'avais complètement oublié l'existence de cette fonction merci beaucoup !!

bonjour hugo
démarre l'enregistreur automatique du macro et fais l'opération manuellement
arrête l'enregistrement et tu aura un code sur plateau
tu aura qq chose comme ça :

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Sub Macro1() ' ' Macro1 Macro '   ' Range("A1:C14").Select ActiveSheet.ListObjects.Add(xlSrcRange, Range("$A$1:$C$14"), , xlYes).Name = _ "zboubinette" Range("zboubinette[#All]").Select End Sub

---

il suffit de modifier 14 dans l'exemple par la dernière ligne non vide

bonjour joe.levrai
désolé ... j'ai pas vu ta réponse .... bonne journée

Bonjour BENNASR

pour remplacer

Code:

---

Range("A1:C14")

---

par du générique

Code:

---

Range("A1").CurrentRegion

---

Ainsi, on choppe l'ensemble de la plage contigüe :mrgreen:

Yes mais j'encontre un petit problème ...

Comme ma plage de valeur est variable, je ne peux pas utiliser l'expression :

Code:

---

Range("$A$1:$C$14"),

---

J'ai donc essaye d'implanter une variable DL qui sera la dernière ligne de mon tableau mais ça n'a pas fonctionner ...

Code:

---

1 2 3 4 5 6 7 8 9

Sheets("Feuille1").Select DL = Cells(Application.Rows.Count, 1).End(xlUp).Row Range("A1:H1").Select Range(Selection, Selection.End(xlDown)).Select ActiveSheet.ListObjects.Add(xlSrcRange, Range("A1:DL"), , xlYes).Name = _ "Tableau11" Range("Tableau11[#All]").Select ActiveSheet.ListObjects("Tableau11").Name = "MonTableau"

---

Auriez-vous un conseil pour me débugger svp ??

Salut.

Normalement, ton tableau structuré devrait préexister à l'import des données. L'idée est que l'on plante le décor (création du TS vide, création des graphiques, TCD et autres, ...) et on importe les données dans la structure existante. De ce fait, la création d'un tableau structuré par macro est un chose qui n'est donc jamais utile.

Tu ne donnes pas ta version de l'outil, mais depuis 2010, tu peux probablement privilégier Power Query pour importer tes données. A l'import, PQ créera le tableau structuré nécessaire.

Citation:

---

Envoyé par -TheSpaceWalker-

[...]
Auriez-vous un conseil pour me débugger svp ??

---

Joe t'a donné la réponse au message #6 en te proposant d'utiliser CurrentRegion

Code:

---

1 2 3 4 5 6

Sub test() Dim lo As ListObject   Set lo = Feuil1.ListObjects.Add(xlSrcRange, Feuil1.Range("d5").CurrentRegion, , xlYes) lo.Name = "t_Données" End Sub

---

Merci beaucoup !!

En effet, j'avais bien lu sa réponse mais elle n'avait pas été concluante à cause d'une petite erreur de frappe de ma part !

C'est Exactement ce qu'il me fallait merci à tous !!