Discussion :

[-TheSpaceWalker-]

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 !

[joe.levrai]

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

[-TheSpaceWalker-]

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

[BENNASR]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[BENNASR]

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

[joe.levrai]

Bonjour BENNASR

pour remplacer

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Range("A1:C14")

par du générique

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Range("A1").CurrentRegion

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

[-TheSpaceWalker-]

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

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 ??

[Pierre Fauconnier]

[...]
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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Pierre Fauconnier]

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.