Discussion :

[Alaindhu]

Bonjour,

J'ai une difficulté que je n'arrive pas à résoudre seul ou en consultant les forums et je pense que c'est tout bête.
J'ai le code suivant qui doit copier coller une base à la suite d'une base dans un autre onglet.
Or, j'ai des formules automatiques dans l'autre onglet car c'est un tableau (mise sous forme en tableau). Le problème c'est que le dit tableau ne prend pas en compte mon coller et donc les formules ne "descendent " pas automatiquement...
Avez vous des idées svp?

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
Public Sub CopyData()
Dim ws As Worksheet, ws2 As Worksheet
Dim lRow As Long
Dim Rng As Range
 
    Application.ScreenUpdating = False
 
    Set ws = Worksheets("Liste des besoins")
    Set ws2 = Worksheets("Suivi")
 
    lRow = ws2.Cells(Rows.Count, 1).End(xlUp).Row + 1
    Set Rng = ws.Cells(1).CurrentRegion
    Rng.Offset(2, 0).Resize(Rng.Rows.Count - 2, Rng.Columns.Count).Copy
    ws2.Cells(lRow, 8).PasteSpecial xlPasteAll
    Application.CutCopyMode = False
 
    Set Rng = Nothing
    Set ws2 = Nothing: Set ws = Nothing
 
End Sub

merci pour toute l'aide que vous pourrez m'apporter!

[davidbd]

Bonjour,

Vous pourriez essayer de copier-coller votre base une ligne la fois, au lieu d'utiliser un Range.

Il vous faudrait imbriquer 2 boucles: Boucle1 pour changer de ligne et Boucle2 pour changer de colonne.
Je n'ai pas d'exemple à vous fournir en ce moment, le bout de code que j'avais utilisé se trouve sur un autre ordinateur.

En espérant que ça puisse vous éclairer.

[Philippe Tulliez]

Bonjour,
Si la liste de donnée "cible" est un tableau (ListObject), Il n'y a aucune raison qu'au moment de la copie les formules présentes dans ce tableau ne s'étendent pas automatiquement.
Cependant, pour que l'on puisse t'aider, il faudrait savoir

• si l'ordre des colonnes à copier dans la plage "source" est identique à l'ordre des colonnes de la table "cible"
• la ligne des totaux du tableau est-elle affichée ?