Probleme boucle while, urgent svp

Fermé
Thomas00 - 8 juil. 2008 à 14:55
Steefif Messages postés 485 Date d'inscription lundi 7 juillet 2008 Statut Membre Dernière intervention 15 février 2013 - 8 juil. 2008 à 16:02
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 485 Date d'inscription lundi 7 juillet 2008 Statut Membre Dernière intervention 15 février 2013 19
8 juil. 2008 à 16:02
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