Discussion :

[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

Code :

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

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 :

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

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!

[cari]

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 :

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

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.

[SfJ5Rpw8]

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 :

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

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

[max2245]

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.