Discussion :

[skystef]

Bonjour,

Je rencontre un souci pour ajouter des lignes dans une feuille Excel via du code VBA. Dans une FAQ j'ai trouvé ce code :

Code :

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

1
2
3
4
Do Until nbProj > 0
       Worksheets("Feuille1").Cells(finProj, 1).EntireRow.Insert
       nbProj = nbProj - 1
    Loop

ça ne fonctionne pas. Avec le débogueur il arrive sur Do Until mais j'ail l'impresion qu'l ne passe pas sur la ligne de code qui insere les lignes excel.
J'ai vérifié les varibales, nbProj = 4 et finProj=21.

Une chtite aide?

[ouskel'n'or]

Do Until traduit en français veut dire "Jusqu'à ce que ...
Donc, comme tu dis, tes "varibales" ( j'aime bien les variballes...)

J'ai vérifié les varibales, nbProj = 4 et finProj=21

Si nbProj = 4 en arrivant sur Do Until, la condition "Do Until nbProj > 0" est déjà remplie, et donc tu n'entres pas dans la boucle.
Dis-nous ce que tu souhaites faire, on pourra peut-être te sortir de ce mauvais pas

[skystef]

Do Until traduit en français veut dire "Jusqu'à ce que ...
Donc, comme tu dis, tes "varibales" ( j'aime bien les variballes...)
Si nbProj = 4 en arrivant sur Do Until, la condition "Do Until nbProj > 0" est déjà remplie, et donc tu n'entres pas dans la boucle.
Dis-nous ce que tu souhaites faire, on pourra peut-être te sortir de ce mauvais pas

Ok,

J'ai utilisé Do.... Until While et ça semble fonctionner.

Désolé pour les varibales, le lundi matin avant le déjeuner tu comprends....