Je ne sors pas d'une boucle VBA Excel !

[Sebast]

Bonjour,
j'ai écrit une macro qui fonctionne - en partie, car elle exécute ce que je veux - mais ne s'arrête pas : elle balaie mon fichier, supprime bien les lignes voulues (quand la cellule F2 a pour valeur "VRAC") mais continue encore et encore si bien que je suis obligé de forcer l'arrêt et donc de faire planter.

Pour moi, elle devraît s'arrêter en fin de fichier car la cellule F est alors bien " ", mais la progression continue …

Je précise que je suis nouveau en matière de VBA et pas trop au fait des boucles : je pense que c'est ce qui pêche ici

à tous, merci d'avance de me dire où ça coince dans le code suivant :

Sub Supprimer_ligne_quand_vrac()
Worksheets("Support").Range("F2").Select
Do While ActiveCell <> " "
If ActiveCell.Value = "VRAC" Then
Selection.EntireRow.Delete
Else
ActiveCell.Offset(1, 0).Range("A1").Select
End If
Loop
End Sub

 

[Efgé]

Re : Je ne sors pas d'une boucle VBA Excel !

Bonjour Sebast,
Une autre version:

[COLOR=BLUE]Sub[/COLOR] Supprimer_ligne_quand_vrac2()
[COLOR=BLUE]Dim[/COLOR] LstRow&, i&
[COLOR=GREEN]'Avec laz feuille support[/COLOR]
[COLOR=BLUE]With[/COLOR] Worksheets("Support")
   [COLOR=GREEN] 'On cherche la dernière cellule remplie en colonne F[/COLOR]
    LstRow = .Cells(Rows.Count, 6).End(xlUp).Row
   [COLOR=GREEN] 'En partant de la fin de la colonne F et en remontant[/COLOR]
    [COLOR=BLUE]For[/COLOR] i = LstRow [COLOR=BLUE]To[/COLOR] 2 [COLOR=BLUE]Step[/COLOR] -1
       [COLOR=GREEN] 'Si la cellule est égale à VRAC on supprime la ligne[/COLOR]
        [COLOR=BLUE]If[/COLOR] Cells(i, 6) = "VRAC" [COLOR=BLUE]Then[/COLOR] Rows(i).Delete
   [COLOR=GREEN] 'Prochaine ligne[/COLOR]
    [COLOR=BLUE]Next[/COLOR] i
[COLOR=GREEN]'Arret de l'utilisation de la feuille support[/COLOR]
[COLOR=BLUE]End With[/COLOR]
[COLOR=BLUE]End Sub[/COLOR]

Cordialement

 

[Sebast]

Re : Je ne sors pas d'une boucle VBA Excel !

Un grand merci Efgé pour ta réactivité et ton code qui fonctionne parfaitement : c'est d'ailleurs beaucoup plus lisible comme tu l'as écrit, notamment grâce aux commentaires. Tu m'enlèves une sacrée épine du pied !
Encore merci ! Sebast.