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 :

[BENNASR]

bonjour cousin
la suppression se faite à l'inverse..de la dernière ligne à la première ligne step -1

Code :

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

For i = der_lig1 To 2 step -1

[flooki]

re bonjour
le tableau a été supprimer entierement

[Menhir]

supprimer des lignes qui ne satisfer pas une condition

Il faudrait que tu en dises plus sur cette condition pour savoir si tu l'as codée correctement.

La préconisation de BENNASR ( ) est judicieuse et nécessaire mais je ne pense pas qu'elle soit suffisante.
La scrutation de haut en bas cause des "oubli" dans la suppression mais elle ne cause pas de suppression en plus.
Il est donc probable qu'il y ait aussi un problème dans la condition telle que tu l'as codée.

[flooki]

CONDITIONS : les cellule de la premiere collone sa valeur doit débuter par "k" et contnir le "0" a la 4eme position
le reste doit supprimer

[BENNASR]

débuter par "k"

Code :

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

Left(Cells(i, 1), 1) = "K"

[flooki]

merci bennasr
ta une aidé pour l'autre condition ?

[BENNASR]

encore de prob après correction de ton code ??

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 = der_lig1 To 2 step-1
 If Cells(i, 1).Value <> "???0*" And Left(Cells(i, 1), 1)  <> "k*" Then
    Cells(i, 1).EntireRow.Delete
 
 End If
Next i
End Sub

[Menhir]

CONDITIONS : les cellule de la premiere collone sa valeur doit débuter par "k" et contnir le "0" a la 4eme position
le reste doit supprimer

Code :

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

If Left(Cells(I, 1), 1) <> "k" Or  Mid(Cells(I, 1), 4, 1) <> "0" Then Rows(I).Delete

[OrDonc]

Bonjour

Dans la fenêtre des codes de la feuille traitée

Code :

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

1
2
3
4
5
6
7
Sub Vide()
    With Range([A2], Cells(Rows.Count, 1).End(xlUp))
        .Replace "K??0*", ""
        On Error Resume Next                   ‘pas de cas voulus
        .SpecialCells(4).EntireRow.Delete      ‘lignes vides
    End With
End Sub

Nota : ce sont des lignes entières qui sont supprimées. Avec un Tableau on pourrait ne supprimer que les lignes de celui-ci (en gardant les données présentes dans les autres colonnes)
La plage étant intégrée dans un tableau (nommé ici Tbo)

Code :

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

1
2
3
4
5
6
7
Sub VideTableau()
    With [Tbo].Columns(1)
        .Replace "K??0*", ""
        On Error Resume Next
        [Tbo].SpecialCells(4).Rows.Delete
    End With
End Sub