Problème copier/coller valeur [résolu]

[Sabrhm]

Bonjour à tous,

Je débute sur VBA et j'ai un problème avec macro que vous trouverez ci-dessous. Je souhaiterais juste copier/coller valeur mais je n'arrive pas trouve le bon code.

Dim Lig&, DerL&
DerL = Worksheets("Historique_contrôle").Range("A" & Rows.Count).End(3).Row
For Lig = 1 To 100
If Worksheets("Articles").Cells(Lig, 3) = "OK" Then
Worksheets("Articles").Rows(Lig).Copy Worksheets("Historique_contrôle").Range("A" & DerL + 1)
DerL = DerL + 1
End If
Next

Merci d'avance pour votre aide

 

[Bougla972]

Bonjour Sabrhm,

Il te suffit de mettre ceci après ta ligne Worksheets("Articles")...Copy:

.Range("A" & DerL).PasteSpecial (xlPasteValues)

 

[Sabrhm]

Bonjour Bougla972, Malheureusement ça ne fonctionne pas.

Dim Lig&, DerL&
DerL = Worksheets("Historique_contrôle").Range("A" & Rows.Count).End(3).Row
For Lig = 1 To 100
If Worksheets("Articles").Cells(Lig, 3) = "OK" Then
Worksheets("Articles").Rows(Lig).Copy Worksheets("Historique_contrôle").Range("A" & DerL + 1)
Range("A" & DerL).PasteSpecial (xlPasteValues)
DerL = DerL + 1
End If
Next

 

[Bougla972]

Sabrhm,

Modifie la ligne de copy en supprimant ce qui suit le terme "Copy"

 

[Sabrhm]

Parfait ça marche, merci beaucoup.

Cordialement