Discussion :

[clemroussi]

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 :

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

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 ,

[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 )

[clemroussi]

Bonjour,

Merci pour votre aide,

Le code donné est le suivant :

Code :

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

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

[BENNASR]

à tester :

Code :

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

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

[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,

[BENNASR]

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

[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