XL 2010 Copier coller une valeur et non la formule

SANDRA2012 · 16 Février 2017

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

vgendron · 16 Février 2017

Bonjour

il faut utiliser le pastespecial: va foir du coté de l'aide, c'est assez bien expliqué avec des exemples

Jacky67 · 16 Février 2017

Bonjour,
Essaye comme ceci

Code:

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

SANDRA2012 · 16 Février 2017

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 · 16 Février 2017

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

SANDRA2012 · 16 Février 2017

J'ai trouvé merci !
du coup voici ma macro

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

End Sub

Bonne journée

XL 2010 Copier coller une valeur et non la formule

SANDRA2012

XLDnaute Junior

vgendron

XLDnaute Barbatruc

Jacky67

XLDnaute Barbatruc

SANDRA2012

XLDnaute Junior

vgendron

XLDnaute Barbatruc

SANDRA2012

XLDnaute Junior

Discussions similaires