Rapport de message :*
 

Re: Saisie de nombres

Titre du sujet : Re: Saisie de nombres
par JCGL le 12/04/2009 10:01:12

Bonjour à tous,

Un essai avec possibilité d'effacer les données à archiver en enlevant le ' devant :
    '   .Range("C5:J5").ClearContents
 

Utilisation de :

Option Explicit

Sub Archivage()
Application.ScreenUpdating = 0
    With Sheets("Archives")
        .Range("C5:J5").Copy
        .Range("C65536").End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlPasteValues
        .Range("A65536").End(xlUp).Offset(1, 0) = Date
    Application.CutCopyMode = False
     '   .Range("C5:J5").ClearContents
        .Range("C5").Select
    End With
End Sub



A+ à tous