copier coller en valeurs

Y compris Power BI, Power Query et toute autre question en lien avec Excel
m
marith
Nouveau venu
Nouveau venu
Messages : 3
Inscrit le : 6 mai 2015
Version d'Excel : 2010

Message par marith » 12 mai 2015, 16:13

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
Avatar du membre
James007
Fanatique d'Excel
Fanatique d'Excel
Messages : 12'007
Appréciations reçues : 414
Inscrit le : 30 août 2014
Version d'Excel : 2007 EN

Message par James007 » 12 mai 2015, 16:18

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
A+

:)

Quand on n’a qu’un marteau, tous les problèmes deviennent des clous…
m
marith
Nouveau venu
Nouveau venu
Messages : 3
Inscrit le : 6 mai 2015
Version d'Excel : 2010

Message par marith » 12 mai 2015, 16:25

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

Merci
donn.xlsm
(37.07 Kio) Téléchargé 8 fois
Avatar du membre
James007
Fanatique d'Excel
Fanatique d'Excel
Messages : 12'007
Appréciations reçues : 414
Inscrit le : 30 août 2014
Version d'Excel : 2007 EN

Message par James007 » 12 mai 2015, 16:39

Re,

Ci-joint ton fichier test ... avec la macro corrigée ... :wink:
donn.xlsm
(34.99 Kio) Téléchargé 13 fois
A+

:)

Quand on n’a qu’un marteau, tous les problèmes deviennent des clous…
Répondre Sujet précédentSujet suivant
  • Sujets similaires
    Réponses
    Vues
    Dernier message