Copie d'un tableau structuré dans un autre tableau structuré

Version imprimable

30/01/2020, 09h16
pokypok

Copie d'un tableau structuré dans un autre tableau structuré

Bonjour auriez vous une macro simple pour recopier toutes les cellules d'un tableau structuré dans un autre tableau plus grand ?

tab1 le premier tableau de 10 lignes 20 colonnes

tab_bdd le tableau à remplir 20 colonnes mais beaucoup plus de lignes !

le but étant de copier du tab1 colonne 3 à 20 dans tab_bdd à partir d'une ligne x (ligne vous avez deviné qui va bien sur changer au fur et à mesure que les tableaux vont incrémenter cette bdd)

J'ai regardé certains tutos dont celui ci https://didier-gonard.developpez.com...s-tableau-vba/ mais je me demande s'il est possible de tout faire d'un coup et pas une case par une case...

Merci et bonne journée à vous.
30/01/2020, 11h51
78chris

Bonjour

La ligne x est la fin du tableau ou pas ?

Sinon à préciser...

Ton lien, ancien, ne semble pas traiter les listObjects...
30/01/2020, 12h06
pokypok

Bonjour Chris merci pour ta réponse.

Non le x ne sera pas la dernière linge +1 mais une ligne déterminée selon les besoins

Ce matin je n'ai mis que ce lien mais j'ai aussi activement regardé celui ci https://fauconnier.developpez.com/tu...ux-structures/ mais je n'ai pas trouvé dedans.
30/01/2020, 12h20
huvelles

Une autre question dans le même domaine

Je désire copier une série de cellules contiguës dans une ligne d'un tableau structuré vers un autre tableau.
Je cale sur le "Select".
Je pourrais faire une boucle mais je crois qu'il doit exister un moyen plus direct.
Merci d'avance de votre aide.

Christian

RE

Soit X étant la ligne Excel située dans le tableau au dessus de laquelle les éléments doivent se copier. En fonction de la position du Tableau, le code recalcule X du point de vue du taleau
Le tableau source de la copie a été nommé Source et l'autre Cible (à adapter)
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 Dim Plage As Range Application.ScreenUpdating = False X = 20 'numéro de ligne Excel au dessus de laquelle les lignes doivent se copier Set Plage = [Source].ListObject.DataBodyRange Set Plage = Plage.Offset(0, 3).Resize(, 17) With [Cible].ListObject X = X - .Range.Row For I = 1 To Plage.Rows.Count .ListRows.Add (X) Next I .DataBodyRange.Range(Cells(X, 4), Cells(X + I - 2, 20)) = Plage.Value End With

30/01/2020, 15h22
78chris

BOnjour

Citation:

Envoyé par huvelles

Je désire copier une série de cellules contiguës dans une ligne d'un tableau structuré vers un autre tableau.
Je cale sur le "Select".
Je pourrais faire une boucle mais je crois qu'il doit exister un moyen plus direct.
Merci d'avance de votre aide.

Christian

Tu devrais créer ton propre fil et donner davantage de précisions

De façon générale on n'utilise pas select dans les codes

Un petit exemple que j'utilise, ça copie colonne par colonne d'un tableau vers un autre (brut de pomme)

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
'COPIER DONNEES
'
'Définir n° dernière ligne et colonne de  la base à copier
Dernligne = WB_tiges.Sheets("Liste tiges vrac").Range("A" & Rows.Count).End(xlUp).Row
nb_col_export = WB_tiges.Sheets("Liste tiges vrac").Range("A1").End(xlToRight).Column
'
'
'Copier les colonnes à en-tête identique
 
For no_col_export = 1 To nb_col_export Step 1
 
    nom_col_export = WB_tiges.Sheets("Liste tiges vrac").Cells(1, no_col_export).Value 'Tableau commence ligne 1
 
    For no_col_bdd = 1 To ThisWorkbook.Sheets("Liste tiges").Range("A1").End(xlToRight).Column Step 1
 
        nom_col_bdd_ventes = ThisWorkbook.Sheets("Liste tiges").Cells(1, no_col_bdd).Value
 
        If nom_col_export = nom_col_bdd_ventes Then
            'ThisWorkbook.Sheets("Liste tous produits").ListObjects("Liste_ts_pdts").Range(k + 1, no_col_bdd).Value = WB_export.Sheets(1).ListObjects("Export_ventes").Range(i + 1, no_col_export).Value 'Mettre + 1 car avec cette syntaxe ligne 1 = en-tête
 
            'Copier colonne export de la 2ème à la dernière ligne (données uniquement, sans en-tête : ligne 1 en tete)
            WB_tiges.Activate '!!!! Penser à activer classeur et feuille sinon bug
            WB_tiges.Sheets("Liste tiges vrac").Activate
 
            WB_tiges.Sheets("Liste tiges vrac").Range(Cells(2, no_col_export), Cells(Dernligne, no_col_export)).Copy 'ThisWorkbook.Sheets("Liste tous produits").Cells(2, no_col_bdd) 'Non car coller les valeurs seulement
 
            'Coller dans la colonne de la bdd correspondante à partir de la ligne 2 (données uniquement, sans en-tête)
            ThisWorkbook.Activate '!!!! Penser à activer classeur et feuille sinon bug
            ThisWorkbook.Sheets("Liste tiges").Activate
 
            ThisWorkbook.Sheets("Liste tiges").Cells(2, no_col_bdd).Activate
            ActiveCell.PasteSpecial Paste:=xlPasteValues
 
            Application.CutCopyMode = False 'vider presse papiers
 
            Exit For 'si correspondance trouvée passer à la suivante
        End If
 
    Next no_col_bdd
 
Next no_col_export

Si ça peut te donner des pistes :)

30/01/2020, 16h58
78chris

BOnjour

Quand on manipule des tableaux structurés il est plus que conseillé d'utiliser le modèle objet associé aux Listobjects et non traiter comme une plage

On évite aussi Activate, select

En plus ici la demande était à l'intérieur d'un tableau et à la fin...

Citation:
Envoyé par 78chris
RE

Soit X étant la ligne Excel située dans le tableau au dessus de laquelle les éléments doivent se copier. En fonction de la position du Tableau, le code recalcule X du point de vue du taleau
Le tableau source de la copie a été nommé Source et l'autre Cible (à adapter)
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 Dim Plage As Range Application.ScreenUpdating = False X = 20 'numéro de ligne Excel au dessus de laquelle les lignes doivent se copier Set Plage = [Source].ListObject.DataBodyRange Set Plage = Plage.Offset(0, 3).Resize(, 17) With [Cible].ListObject X = X - .Range.Row For I = 1 To Plage.Rows.Count .ListRows.Add (X) Next I .DataBodyRange.Range(Cells(X, 4), Cells(X + I - 2, 20)) = Plage.Value End With
Super merci ...j'ai eu une journée éreintante du coup je reviendrai plus tard avec des questions histoire que je comprenne bien comment mettre mon hameçon au bout de ma ligne.

Merci beaucoup Chris

30/01/2020, 21h32
OrDonc
Bonsoir…

Tableau Ts dans tableau To à partir de la ligne* 4 (3+1) de ce dernier :
Code:

1 2 3 4 For n = 1 To [Ts].Rows.Count [To].ListObject.ListRows.Add (3 + n) Next [Ts].Copy [To].Item(4, 1)
* je ne suis pas assez doué pour deviner quelles lignes initiales il faudra viser à l’avenir
31/01/2020, 01h11
78chris

RE

Cela copie toutes les colonnes et non 3 à 20 ("le but étant de copier du tab1 colonne 3 à 20")