Boucle à double condition

Nine -  
metalque89 Messages postés 35 Statut Membre -
Bonjour,

Je souhaite faire une boucle avec deux conditions : i <=y et x <= z
De plus, je souhaite que les données d'une cellule soit copiée dans la cellule du dessous si celle- ci est vide
J'ai essayer d'enchainer 2 boucles ainsi mais cela ne fonctionne pas :

While i <= y
While x <= z
If Cells(i + 1, x) = "" Then
Cells(i, x).Select
Selection.Copy
Cells(i + 1, x).Select
ActiveSheet.Paste
End If
i = i + 1
x = x + 1
Wend
Wend

Merci de votre aide
A voir également:

1 réponse

metalque89 Messages postés 35 Statut Membre 2
 
Bonjour,

As tu initialisé tes variables?

Tu peux essayer avec
While i<=y And x<=z
...
wend

Ta boucle s'arrêtera dès qu'une des 2 conditions sera fausse, est ce vraiment ce que tu cherche?
0