Code suppression lignes si contenue cellules inferieur a 100

Hello,

je bloque pour un truc tout bête dans mon projet VBA

Le probleme est le suivant : j ai 3 colonne remplis de valeurs, si parmi la colonne Q une valeur est inferieur ou egale a 999 je veux supprimer la ligne corrspondante a cette valeur et repeter l operation pour chaque ligne.

voice mon code qui ne fonctionne pas

Dim T As Range

Dim SHOW As Range

Set SHOW = Worksheets("Sheet1").Range("Q2:Q350")

Dim i As Integer

For Each T In SHOW

For i = 1 To 350

If T.Value <= 999 Then

T.Rows.Delete shift:=xlUp

End If

Next i

Next T

End Sub

Pouvez vous m aider svp ?

merci d avance

Bonjour,

Sub Test()
Dim i As Integer
    For i = 350 To 2 Step -1
        If Worksheets("Sheet1").Range("Q" & i).Value <= 999 Then Rows(i).Delete
    Next i
End Sub

A+

Bonjour,

Essaye comme ça :

Sub test()
    Dim i As Integer
    For i = 350 To 2 Step -1
        If Range("Q" & i) <= 999 Then
            Rows(i).EntireRow.Delete
        End If
    Next i
End Sub

MERCI CA MARCHE SUPER