Copier 2 tableaux en 1

Bonjour,

Après avoir fait mes petites recherches je n'arrive pas à résoudre mon problème donc je me tourne vers vous.

Voila je voudrais copier les données d'un tableau en feuil1 et celle en feuil2 et les coller automatiquement en feuil3

Ces deux tableaux ont exactement le même format et s'actualise car ils sont liés à une requête.

J'ai fais ceci :

Sub dsfg()
Sheets("Feuil1").Select
Columns("A:N").Select
Selection.Copy
Sheets("Feuil3").Select
Columns("A:N").Select
ActiveSheet.Paste
End Sub

Je n'arrive pas a coller la feuil1 sous la feuil2 dans le tableau feuil3

Si quelqu'un peut me filer un coup de pate

Merci!

Bonjour

Copier des colonnes sous des colonnes pas facile facile

Essayes en notant bien les coordonnées de tes tableaux

Vérifies bien la position du 2ème tableau lors de la copie

Sub dsfg()
  Sheets("Feuil1").Range("A1:N25").Copy Destination:=Sheets("Feuil3").Range("A1")
  Sheets("Feuil2").Range("A1:N25").Copy Destination:=Sheets("Feuil3").Range("A26")
End Sub

Re,

Le truc c'est que mon nombre de ligne que ce soit dans le tableau feuil1 ou feuil2 est variable. Du coup je me retrouve avec des trous en feuil3

Bonjour

Avec cette version des tableaux peuvent avoir un nombre de ligne différent

Option Explicit

Sub dsfg()
Dim Lg As Long
Dim Lg1 As Long
  With Sheets("Feuil1")
    Lg1 = .Columns("A:N").Find("*", , , , xlByRows, xlPrevious).Row
    .Range("A1:N" & Lg1).Copy Destination:=Sheets("Feuil3").Range("A1")
  End With
  With Sheets("Feuil2")
    Lg = .Columns("A:N").Find("*", , , , xlByRows, xlPrevious).Row
    .Range("A1:N" & Lg).Copy Destination:=Sheets("Feuil3").Range("A" & Lg1 + 1)
  End With
End Sub

Yes!!!!! ça marche nickel! Merci! 8)