Transformation données en tableau structuré via macro

Version imprimable

Bonjour,

Sur un fichier excel, j'ai une macro qui me permet de copié collé les données issues d'un autre fichier excel. Ce que je souhaiterais faire à l'intérieur de cette même macro est de créer directement un tableau structuré avec cette même macro lors du collage. Cela est il réalisable ?

Ma macro est actuellement la suivante :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
 
Sub Rectangleàcoinsarrondis1_Cliquer()
 
 
Dim objOuvrir As FileDialog
Dim objFichiers As FileDialogSelectedItems
Dim wbsource As Workbook, wbdest As Workbook
 
Set objOuvrir = Application.FileDialog(msoFileDialogOpen)
 
With objOuvrir 'Affiche la fenêtre "Ouvrir"
    .Filters.Clear 'Efface les filtres existants.
    .Filters.Add "Classeurs Excel", "*.xls; *.xlsx; *.xlsm" 'Définit une liste de filtres pour le champ "Type de fichiers".
    .Show
    Set objFichiers = .SelectedItems 'Définit les fichiers sélectionnés
End With
 
Worksheets("Armoires").Range("A2:BZ5000").ClearContents
Worksheets("Supports + Foyers").Range("A2:FA5000").ClearContents
 
 
If Not objFichiers.Count = 1 Then Exit Sub 'On sort si aucun fichier n'a été sélectionné
 
Application.ScreenUpdating = False
 
Set wbdest = ThisWorkbook 'classeur exécutant où sera collée la feuille
Set wbsource = Workbooks.Open(objFichiers(1))
 
wbsource.Sheets("Armoire").UsedRange.Copy Destination:=wbdest.Sheets("Armoires").Range("A1") '<<<<ADAPTER
wbsource.Sheets("Support + Foyer").UsedRange.Copy Destination:=wbdest.Sheets("Supports + Foyers").Range("A1")
wbsource.Close False
 
Application.ScreenUpdating = True
 
Dim pl As Range, sh As Worksheet
    For Each sh In Worksheets(Array("Armoires", "Supports + Foyers"))
        Set pl = sh.Cells.SpecialCells(xlCellTypeConstants, xlTextValues)
        If Not pl Is Nothing Then
            Cells(Rows.Count, Columns.Count).Copy
            pl.PasteSpecial Paste:=xlPasteAll, Operation:=xlAdd
        End If
    Next sh
 
Fin:
End Sub

Merci à vous ,

27/10/2020, 09h45
BENNASR

bonjour
Démarre l'enregistreur automatique du macro et faite manuellement l'opération , arrêtes l'enregistreur et tu aura votre code sur plateau (moyennant quelques modifications )
27/10/2020, 10h06
clemroussi
Bonjour,

Merci pour votre aide,

Le code donné est le suivant :
Code:

1 2 3 4 5 6 7 Sub Macro1() Range("A2:BQ24").Select ActiveSheet.ListObjects.Add(xlSrcRange, Range("$A$2:$BQ$23"), , xlYes).Name = _ "Tableau1" End Sub
Ce que je veux maintenant c'est appliqué cela pour une feuille de calcul voulu. De plus, mon tableau commence toujours en A2 mais ne finit pas a chaque fois en BQ ni en 23. Comment gérer cela pour que sa fonctionne pour tous les tableaux ?

Merci à vous,

cdlt

à tester :

Code:

1
2
3
4
5
6
Sub test()
  Dim lo As ListObject
 On Error Resume Next
  Set lo = Feuil1.ListObjects.Add(xlSrcRange, Feuil1.Range("A2").CurrentRegion, , xlYes)
  lo.Name = "t_MesDonnées"
End Sub

27/10/2020, 11h08
clemroussi

Bonjour,

Cela fonctionne parfaitement mais uniquement pour la première colonne de la feuille 2 ! comment l'appliquer à l'intégralité des colonnes et sur n'importe quel feuille?

Merci beaucoup !!

Cdlt,
27/10/2020, 11h25
BENNASR

Citation:

uniquement pour la première colonne de la feuille 2

capture écran de tes données de départ sans données confidentielles et explique ce que tu veux faire
NB : pourquoi insérer avec un code VBA un tableau alors que cette opération se fait qu'une seule fois !!! j'ai lu sur ce forum qu'il est recommandé d'éviter ce traitement normalement inutile
27/10/2020, 11h32
clemroussi

2 pièce(s) jointe(s)

Bonjour,

Je vous joins mes deux fichiers pour que vous compreniez mieu. Le fichier test enregistreur va récupérer les données ( de fichier test) et les collés dans l'onglet 2 et 3 du fichier test enregistreur. Ceci est fonctionnel. Ce que je veux, c'est que ces données soit directement mise sous forme de tableau. Sachant que d'un fichier à un autre( que l'on copie et colle), il y a plus ou moin de ligne ou de colones

Pièce jointe 582332
Pièce jointe 582334

as tu remplacer feuil1 par l'onglet concerné ainsi ? :

Code:

1
2
3
4
Dim lo As ListObject
 On Error Resume Next
  Set lo = Sheets("Armoires").ListObjects.Add(xlSrcRange, Sheets("Armoires").Range("A2").CurrentRegion, , xlYes)
  lo.Name = "t_MesDonnées"

27/10/2020, 14h58
Pierre Fauconnier

Salut.

Ca n'a pour moi que peu de sens de transformer une plage en tableau structuré. De mon point de vue, les bonnes pratiques amènent à créer un décor (tableaux structurés, graphiques, TCD, Power Query, etc) et d'importer dans ce décor les données à traiter. Créer le décor en VBA est une perte de temps et une source d'erreurs et de lourdeurs dans le classeur.

Dans les faits, transformer une plage en tableau structuré n'est donc jamais pertinent*. Tu simplifieras grandement ton approche VBA en travaillant comme je le préconise.

* Il ne faut jamais dire jamais et il y a donc probablement l'une ou l'autre situation rarissime où il est nécessaire de pratiquer comme tu le souhaites, mais perso, je n'ai pas rencontré ce besoin depuis que les tableaux structurés existent. Je doute donc fortement que ta situation soit l'exception à la règle ;)