suppression de lignes

[loulou]

bonsoir à tous

je veux supprimer des lignes dont la colonne C contient des codes commençant par 30. la colonne va de la ligne 2 à 310 .
comment selectionner la ou les lignes qui contiennent le code 30?
dans la macro ci dessous, la 1ére ligne est toujours supprimée!!!

Sub Supprime30()

Dim PCGard As Integer, x As Integer
Dim PC As Long, i As Long
Dim MaPlage As Range

PC = Range("C3").End(xlDown).Row
PCGard = 30
Set MaPlage = Range("A2:H2")
For i = 2 To PC
On Error Resume Next
x = Cells(i, 3).Value \ 1000 'Dpt
If x = PCGard Then
MaPlage.Cells().EntireRow.Select = x
MaPlage.Cells(1).EntireRow.Delete
End If
Next
End Sub


merci d'avance

 

[Michel_M]

Salut Loulou et everybody


au lieu de

x = Cells(i, 3).Value \ 1000 'Dpt
If x = PCGard Then
MaPlage.Cells().EntireRow.Select = x
MaPlage.Cells(1).EntireRow.Delete
End If

essaies cette bidouille

'si la partie ENTIERE du nombre/1000= 30 alors
' détruit la ligne
if PCGARD=ENT(cells(i,3)/1000) then
rows(i).delete
End if

Bonne soirée
Michel