Probleme boucle while, urgent svp

Question

Bonjour à tous, j'ai un petit soucis dans mon code que voici : 

Sub Auto_open()
Dim I As Variant
Dim cop1 As Variant
Dim cop2 As Variant
Dim cop3 As Variant

cop1 = 7
cop2 = 7
cop3 = 7
I = 7

While Cells(I, 1) <> ""

Sheets("Tous").Select

    If Cells(I, 1) = "lvt" Then
        Rows(I).Select
        Selection.Copy
        Sheets("Lvt").Select
        Rows(cop1).Select
        ActiveSheet.Paste
        cop1 = cop1 + 1
    Else
        If Cells(I, 1) = "mbr" Then
            Rows(I).Select
            Selection.Copy
            Sheets("Mbr").Select
            Rows(cop2).Select
            ActiveSheet.Paste
            cop2 = cop2 + 1
        Else
            If Cells(I, 1) = "dru" Then
                Rows(I).Select
                Selection.Copy
                Sheets("Dru").Select
                Rows(cop3).Select
                ActiveSheet.Paste
                cop3 = cop3 + 1
            End If
        End If
    End If
    
I = I + 1
Wend

End Sub

Ma boucle s'arrête avant de rencontrer une cas vide et je ne comprends pas pourquoi. Merci d'avance

Steefif · Answer

Un conseil, essaie juste de mettre par exemple des point d'arret.
une autre question, s'arrete t'elle la case juste au dessus de la premiere vide ou bien en plein milieu du tableau?
voila,
sinon a ta place, je preferai un
do while
....
loop

voila

Probleme boucle while, urgent svp

1 réponse

Votre réponse

Discussions similaires

Newsletters