recherche lignes

[gerardd3617]

bonsoir
je cherche à copier les lignes de la feuille1,dans la feuille2,si le chiffre de la colonne B est > à 0
merci

 

[kjin]

Re : recherche lignes

Bonsoir,

Sub CopieLigne()
For Each cel In Range("A6:A" & Range("A65000").End(xlUp).Row)
    If cel.Offset(0, 1) > 0 Then
    Range(Cells(cel.Row, 1), Cells(cel.Row, 256).End(xlToLeft)).Copy _
                        Sheets("Feuil2").Range("A65000").End(xlUp).Offset(1, 0)
    End If
Next
End Sub

 

[gerardd3617]

Re : recherche lignes

bonsoir
merci Kjibn ça marche bien
mais j'aimerais que le bouton soit sur la feuille2
gege

 

[gerardd3617]

Re : recherche lignes

merci jean
c'est parfait mais encore une chose si c'est possible.
je voudrais que la copie se fasse de A à AO car la suite ne m'interesse pas

 

[gerardd3617]

Re : recherche lignes

bonsoir Jean-Michel
j'ai testé et tout marche bien
merci Jean-Michel et Kjin
PS à quoi sert le 0 dans la formule
If cel.Offset(0, 1) > 0 Then