Copier coller

[onaghi]

Bonjour le forum,

j'ai besoin d'une macro qui me permet de copier les données de la feuille n°1(sauf l'entête) et les coller dans la feuille n°3 en ecrasant les données de cette dernières (sauf l'entête).
vous trouverez en pièce jointe ujn fichier excel.

Merci de votre aide

[porcinet82]

Salut,

Le code suivant devrait faire l'affaire :

Sub test()
With Sheets("Feuil3")
    .Rows("2:" & .Range("A65536").End(xlUp).Row).Clear
End With
With Sheets("Feuil1")
    .Rows("2:" & .Range("A65536").End(xlUp).Row).Copy Destination:=Sheets("Feuil3").Rows("2:" & .Range("A65536").End(xlUp).Row)
End With
End Sub

@+

[bhbh]

Bonjour
salut porcinet

une autre approche :

Sub copier()
Dim DerLig&
DerLig = Sheets("Feuil1").[A65000].End(xlUp).Row
    Sheets("Feuil1").Range("A1:T" & DerLig).AdvancedFilter Action:=xlFilterCopy, _
        CopyToRange:=Sheets("Feuil3").Range("A1:T1"), Unique:=False
End Sub

[Robert]

Bonjour Onhagi, bonjour le forum,

essaie comme ça :

 
Sub Macro1()
Dim p1 As Range 'déclare la variable p1
Dim p2 As Range 'déclare la variable p1
 
Set p1 = Sheets("Feuil1").Range("A1").CurrentRegion 'définit la plage p1
Set p1 = p1.Offset(1, 0).Resize(p1.Rows.Count - 1) 'redéfinit la plage p1 (sans l'en tête)
 
Set p2 = Sheets("Feuil3").Range("A1").CurrentRegion 'définit la plage p2
Set p2 = p2.Offset(1, 0).Resize(p2.Rows.Count - 1) 'redéfinit la plage p2 (sans l'en tête)
 
p2.Clear 'efface la plage p2
p1.Copy Sheets("feuil3").Range("A2") 'copiela plage p1
 
End Sub

Édition :

Oooops pas frais.... Bonjour Romain, Bhbh.

[onaghi]

Génial, merci pour votre aide