archivage

[m2b]

bonjour a tous,
je voulais archiver des données et j'ai eu le code suivant:

"Sub Archivage()
Dim DerLig As Integer
DerLig = Sheets("Archives").Range("A65536").End(xlUp).Row
Sheets("Résultat").Range("A1:T5").Copy Destination:=Sheets("Archives").Range("A" & DerLig + 1)
End Sub"

le problème qui se pose est le suivant:
mes cellules copiées sont des formules, la macro utilisée copie les formules et non pas les valeurs.
je ne sais pas koi faire.
merci de vos précieux conseils.
merci.

 

[Baside]

Re : archivage

Bonjour le Forum,

Peut on voir un embryon de fichier, histoire de concrétiser le problème et ce que tu souhaites faire.

Amicalement, Hervé.

 

[Lord Nelson]

Re : archivage

Salut,

Essaie un copie/collage spécial valeurs, ça ressemblerait à :

Sub Archivage()
Dim DerLig As Integer
Sheets("Résultat").Range("A1:T5").Copy
DerLig = Sheets("Archives").Range("A65536").End(xlUp).Row
Sheets("Archives").Range("A" & DerLig + 1).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False

End Sub

A+
Horatio

 

[Catrice]

Re : archivage

Bonjour,

Essaye ceci :

Sub Archivage()
Dim DerLig As Integer
DerLig = Sheets("Archives").Range("A65536").End(xlUp).Row
Sheets("Résultat").Range("A1:T5").Copy
Sheets("Archives").Range("A" & DerLig + 1).PasteSpecial Paste:=xlPasteValues
End Sub

ou

Sub Archivage()
Sheets("Résultat").Range("A1:T5").Copy
Sheets("Archives").Range("A65536").End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlPasteValues
End Sub

 

[m2b]

Re : archivage

je vous remercie tous de vos précieux conseils,
je vais essayer celà
encore une fois mille merci.
A+