Copier, se déplacer et coller

[Egruat]

Bonjour,

Je souhaiterai sous conditions:
- copier la formule de deux cellules
- me déplacer
- coller

Voici mon code, il y a une petite erreur... Merci de m'aider !

Sub test()
Dim j As Long

j = 2
For Each j In Range("H:H")

Cells((j + 1), 8).Select
If Selection.Value > 0 Then
Range("I2:J2").Select
Selection.Copy

Cells((j + 1), 9).Select
ActiveSheet.Paste

End If
j = j + 1
Next


End Sub

 

[Kobaya]

Re : Copier, se déplacer et coller

Bonjour Egruat,

Essaie ceci :

Sub test()
    Dim j As Long
    
    For j = 1 To Range("H:H").Rows.Count
        Cells(j, 8).Select
        If Selection.Value > 0 Then
            Range("I2:J2").Select
            Selection.Copy
            
            Cells(j, 9).Select
            ActiveSheet.Paste
        End If
    Next
End Sub