Re : Transferer un tableau dans une page archive..
ré
Staple1600
J'ai un bug...
J'ai mis un bouton qui se trouve dans ma barre ..
Sub Macro1()
Private Sub CommandButton1_Click()
Dim dl&, f As Worksheet: Set f = Sheets("Saisies")
Application.ScreenUpdating = False
f.Range(f.Cells(3, 2), f.Cells(3, 3)(8)).Copy
With Sheets("Archivage")
* * .Cells(Rows.Count, 3).End(3)(2).PasteSpecial xlValues, xlNone, False, True
* * dl = .Cells(Rows.Count, 3).End(3)(-0).Row
* * .Cells(dl, 1) = Date: .Cells(dl, 2) = "Course " & f.[E2].Text
ceci et en rouge dans le texte...
Merci
Guido
End With
Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub