Boucle

[Hugues]

Bonjour Le Forum

Dans une procédure j'ai intégré un boucle

derligne = ws2.Range("E65536").End(xlUp).Row


For a = 1 To derligne.....

Next a

"a" correspond au nombre de lignes d'une feuille.

Mon souci est le suivant ; la dernière ligne va varier en fonction du traitement au sein de la boucle. En effet, en fonction de certains évènements j'insère un certain nombre de ligne, qui a pour conséquence de déplacer la fin de la feuille.

Comment faire pour intégrer ce rajout de lignes, donc de modifier la valeur de "derligne" au fur e à mesure du déroulement de la procédure ?

Merci par avance pour votre soutien.

Cordialement,

HUgues

 

[Bebere]

Re : Boucle

bonjour Hugues
un exemple
derligne = ws2.Range("E65536").End(xlUp).Row

For a = 1 To derligne.....
if condition=true then
ws2.Range("A" & a)=x
ou si tu dois ajouter
l=ws2.Range("E65536").End(xlUp).Row+1
ws2.Range("A" & l)=x
endif
Next a

 

[Paf]

Re : Boucle

Bonsoir à tous,

une autre possibilité est de commencer par la dernière ligne et de "remonter" jusqu'au début.
Les lignes ajoutées après la ligne traitée ne viendront pas perturber la concordance entre N° ligne et indice de boucle.

For a = derligne To 1 Step -1

A+