EXCEL/VBA copier/coller

Résolu
Bonjour,

Je désire réalsier une macro pour copier les données d'une feuille (Feuil3) sur une autre feuille (BASE) à partir de la première ligne vide, j'ai essayé avec cette macro mais je bloque étant débutante, la cellule sélectionnée n'est pas celle de la première ligne vide mais celle de la dernière ligne remplie. De plus je n'arrive pas à coller ce que j'ai sélectionné.

Voici ce que j'ai fait:

Sheets("Feuil3").Select
Cells.Select
Application.CutCopyMode = False
Selection.Copy
Sheets("BASE").Select
Range("A1").Select
Selection.End(xlDown).Select
derniereligne = ActiveCell.Row + 1
derniereligne.Select
ActiveSheet.Paste

Merci d'avance pour votre aide.
Configuration: Windows XP
Internet Explorer 6.0

2 réponses

  1. Contributeur
    bonjour

    Tu peux essayer comme ceci :
    Public Sub copie()
    With Sheets("BASE")
        Sheets("Feuil3").UsedRange.Copy _
        Destination:=.Cells(.Cells(65536, 1).End(xlUp).Row + 1, 1)
        Application.CutCopyMode = False
    End With
    End Sub