Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

affichage de lignes sur autre feuil

N

Nicolas PR

Guest
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
 
P

Pascal76

Guest
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
 

Discussions similaires

Réponses
12
Affichages
430
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…