Copie valeur : pastespecial

Bonjours a tous, nouveau sur le forum et novice en vba,

je cherche a résoudre ce code.

celui ci répond a mes besoins mais je souhaiterai copier que les valeurs.

si quelqu'un me m'aider.

cordialement.

Dim ws_feuil1 As Worksheet
Dim ws_feuil2 As Worksheet
Dim der_ligne_2 As Long

Set ws_feuil1 = Worksheets(1)
Set ws_feuil2 = Worksheets(2)
der_ligne_2 = ws_feuil2.Cells(Rows.Count, 1).End(xlUp).Row

ws_feuil1.Range(ws_feuil1.Cells(40, 23), ws_feuil1.Cells(18, 32)).Copy ws_feuil2.Cells(der_ligne_2 + 2, 1)

Bonjour et bienvenu sur le forum

Un fichier est TOUJOURS le bienvenu

A+ François

Cells(40, 23), ws_feuil1.Cells(18, 32)).18,23 et 40,32 serait plus approprié

Bonjour

Bonjour à tous

Essaie comme ça :

Sub ess()

    Dim ws_feuil1 As Worksheet
    Dim ws_feuil2 As Worksheet
    Dim der_ligne_2 As Long

    Set ws_feuil1 = Worksheets(1)
    Set ws_feuil2 = Worksheets(2)
    der_ligne_2 = ws_feuil2.Cells(Rows.Count, 1).End(xlUp).Row

    ws_feuil1.Range(ws_feuil1.Cells(40, 23), ws_feuil1.Cells(18, 32)).Copy
    ws_feuil2.Cells(der_ligne_2 + 2, 1).PasteSpecial xlPasteValues

End Sub

Alors ?

Bye !

Bonjour,

Pour faire bref :

Sub simple()
Dim LR As Long
Dim Arr
Arr = Worksheets(1).Range(Worksheets(1).Cells(40, 23), Worksheets(1).Cells(18, 32))
LR = (Worksheets(2).Cells(Rows.Count, 1).End(xlUp).Row) + 2
With Worksheets(1)
Worksheets(2).Cells(LR, 1).Resize(UBound(Arr), UBound(Arr, 2)) = .Range(.Cells(40, 23), .Cells(18, 32)).Value
End With
End Sub

EDIT : Sorry, Bjr lafoule !

A+

génial,

merci à tous de vos réponses,

la proposition de Galopins01 répond parfaitement à ce que je recherchais. génial !!!!!

encore merci a tous !!!!!!!

Hum...

A+