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
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