L
loulou
Guest
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
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