[VBA-E] Boucle while!

Bonjour,

je souhaiterais mettre un point d'arrêt où cas l'utilisateur
a oublié de mettre Strg_1 afin que le programme ne plante pas!
Du genre au bout de 1000 iteration la boucle while s'arrête

Code:

---

1 2 3 4

row_deb = 1 While Worksheets(i).Cells(row_deb, 1) <> Strg_1 row_deb = row_deb + 1 Wend

---

Je pense à un truc du genre mais je ne connais pas bien la syntaxe sous VBA:

Code:

---

1 2 3 4 5

row_deb = 1 While Worksheets(i).Cells(row_deb, 1) <> Strg_1 and row_deb < 1000 row_deb = row_deb + 1 Wend

---

Pouvez vous me corriger merci!

je ne sais pas exactement ce que tu veux faire, mais si tu veux arreter la boucle à la 1000eme itération, je te propose:la boucle for
(ça c'est c'est du vb)

Code:

---

1 2 3 4

for i=1 to 1000 do   next i

---

N'oublie pas de mettre les balises de code, lorsque tu veux mettre du code.

Citation:

---

Envoyé par max2245

Bonjour,

je souhaiterais mettre un point d'arrêt où cas l'utilisateur
a oublié de mettre Strg_1 afin que le programme ne plante pas!
Du genre au bout de 1000 iteration la boucle while s'arrête


row_deb = 1
While Worksheets(i).Cells(row_deb, 1) <> Strg_1
row_deb = row_deb + 1
Wend

Je pense à un truc du genre mais je ne connais pas bien la syntaxe sous VBA:

row_deb = 1
While Worksheets(i).Cells(row_deb, 1) <> Strg_1
and row_deb < 1000
row_deb = row_deb + 1
Wend

Pouvez vous me corriger merci!

---

ben ton code à l'air bon ( si tu met tout le while sur la même ligne..)

Code:

---

1 2 3 4 5

row_deb = 1 While Worksheets(i).Cells(row_deb, 1) <> Strg_1 and row_deb < 1000 row_deb = row_deb + 1 Wend

---

ok merci, pour la réponse, j'ai testé cela marche bien!
Au fait vous savez comment on fait pour ne pas mettre à
joue des liaisons lorsque l'on trouve plusieurs fichiers
excel avec un macro; sur mon ordi lorsque je lance ce programme
pas de pb, mais sur un autre ordi ils demandent à chaque fois
de mettre à jour ou non les liaisons.