XL 2010 inser d'une ligne dans boucle FOR

Xxaann

XLDnaute Occasionnel
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

XLDnaute Occasionnel
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

XLDnaute Occasionnel
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
 

Xxaann

XLDnaute Occasionnel
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
 

Discussions similaires

Réponses
4
Affichages
135

Statistiques des forums

Discussions
311 733
Messages
2 082 019
Membres
101 872
dernier inscrit
Colin T