bonjour le forum,
je souhaite copier les lignes d'un tableau placé dans la feuille "Les Entrées", vers un autre tableau situé dans la feuille "2009".
Voici le code que j'ai essayé :
Private Sub transfert_Click()
Dim LASTLIG As Integer
Dim lastlig1 As Integer
Dim l As Long 'n° ligne
Dim c As Long 'n° colonne
Do Until Sheets("Les Entrées").Range("A6") = "" 'début boucle
LASTLIG = Sheets("Les Entrées").[tableau].Find("*", LookIn:=xlValues, SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
With Sheets("Les Entrées")
ActiveWorkbook.Sheets(1).Range("A" & LASTLIG) = Sheets("Les Entrées").Range("A" & LASTLIG)
ActiveWorkbook.Sheets(1).Range("B" & LASTLIG) = Sheets("Les Entrées").Range("B" & LASTLIG)
ActiveWorkbook.Sheets(1).Range("K" & LASTLIG) = Sheets("Les Entrées").Range("K" & LASTLIG)
ActiveWorkbook.Sheets(1).Range("I" & LASTLIG) = Sheets("Les Entrées").Range("I" & LASTLIG)
ActiveWorkbook.Sheets(1).Range("L" & LASTLIG) = Sheets("Les Entrées").Range("L" & LASTLIG)
ActiveWorkbook.Sheets(1).Range("M" & LASTLIG) = Sheets("Les Entrées").Range("M" & LASTLIG)
ActiveWorkbook.Sheets(1).Range("T" & LASTLIG) = Sheets("Les Entrées").Range("T" & LASTLIG)
ActiveWorkbook.Sheets(1).Range("V" & LASTLIG) = Sheets("Les Entrées").Range("V" & LASTLIG)
End With
Sheets("Les Entrées").[tableau].Find("*", LookIn:=xlValues, SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Value = ""
Loop 'fin boucle
Application.ScreenUpdating = True
virements.Value = 0
prélèvements.Value = 0
End Sub
Malheureusement, ce code ne me copie que la colonne A et la colonne L.
Quelles corrections dois-je apporter pour qu'il me copie toutes les lignes pleines du tableau de la feuille "Les Entrées" ?
Par avance merci.
Vince.