Collage spécial

[duduss38]

Bonjour,

il faudrait que je transforme le copier coller effectué ci dessous par un collage spécial valeur.
Car il m'indique #REF! dans les nouvelles cellules
Mais je n'y arrive pas.
Si quelqu'un pouvait m'aider

Cordialement

Private Sub CommandButton1_Click()

Dim NumLig As Long
Dim J As Long

With Sheets("Extract") ' A partir de la feuille source
For J = 5 To .Range("K" & Rows.Count).End(xlUp).Row
If .Range("K" & J) >= 1 Then
NumLig = NumLig + 1
.Range("K" & J).Copy Sheets("EXTRACTION").Range("A" & NumLig)
End If
Next J
End With

End Sub

 

[Robert]

Re : Collage spécial

Bonjour Duduss, bonjour le forum,

Peut-être comme ça (non testé) :

Private Sub CommandButton1_Click()
Dim NumLig As Long
Dim J As Long

With Sheets("Extract") ' A partir de la feuille source
    For J = 5 To .Range("K" & Rows.Count).End(xlUp).Row
        If .Range("K" & J) >= 1 Then
            NumLig = NumLig + 1
            Sheets("EXTRACTION").Range("A" & NumLig).Value = .Range("K" & J).Value
        End If
    Next J
End With
End Sub

 

[jp14]

Re : Collage spécial

Bonjour
Bonjour Robert

Le plus simple pour trouver le code correspondant est d'utiliser l'enregistreur de macro.
A modifier

   Range("A1:A2").Copy
    Sheets("Feuil2").Range("E1").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False

JP

 

[duduss38]

Re : Collage spécial

Ok merci tout fonctionne correctement