EXCEL/VBA copier/coller Résolu/Fermé

Question

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.

gbinforme · Answer

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

lili2173 · Answer

Bonjour,

merci pour l'aide ça fonctionne.

EXCEL/VBA copier/coller

2 réponses

Discussions similaires