macro copie cellule

[sebastien74370]

Bonjour,
Je suis sous excel, dans feuil 1 j'ai un tableau que je renseigne manuellement, Je voudrai un macro qui va copier la dernière ligne de la feuil 1 à la dernière ligne de la feuil 2. Sauf que dans la feuil 2 il y a que 3 colonnes à prendre en compte.
Merci.

 

[VDAVID]

Re : macro copie cellule

Bonjour Sébastien74370,

Un exemple parmis d'autres :

Sub copier()

    With Sheets("Feuil1") 'Action avec la feuille de tableau source
    x = Range("A65536").End(xlUp).Row ' x récupère la dernière ligne non-vide du tableau source
    End With
    
    With Sheets("Feuil2")   'Nom de la feuille du tableau de destination
    Absc = .Range("A65536").End(xlUp).Row + 1 ' Récupération de la dernière ligne non-vide du tableau de destination [Feuil2] + 1
    .Range("A" & Absc).Value = Sheets("Feuil1").Range("A" & x).Value 'Copie de la colonne A
    .Range("B" & Absc).Value = Sheets("Feuil1").Range("C" & x).Value 'Copie de la colonne C
    .Range("C" & Absc).Value = Sheets("Feuil1").Range("E" & x).Value 'Copie de la colonne E
    End With
    
End Sub

Bonne journée !