Copier Coller dans un tableau

[Photosol]

Bonjour,

J'ai un petit problème avec un copier coller que je voudrais insérer dans une colonne d'un tableau à l'aide d'une macro.

Il faudrait que la macro aille copier une valeur qui est dans une feuille,
pour ensuite le coller dans la première cellule vide de la colonne d'un tableau.

je n'arrive pas à faire intégrer à la macro le fait qu'il faut qu'elle copie cette valeur dans le tableau.

PS: En Pj le Fichier

Quelqu'un a t'il une solution?
Merci!

 

[Victor21]

Re : Copier Coller dans un tableau

Bonjour, Photosol.

Connaissez-vous l'enregistreur de macro ?
Il me donne ce code (à nettoyer).

Sub Macro1()
'
' Macro1 Macro
' Macro enregistrée le 15/11/2011 par PB
'

'
    Range("C3:D3").Select
    Selection.Copy
    Sheets("Feuil2").Select
    Range("B3:C3").Select
    Selection.Insert Shift:=xlDown
    Selection.CurrentRegion.Select
    Application.CutCopyMode = False
    Selection.Sort Key1:=Range("B3"), Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal
End Sub

 

[iliess]

Re : Copier Coller dans un tableau

bonjour
voici le meilleur code que je le essayé

Sub copie()
T = Sheets("feuil1").Range("C3:D3").Value
With Sheets("feuil2")
    dl = .Range("A65000").End(xlUp).Row + 1
    .Cells(dl, 1).Resize(UBound(T, 1), UBound(T, 2)) = T
End With
End Sub

 

[Photosol]

Re : Copier Coller dans un tableau

Parfait! merci beaucoup à vous deux.