Loop avec un FOR Variable

Bonjour, je chercher a faire une boucle avec une plage qui s'incrémente dans le FOR

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Nblign=10   For i=1 to Nblign   If Cells(i, 27) <> "" Then Rows(i + 1).Insert ActiveSheet.Rows(i).Copy ActiveSheet.Rows(i + 1)   Nblign = Nblign + 1 i = i + 1 End If next i

---

le code est super mais si Nblign=10 au départ, même si je l'ajuste a la hausse dans le code, la procédure s'arrête à nblign=10 et pas à nblign=12

merci de votre précieuse aide

Bonjour,
Vous utilisez mal la boucle For..To...Next.

Déjà, il n'y a aucune raison d'incrémenter la variable i en ligne 12 et si bous devez augmenter la fin de la boucle, ce n'est pas le bon choix de boucle.

Je ne peux que vous conseiller la lecture de ce tutoriel La gestion des boucles dans Excel et tout particulièrement le chapitre III. For Next

Merci je regarde le tout et je vous en donne des nouvelle ce soir.

Citation:

---

Envoyé par Philippe Tulliez

Bonjour,
Vous utilisez mal la boucle For..To...Next.

Déjà, il n'y a aucune raison d'incrémenter la variable i en ligne 12 et si bous devez augmenter la fin de la boucle, ce n'est pas le bon choix de boucle.

Je ne peux que vous conseiller la lecture de ce tutoriel La gestion des boucles dans Excel et tout particulièrement le chapitre III. For Next

---

Bonjour,

Quand on insère des lignes avec une boucle For ... Next, il est très fortement conseillé de partir de la fin vers le début :
For i=NbLign to 1 Step -1.

Bonjour Patrice,
Concentré sur la boucle, je n'avais vu l'instruction Insert