VBA copier des cellules

Bonjour,

je cherche à copier des cellules d'une feulle1 vers une ligne dans une autre feuille2 (en cherchant la ligne suivante libre)

J'ai utiisé la formule suivante :

- Sub a()

Dim Lg%

Lg = Sheets("Fichier Clients").Range("A65536").End(xlUp).Row + 1

Sheets("Saisie").Range("c2").Copy Destination:=Sheets("Fichier Clients").Range("a" & Lg)

End Sub

Avec cette vba les formules sont copiées; je cherche à copier le résultat et non la formule.

j'ai essayé de remplacer la ligne vba (ce-dessus) par :

- Sheets("Saisie").Range("c2").Value = Sheets("Fichier Clients").Range("a" & Lg).Value

Avec cette vba la formule de la cellule sourse disparée.

Comment faut-il procéder ?

Merci

Balkana

Bonjour Balkana le forum

a+

papou

Sub a()
    Dim Lg%
    Lg = Sheets("Fichier Clients").Range("A65536").End(xlUp).Row + 1
    Sheets("Saisie").Range("c2").Copy
    Sheets("Fichier Clients").Range("a" & Lg).PasteSpecial , Paste:=xlPasteValues
End Sub

Bonjour,

Merci à Paritec

Mon problème est réglé

Balkana