Probleme boucle while, urgent svp

Thomas00 -  
Steefif Messages postés 526 Statut Membre -
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

1 réponse

Steefif Messages postés 526 Statut Membre 19
 
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
1