copie sans format

[tinet]

Bonjour le forum

Je cherche à copier uniquement la valeur sur ce code

DerL = Range("L65536").End(xlUp).Row
Range("L10:L" & DerL).Copy Feuil1.Range("A5")

 

[Lone-wolf]

Bonjour tinet

Option Explicit

Sub Copier()
Dim DerL As Long, plage As Range

    With ActiveSheet
        DerL = .Range("L" & Rows.Count).End(xlUp).Row
        Set plage = .Range("L10:L" & DerL)
        plage.Copy
    End With

    With Feuil1
        .Range("A5").PasteSpecial Paste:=xlPasteValues
        Application.CutCopyMode = 0
    End With
End Sub

 

[DoubleZero]

Bonjour, tinet, Lne-wolf, le Forum,

Ou bien :

Option Explicit
Sub CommandButton1_Click()
    Dim DerL As Long
    DerL = Range("L65536").End(xlUp).Row
    Range("L10:L" & DerL).Copy
    Feuil1.Range("A5").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False
End Sub

A bientôt

 

[youky(BJ)]

Bonjour à tous,
Aller une 3ème solution
DerL-5 est le décalage 10-5
Bruno

DerL = Range("L65536").End(xlUp).Row
Feuil1.Range("A5:A" & DerL - 5).Value = Range("L10:L" & DerL).Value

 

[Lone-wolf]

Bonsoir DoubleZero , Bruno

Vous arrêtez de me copier!! C'est FUR SANTR à la fin!

 

[tinet]

Bonsoir à tous,

Merci pour les exemples.