Discussion :

[Pix_elle]

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 )

Voici mon code :

Code :

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

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

[Jean-Philippe André]

Bonjour,

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

Code :

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

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

[joe.levrai]

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

[Jean-Philippe André]

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

Code :

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

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 =]

[unparia]

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.

[Pix_elle]

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