Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Macros et VBA Excel Discussion :

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


Sujet :

Macros et VBA Excel

  1. #1
    Futur Membre du Club
    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 !

  2. #2
    Expert éminent
    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

  3. #3
    Futur Membre du Club
    Haha, j'avais complètement oublié l'existence de cette fonction merci beaucoup !!

  4. #4
    Membre expert
    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
    --------------------------------------------------------------*****----------------------------------------------------------------------------
    Bonne Continuation & Plein Succès
    Notre seul pouvoir véritable consiste à aider autrui avec modestie
    ______________________________________________________
    Pour dire merci, cliquer sur et quand la discussion est résolue, penser à cliquer sur le bouton

  5. #5
    Membre expert
    bonjour joe.levrai
    désolé ... j'ai pas vu ta réponse .... bonne journée
    --------------------------------------------------------------*****----------------------------------------------------------------------------
    Bonne Continuation & Plein Succès
    Notre seul pouvoir véritable consiste à aider autrui avec modestie
    ______________________________________________________
    Pour dire merci, cliquer sur et quand la discussion est résolue, penser à cliquer sur le bouton

  6. #6
    Expert éminent
    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

  7. #7
    Futur Membre du Club
    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<img src="images/smilies/icon_biggrin.gif" border="0" alt="" title=":D" class="inlineimg" />L"), , xlYes).Name = _
            "Tableau11"
        Range("Tableau11[#All]").Select
        ActiveSheet.ListObjects("Tableau11").Name = "MonTableau"


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

  8. #8
    Responsable
    Office & Excel

    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.
    "Plus les hommes seront éclairés, plus ils seront libres" (Voltaire)
    ---------------
    Mes remarques et critiques sont purement techniques. Ne les prenez jamais pour des attaques personnelles...
    Une fois pour toutes, je donne mon avis. Je ne vais pas le répéter à chaque message...
    Si je propose une solution générique sur votre solution spécifique, c'est parce que, fainéant de nature, je privilégie le réutilisable...
    Le VBA ne palliera jamais une mauvaise conception de classeur ou un manque de connaissances des outils natifs d'Excel...
    Ce ne sont pas des bonnes pratiques parce que ce sont les miennes, ce sont les miennes parce que ce sont des bonnes pratiques
    VBA pour Excel? Pensez D'ABORD en EXCEL avant de penser en VBA...
    ---------------

  9. #9
    Responsable
    Office & Excel

    Citation Envoyé par -TheSpaceWalker- Voir le message
    [...]
    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
    "Plus les hommes seront éclairés, plus ils seront libres" (Voltaire)
    ---------------
    Mes remarques et critiques sont purement techniques. Ne les prenez jamais pour des attaques personnelles...
    Une fois pour toutes, je donne mon avis. Je ne vais pas le répéter à chaque message...
    Si je propose une solution générique sur votre solution spécifique, c'est parce que, fainéant de nature, je privilégie le réutilisable...
    Le VBA ne palliera jamais une mauvaise conception de classeur ou un manque de connaissances des outils natifs d'Excel...
    Ce ne sont pas des bonnes pratiques parce que ce sont les miennes, ce sont les miennes parce que ce sont des bonnes pratiques
    VBA pour Excel? Pensez D'ABORD en EXCEL avant de penser en VBA...
    ---------------

  10. #10
    Futur Membre du Club
    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 !!

###raw>template_hook.ano_emploi###