XL 2010 inser d'une ligne dans boucle FOR

[Xxaann]

Bonjour,
J'ai une boucle For/Next pour scanner des données; à un certain moment, j'inser une ligne et donc, logiquement la boucle s'arrête sur la ligne définie au départ, et donc ne prend pas en compte les lignes supplémentaires.

Par contre, je n'arrive pas à ajouter une ligne dans ma condition de départ.

dlg = Range("A65536").End(xlUp).Row

For i = 2 To dlg
if ......... then
Range("A" & i + 1).Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
end if

dlg = dlg +1

Next


Je pensais qu'en faisant un +1 au dlg, cela modifierai la condition de ma boucle FOR mais hélas non.

Donc; la macro s'arrête beaucoup trop tôt


Quelqu'un aurait une solution?
Merci
Nicolas

 

[croco40]

Bonjour,
essaie avec ça :
dlg = Range("A65536").End(xlUp).Row

For i = 2 To dlg
if ......... then
dlg = Range("A65536").End(xlUp).Row
Range("A" & i + 1).Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
end if
Next

Suerte croco

 

[croco40]

Ou plutôt :

dlg = Range("A65536").End(xlUp).Row
For i = 2 To dlg
if ......... then

Range("A" & i + 1).Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
end if
dlg = Range("A65536").End(xlUp).Row
Next

 

[Dranreb]

Bonjour.
Il pourrait être plus simple de faire la boucle
For i = dlg To 2 Step -1

 

[croco40]

Bonjour @Dranreb,
Perso, c'est aussi comme ça que je fais (Step -1).
Suerte Croco.

 

[Xxaann]

Merci pour votre aide.
Je n'étais jamais passé par le Step-1; mais cela m'ouvre quelque idées.

Je vais prendre la solution de Crocro, plus facile à mettre en œuvre car dans ma macro.

Bonne continuation à tous
Nicolas