Modifier macro suivant critére

Bonjour le forum

J'ai fait une macro qui recopie des données de la feuil1 a celle grille3.

Je ne prends que les lignes dont la valeur en colonne O est égal ou supérieur a 350, içi dans le fichier c'est les lignes B3:O19,

mais elle peut changer(B3:O5, B3:O20 ou autre).

Comment faut-il l'inscrire dans la macro pour qu'elle ne prenne que les lignes dont la valeur en colonne O est égal ou supérieur a 350.

merci

Bonjour

a voir

Sub Test()
Feuil1.Select
Application.ScreenUpdating = False
T = 1
    For L = 3 To Range("O" & Rows.Count).End(xlUp).Row
        If Range("O" & L).Value >= 350 Then
            Range("B" & L & ":O" & L).Copy
            Feuil2.Range("A" & T).PasteSpecial xlPasteValues
            T = T + 1
        End If
    Next L
 Application.CutCopyMode = False
End Sub

A+

Maurice

Bonjour archer

Merci pour ta réponse, c'est parfait.

J'ai voulu rajouter "vligne" pour que les prochaines données s"ajoutent a la suite mais j"ai un message

" Sub ou fonction non définie"

Feuil1.Select
Application.ScreenUpdating = False
T = 1
    For L = 3 To Range("O" & Rows.Count).End(xlUp).Row
        If Range("O" & L).Value >= 350 Then
            Range("B" & L & ":O" & L).Copy
    vligne = vligne("65536").End(xlUp).Row
      vligne = vligne + 1
            Feuil2.Range("A" & T).PasteSpecial xlPasteValues
            T = T + 1
        End If
    Next L
 Application.CutCopyMode = False

    Sheets("Feuil1").Select
    Range("A10").Select
End Sub

Merci

a+

Bonjour

je pense que de changer la valeur du T sufit

A voir

Sub Test()
Dim T&, L&
Feuil1.Select
Application.ScreenUpdating = False
T = Feuil2.Range("A" & Rows.Count).End(xlUp).Row + 1
    For L = 3 To Range("O" & Rows.Count).End(xlUp).Row
        If Range("O" & L).Value >= 350 Then
            Range("B" & L & ":O" & L).Copy
            Feuil2.Range("A" & T).PasteSpecial xlPasteValues
            T = T + 1
        End If
    Next L
 Application.CutCopyMode = False
 Range("A10").Select
End Sub

A+

Maurice

re

Merci ,c'est bon

merci encore