Discussion :

[willyol3]

Bonjour à tous... Je viens vous demander de l'aide sur une boucle qui tourne indéfiniment et j'ai beau retourné le problème dans tous les sens, je ne comprends pas pourquoi.

J'ai un tableur dynamique alimenté par une connexion serveur. Ma première colonne contient une année. Mon souhait est d'éliminer toutes les lignes ne correspondant pas au critère d'année. Le problème c'est que ma boucle tourne indéfiniment. Voici le code que je pensais fonctionnerait sans problème:

Code :

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

1
2
3
4
5
6
7
8
9
10
    Dim fin2 As Single
    fin2 = Range("B2").End(xlDown).Row
 
    For i = 2 To fin2
 
        While Range("A" & i).Value <> "2010"
        Rows(i).Delete
        Wend
 
    Next

Comme c'est un classeur dynamique, je teste la dernière ligne avant ma boucle et je lui demande de le faire de i=2 à la dernière ligne. Mais la boucle ne s'arrête jamais... Pourquoi ? Merci à tous pour votre aide.

[casefayere]

Bonjour,

essayes comme ça

Code :

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

1
2
3
4
5
6
7
8
Dim fin2 As long 'ou integer
fin2 = Range("B2").End(xlDown).Row
 
    For i = 2 To fin2
 
        If Range("A" & i).Value <> "2010" Then Rows(i).Delete
 
    Next

[babaothe]

Salut,

1) A quoi pourrait bien servir une boucle while au sein d'une boucle for ?
2) lorsque l'on supprime en chemin, il faut toujours commencer du bas et remonter vers le haut. Cela permet d'eviter de se referer a un numero de ligne qui n'existe plus du fait des suppressions !
L'utilisation de Step - 1 dans la boucle For est donc ici recommande, tout simplement

[casefayere]

Bonjour babaothe,
tu as raison pour la décrementation, je corrige

Code :

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

1
2
3
4
5
6
7
8
9
Dim fin2 As long 'ou integer
i as integer
fin2 = Range("B2").End(xlDown).Row
 
    For i = fin2 To 2 step -1
 
        If Range("A" & i).Value <> "2010" Then Rows(i).Delete
 
    Next i

[Gorfael]

Salut willyol3 et le forum
Tu peux expliquer ce que tu veux faire ?

Code :

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

1
2
3
4
5
6
7
8
9
10
    Dim fin2 As Single
    fin2 = Range("B2").End(xlDown).Row
 
    For i = 2 To fin2
 
        While Range("A" & i).Value <> "2010"
        Rows(i).Delete
        Wend
 
    Next

i=2 => tu effaces la ligne 2 => la ligne 3 devient la ligne 2 qui, si elle a une valeur différente de 2010, et effacé, et ainsi de suite.
Le problème est qu'une fois la dernière ligne dont A=2010, comme tu dois aller à Fin2 et que tu n'as plus de valeur, tu efface ligne après ligne et tu ne sorts plus de la boucle While...Wend.

Quelques idées :
- Même si on n'a pas beaucoup de lignes, j'utilises Long qui va jusqu'à la dernière ligne de la feuille. Une erreur peut mettre un espace à la dernière ligne.
- Je n'utilise jamais xlDown, je préfère xlUp à partir de la dernière ligne de la feuille => si B2 ou B3 sont vides, la réponse n'est pas forcément la même.
- Je n'utilises que très rarement des boucles sans fin. Je préfère for.

- Une idée de macro effaçant les lignes différentes en A de 2010

Code :

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

1
2
3
4
5
6
Sub test()
Dim X As Long
For X = Cells(Rows.Count, "B") To 2 Step -1
    If Range("A" & X) <> 2010 Then Rows(X).Delete
Next X
End Sub

On efface en commençant de la dernière, évitant ainsi une boucle interminable et ne sautant aucune ligne.
A+

[willyol3]

Pourquoi VB est toujours si simple en vous lisant ?? Merci à tous ça fonctionne à merveille. J'avoue que je ne connaissais pas le For Step-1... Bien utile et que je pourrais réutiliser à l'occasion.

Gorfael, merci beaucoup pour ton explication. Je comprend maintenant pourquoi ma boucle ne se terminait pas... J'avoue que mettre un while dans un For me semblait inutile. Mais avec le If ca ne fonctionnait pas non plus. Il fallait effectivement que je parte à l'envers pour éviter les erreurs. Sujet résolu. Merci encore et sans doute à très bientôt car je fais malheureusement souvent appel à vos compétences...