XL 2010 Copier coller une valeur et non la formule

SANDRA2012

XLDnaute Junior
Bonjour à tous,

Je souhaite copier coller les cellules D1 à G20 de ma feuille "calcul" à la première ligne vide de ma feuille "archive".
Voici la macro que j'ai mise en place

Sub archive()

With Worksheets("archive")
Worksheets("calcul").Range("D1:G20").Copy .Cells(.Rows.Count, "A").End(xlUp)(2)

End With
End Sub

Elle fonctionne parfaitement à une exception près : j'ai une formule en colonne G et je souhaiterais copier uniquement la valeur, je n'arrive à intégrer le copier valeur.
Si l 'un de vous peut m'aider se serai vraiment sympa!
Bonne journée
 

SANDRA2012

XLDnaute Junior
Merci pour vos réponses , je ne trouve pas l'aide sur le pastespecial, je peux la trouver ou car je ne comprend pas le fonctionnement de cette fonction, à chaque fois je bloque.
Pour la macro elle ne fonctionne pas car elle ne prend pas en compte mon format
j'ai essayé avec
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Selection.PasteSpecial Paste:=xlPasteFormat, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
à la fin mais ça ne fonctionne pas non plus!
 

vgendron

XLDnaute Barbatruc
Avec juste ces deux lignes normalement,

VB:
Sub archive()
    Worksheets("calcul").Range("D1:G20").Copy
    Worksheets("Archive").Cells(Rows.Count, "A").End(xlUp)(2).PasteSpecial (xlPasteValues)
End Sub

pour obtenir l'aide VBA
tu surlignes PasteSpecial, et touche F1
 

Discussions similaires

Réponses
7
Affichages
163

Statistiques des forums

Discussions
311 720
Messages
2 081 892
Membres
101 831
dernier inscrit
gillec