Copie resultat de cellules

[pizzaman]

Bonjour à tous

J'aurais besoin de modifier ce code

Feuil3.Range("A3:G3").Copy Feuil4.Range("A65000").End(xlUp).Offset(1, 0)

Dans A3 j'ai ecrit =somme(A4:20) et il m'affiche donc 6
Mais quand je copie avec ce code il me copie =somme(A4:20) et non 6

Comment faire pour qu'il copie la valeur et non la formule?

Ci joint le fichier exemple

Bonne journée,
A Bientot

 

[JCGL]

Re : Copie resultat de cellules

Bonjour à tous,

Peux-tu essayer avec :

Private Sub CommandButton1_Click()
Feuil3.Range("A3:G3").Copy
Feuil4.Range("A65536").End(xlUp).Offset(1, 0).PasteSpecial (xlPasteValues)
End Sub

A+ à tous

 

[pizzaman]

Re : Copie resultat de cellules

Bonjour jcgl

impec, ca marche nikel

Merci à toi