Rapport de message :*
 

Re: Saisie de nombres

Titre du sujet : Re: Saisie de nombres
par JCGL le 12/04/2009 11:36:41

Bonjour à tous,

Peux-tu essayer avec mon fichier ?

Tu as mis :

Option Explicit
Sub Bouton1_Clic()
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

Tu as deux appels de Macro : une par Bouton1_Clic et une par Archivage
Dans ton classeur, tu n'as pas de feuille nommée 'Archives'

Fais un essai avec mon classeur et si la présentation ne te convient pas, nous adapterons le code à ton classeur

A+ à tous