Discussion :

[flooki]

bonjour
j'ai realiser un programme qui supprimer des lignes qui ne satisfer pas une condition , mais le programme ne marche pas bien car il supprime des lignes désirer et laisse des lignes indisérer .voila le programme

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Sub supp()
Dim der_lig1 As Integer
der_lig1 = Range("A65536").End(xlUp).Row
For i = 2 To der_lig1
 If Cells(i, 1).Value <> "???0*" And Cells(i, 1).Value <> "k*" Then
    Cells(i, 1).EntireRow.Delete
 
 End If
Next
End Sub

voila l'exemple :