E Egruat XLDnaute Occasionnel 30 Août 2012 #1 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
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
K Kobaya XLDnaute Occasionnel 30 Août 2012 #2 Re : Copier, se déplacer et coller Bonjour Egruat, Essaie ceci : Code: 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 Vote positif 0 Vote négatif
Re : Copier, se déplacer et coller Bonjour Egruat, Essaie ceci : Code: 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