Copier coller en valeurs

Bonjour,

je souhaiterai copier coller la valeur d'une ligne selon une condition dans une autre feuille. J'ai mis en place le petit programme suivant qui fonctionne mais le problème c'est qu'il me colle les formules aussi, alors qu'ils me faut juste les valeurs.

(je débute en vba et j'aimerai bien savoir s'il y'a une fonction qui permet de copier coller en valeur). Merci pour votre aide.

Sub Macro2()

Dim DerLig As Long

Dim DerLigneF3 As Long

DerLig = Range("a" & Rows.Count).End(xlUp).Row

For Ligne = DerLig To 5 Step - 1

If Sheets("ac").Range("f" & Ligne).Value > 4 Then

DerLigneF3 = Sheets("Sheet3").Cells(Rows.Count, "A").End(xlUp).Row +1

Sheets("ac").Range("f" & Ligne).EntireRow.Copy Destination:=Sheets("Sheet3").Cells(DerLigneF3, "A")

End If

Next

End Sub

Bonjour,

Si le Nom de tes onglets "ac" et "Sheet3" sont justes ...tu peux essayer...

Sheets("ac").Range("F" & Ligne).Value = Sheets("Sheet3").Range("A" & DerLigneF3).Value

J'ai modifié la formule comme vous m'avez indiqué mais ça ne fonctionne pas. macro3 dans le fichier ci-joint.

Merci

9donn.xlsm (37.07 Ko)

Re,

Ci-joint ton fichier test ... avec la macro corrigée ...

16donn.xlsm (34.99 Ko)
Rechercher des sujets similaires à "copier coller valeurs"