Bonjour,

Voila, j'ai un tableau dont les differentes lignes sont separees par des lignes vides dont le nombre fluctue.

La routine suivante est censee effacer ces lignes vides.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
Private Sub Clean_List_Click()
    Dim Length, EndLines
    Dim endcheck
    endcheck = 0
    Line = 1
    Do
        If Worksheets("List").Cells(Line, 1).Value = "" Then Rows(Line).Delete
        If Worksheets("List").Cells(Line, 1).Value <> "" Then Line = Line + 1
 
    Loop Until Worksheets("List").Cells(Line, 1).Value Like "B009208"
End Sub
J ai essaye pas mal d' expressions differentes pour stopper la boucle comme:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
Worksheets("List").Cells(Line, 1).Value Like Worksheets("Query").Cells(25124, 1).Value
, toujours dans l'optique de comparer la premiere case de la ligne avec une valeur que j ai definie.

Une idee pourquoi cette boucle tourne sans fin?

Merci d'avance pour votre aide.