VBA - Supprimer des cellules

Bonjour/Bonsoir.

J'ai un problème concernant la suppression de cellules selon une condition.
Les cellules qui contiennent "TEST" sont bien supprimées... SAUF celles où "TEST" est sur plusieurs lignes à la suite (par exemple la ligne 3 et 4, le "TEST" de la ligne 4 passera à la trappe étant donné que c'est devenu la ligne 3 et qu'on est passé à la ligne 4... Hmm 8O)

Voici mon code :

Code:

---

1 2 3 4 5

Sub supp_test() For I = 2 To 15 If UCase(Cells(I, 1).Value) Like "*TEST*" Then Cells(I, 1).Delete shift:=xlUp Next End Sub

---

J'ai donc comme solution de lancer la boucle deux fois de suite. De cette façon, je toperais l'ensemble des cellules qui contiennent "TEST" et elles seront supprimées.

Malgré tout, existe-il un moyen de réaliser cette étape dans la même boucle ?


Par avance, merci à vous,
Bonne soirée :)

Bonjour,

lorsqu'on fait des suppressions de cellules, on recommande plutot de faire des boucles decroissante ("en partant d'en bas")

Code:

---

1 2 3 4 5

Sub supp_test() For I = 15 To 2 Step -1 If UCase(Cells(I, 1).Value) Like "*TEST*" Then Cells(I, 1).Delete shift:=xlUp Next End Sub

---

Bonjour,

oui, on supprime toujours en commençant par la fin

c'est de la logique pure

si tu supprimes la ligne 2 ... la ligne 3 devient la ligne 2
donc au tour de boucle suivant, VBA va supprimer la ligne 3 ... qui était l'ancienne ligne 4

Si tu tiens absolument a faire une boucle croissante, tu seras oblige de decrementer ton i

Code:

---

1 2 3 4 5 6 7

Sub supp_test() For I = 2 To 15 If UCase(Cells(I, 1).Value) Like "*TEST*" Then Cells(I, 1).Delete shift:=xlUp I = I -1 Next End Sub

---

Ce qui est moche, soyons serieux =]

Bonjour
Je choisis personnellement de constituer (par application.union) la plage des cellules à supprimer, puis d'appliquer d'un seul coup la méthode delete à l'ensemble de cette plage.
De cette manière : aucun souci d'ordre de suppression.

Bonsoir et merci ! Je savais qu'on pouvait faire des compte à rebours mais du coup je n'avais pas penser à les.mettre en application ici.

Un grand merci pour vos réponses