Discussion :

[rch05]

Bonjour,

J'aurais besoin de vous pour résoudre mon code VBA pour la méthode PasteSpecial...
Chaque fois j'ai l'erreur 1004.
Ci-dessous le code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 
    col = 21
For i = 2 To 71
    num = Range("AP" & i).Value
    If num >= 6 Then Range("Y" & i).Copy
    Range("W" & col).PasteSpecial Operation:=xlNone
    col = col + 1
Next i

Merci d'avance de votre aide

[mercatog]

Essaies ceci (directement)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
col = 21
For i = 2 To 71
    num = Range("AP" & i).Value
    If num >= 6 Then
        Range("W" & col).Value = Range("Y" & i).Value
        col = col + 1
    End If
Next i

ou si tu tiens au pastspecial

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
col = 21
For i = 2 To 71
    num = Range("AP" & i).Value
    If num >= 6 Then
        Range("Y" & i).Copy
        Range("W" & col).PasteSpecial Operation:=xlPasteSpecialOperationNone
        col = col + 1
        Application.CutCopyMode = False
    End If
Next i

[rch05]

Bonjour mercatog,

C'est super

Merci de ton aide