Discussion :

[EmmanuelleC]

Je voulais faire une macro qui parcours toute les lignes et en ajoute quand c'est nécessaire
Donc je fais une boucle for de 1 a une variable ou je met la derniere ligne et dans mon corps de boucle, j'augmente cette variable de 1 a chaque fois que j'ajoute une ligne (pour continuer a tout parcourir du début a la fin, meme si on a ajouté des lignes ne cours de route) et a ma grand surprise, ca ne fonctionne pas

Code :

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

1
2
3
4
5
6
7
derlgn = Cells(Columns(1).Cells.Count, 1).End(xlUp).Row
For i = 1 To derlgn
    If Cells(i, 2) = "a" Then
            Rows(i + 1).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
            derlgn = derlgn + 1
    End If
Next i

si je fais

Code :

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

1
2
MsgBox i
MsgBox derlgn

en fin de code, je me rend compte que mon i n'a pas été jusqu'au bout, il ne s'est augmenté que de 1 alors que mon derlgn lui s'est bien augmenté comme il faut

Pourquoi est-ce que i ne tient compte que de la premiere augmentation de derlgn?

[Invité]

Bonjour

Une boucle For ne convient pas pour ce que tu souhaites faire.

Je te conseil d'utiliser plutôt une boucle de type Do ... Loop qui correspondra le plus à ton cas.

Un tuto à lire : La gestion des boucles dans Excel

Philippe

[EmmanuelleC]

ok

Juste pour comprendre, comment est-ce qu'il fait pour modifier la borne supérieur partiellement dans le For?

Il la fige quand il réalise le premier next?

J'avais lu le tuto sur les boucles mais j'ai du rater l'interdiction de toucher aux bornes

[babaothe]

salut

si tu tiens au For... to .. next, il te faut commencer d'en bas et remonter :

Code :

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

1
2
3
4
5
6
For i = derlgn To 1 Step -1
    If Cells(i, 2) = "a" Then
            Rows(i + 1).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
            derlgn = derlgn + 1
    End If
Next i

[EmmanuelleC]

je ne tiens pas particulierement au for

L'idée c'était plutot de comprendre pourquoi quelque chose qui me semblait logique ne fonctionnait pas

merci pour vos réponses

[Gorfael]

Salut EmmanuelleC et le forum
Effectivement, Excel semble initialiser ses variables de boucles For lors du premier passage. C'est pour ça que je ne les utilise que lorsque les bornes sont connues et figées. Sinon, effectivement il y a un certain nombre de types de boucles (Do...Loop, While...Wend, Do...Until), mais il faut penser à définir une sortie qui tienne compte des modifications intervenues dans le passage de la boucle (.end(xlUp).row, par exemple), et de préférence bannir les égalités, au profit de supérieur ou égal, ou inférieur ou égal.
A+