si je comprends bien tu veux copier les données des cellules B à G d'une ligne dans une autre ligne d'une autre feuille en fonction d'une condition particulière (b < AF4).
Si c'est bien ça, alors tente plutot voir (c'est de tête alors si ça bug, sorry) :
sub ellipse()
i=1
lig=1
do until sheets("feuil1").range("b" & i).formular1c1 <> ""
if sheets("feuil1").range("b" & i) < sheets("feuil1").range("af4").value then
lig = lig +1
Sheets("essai").Rows(lig).FormulaR1C1 = Workbooks("book1").Sheets("sheet1").Rows(i).FormulaR1C1
end if
i = i + 1
loop
end sub
Dis moi si ok ou pas.
Good luck
-------------------------------
Réponse au message :
-------------------------------
Slt,
j'ai un gros problème:
Avec le programme suivant j'essaie de copier uniquement les lignes qui m'interresse dans un tableau et les remettre dans un nouveau tableau sur une autre page:
Sub Ellipse1_QuandClic()
Dim cell As Range
Dim lig As Variant
lig = 10
Worksheets("Feuil1").Activate
For Each cell In Worksheets("Feuil1").Range("B4:B642")
If cell.Value < Sheets("Feuil1").Range("AF4").Value Then
cell.Select
cell.Activate
lig = lig + 1
Worksheets("essai").Range(Cells(lig, 1), Cells(lig, 6)).Value = ActiveCell.EntireRow.Offset(0, 0).Range("B1:G1").Value
End If
Next
End Sub
Je crois que la plage indiquer :
Range(Cells(lig, 1), Cells(lig, 6))
n'est pas correct.
Je ne sais comment te remercier
Quecks.