XL 2010 Copier coller une valeur et non la formule

vgendron

XLDnaute Barbatruc

• 16 Février 2017

• #2

Bonjour

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

 

Vote positif 0 Vote négatif

Jacky67

XLDnaute Barbatruc

• 16 Février 2017

• #3

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

 

Vote positif 0 Vote négatif

S

SANDRA2012

XLDnaute Junior

• 16 Février 2017

• #4

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!

 

Vote positif 0 Vote négatif

vgendron

XLDnaute Barbatruc

• 16 Février 2017

• #5

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

 

Vote positif 0 Vote négatif

S

SANDRA2012

XLDnaute Junior

• 16 Février 2017

• #6

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

 

Vote positif 0 Vote négatif