EXCEL/VBA copier/coller

Résolu
lili2173 Messages postés 5 Date d'inscription   Statut Membre Dernière intervention   -  
lili2173 Messages postés 5 Date d'inscription   Statut Membre Dernière intervention   -
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.
A voir également:

2 réponses

gbinforme Messages postés 14946 Date d'inscription   Statut Contributeur Dernière intervention   4 724
 
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
0
lili2173 Messages postés 5 Date d'inscription   Statut Membre Dernière intervention  
 
Bonjour,

merci pour l'aide ça fonctionne.
0