copi de ligne dans une autre feuille..

[Chris]

Bonjour,

Comment fait-on par le biais d'une macro, pour copier toute les lignes dont la cellule "a" est superieur à "18" dans une autre feuille ?

je precise bien que c'est la ligne entiere que je veux copier....

Si quelqu'un avit la solution à mon problème....se serrai sympathique !!

Merci à tous.

Chris.

 

[Robert]

Salut Chris, salut le forum,

Je suis étonné que personne n’ait encore répondu à ta question. Alors je m’y colle même si je sais que je ne propose pas la macro la plus efficace. Mais bon… Elle fonctionne. Il te faudra sans doute l’adapter à ton tableau au niveau des Range et/ou de la feuille. Dans l’exemple j’ai copié de la feuille 1 sur la feuille 2 à partir de la cellule A1.

Public Sub copie()
Application.ScreenUpdating = False
For Each cel In Range("A1:A" & Range("A65536").End(xlUp).Row)
If cel.Value > 18 Then
cel.EntireRow.Copy
ActiveWorkbook.Sheets(2).Select
If ActiveSheet.Range("A1") = "" Then
ActiveSheet.Range("A1").Select
Else
ActiveSheet.Range("A" & Range("A65536").End(xlUp).Row + 1).Select
End If
ActiveSheet.Paste
ActiveWorkbook.Sheets(1).Select
End If
Next
Application.ScreenUpdating = True
End Sub

À plus,

Robert