J
julien
Guest
Bonjour,
voila mon code:
----------------------------
Sub reporting()
Dim i, j As Integer
i = 2
j = 1
While Cells(i, 1) <> ""
If Cells(i, 35) = "A" Then
Rows("i:i").Select
Selection.Copy
Sheets("Feuil2").Select
Rows("j:j").Select
ActiveSheet.Paste
Sheets("Feuil1").Select
End If
i = i + 1
j = j + 1
Wend
End Sub
----------------------------------------
excel bloque sur la ligne: Rows("i:i").Select
et marque erreur definie par l'application ou par l'objet?????????
quelqu'un peut me dire pourquoi??
merciii
voila mon code:
----------------------------
Sub reporting()
Dim i, j As Integer
i = 2
j = 1
While Cells(i, 1) <> ""
If Cells(i, 35) = "A" Then
Rows("i:i").Select
Selection.Copy
Sheets("Feuil2").Select
Rows("j:j").Select
ActiveSheet.Paste
Sheets("Feuil1").Select
End If
i = i + 1
j = j + 1
Wend
End Sub
----------------------------------------
excel bloque sur la ligne: Rows("i:i").Select
et marque erreur definie par l'application ou par l'objet?????????
quelqu'un peut me dire pourquoi??
merciii