[XL-2010] Supprimer des lignes [Résolu]

[fthouret]

Bonjour,

Après quelques recherches et copiés/collés j'ai réussi à faire ces lignes de VBA :

Code :

1
2
3
4
5
6
 
Sub SupTelFixes()
For i = 2 To ActiveSheet.UsedRange.Rows.Count Step 1
    If Not (Cells(i, 4) Like "06*" Or Cells(i, 5) Like "06*" Or Cells(i, 6) Like "06*") Then Rows(i).Delete Rows.e
Next
End Sub

Comme vous le constatez ça permet de supprimer les lignes dont au moins une des colonnes 4, 5 et 6 ne commencent pas par 06.

Mon problème est simple : lorsque je lance la macro, le résultat contient toujours des lignes qui auraient dû être supprimées... je dois la lancer 5 ou 6 fois de suite (le nombre est variable suivant le fichier de base) pour que la liste soit épurée des lignes ne comportant aucun tel portable...

Une idée de ce qui se passe et de la manière de le corriger ?

Merci !

[ZebreLoup]

Quand tu supprimes par exemple la ligne 6, la ligne 7 devient la ligne 6 et la boucle va chercher la ligne 7 (qui est l'ancienne ligne 8). Du coup, le test n'a pas été fait sur l'ex-ligne 7.
C'est une peu confus, mais je te propose autre chose

Tout simplement

Code :

1
2
3
4
5
Sub SupTelFixes()
For i = ActiveSheet.UsedRange.Rows.Count To 2 Step -1
    If Not (Cells(i, 4) Like "06*" Or Cells(i, 5) Like "06*" Or Cells(i, 6) Like "06*") Then Rows(i).Delete Rows.e
Next
End Sub

[mercatog]

problème récurrent
pour supprimer, commence toujours du bas en remontant

Code :

1
2
3
4
5
6
7
Sub SupTelFixes()
Dim i as long
 
For i = ActiveSheet.UsedRange.Rows.Count To 2 Step -1
    If Not (Cells(i, 4) Like "06*" Or Cells(i, 5) Like "06*" Or Cells(i, 6) Like "06*") Then Rows(i).Delete
Next i
End Sub

[Thordek]

Salut,

Juste une petite idée, a la place de faire de 1 a n, fait de n à 1.

[fthouret]

haaaa merci, "vous m'avez sauvé ma vie" !!!

enfin j'ai pas encore testé... mais je gage que c'est bon, je suspectais bien un pb comme l'a décris ZebreLoup !

EDIT : donc en effet, ça marche trèèèèèèès bien. Merci pour le temps que je gagne désormais !!! MERCI !