Discussion :

[Mairequimby]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[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

[Mairequimby]

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

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

[Patrice740]

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.

[Philippe Tulliez]

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