affichage de lignes sur autre feuil

[Nicolas PR]

bonjour a tous

j'ai un probleme que jarrive pas resoudre

j'ai une feuille par exemple feuil1 avec des informations sur plusieurs colones et lignes
je voudrais que lavant dernier ligne et la dernier s'affiche sur la feuil2

grace a l'aide de phibo qui ma donnée cette info j'ai premier solution mais cela fonction que sur la colonne A

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Der As Long
Der = Range("A65536").End(xlUp).Row
[Feuil2].Cells(1, 1) = [Feuil1].Cells(Der - 1, 1)
[Feuil2].Cells(2, 1) = [Feuil1].Cells(Der, 1)
End Sub
comment faire pour que cela fonction sur plusieur colonne de A a J par exemple

merci pour toute information

 

[Pascal76]

Salut

Essaies

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Der As Long
Der = Range("A65536").End(xlUp).Row
For x = 1 To 10
[Feuil2].Cells(1, x) = [Feuil1].Cells(Der - 1, x)
[Feuil2].Cells(2, x) = [Feuil1].Cells(Der, x)
Next
End Sub

Bon courage

Pascal

 

[Nicolas pr]

tu es genial cela fonction impec
merci beaucoup Pascal

))))