Boucle For to Next For avec index non continu

Bonjour,

Et avec cela:

For i = 1 To 20
select case i
case 1 to 5,13 to 20
UserForm3.Controls("OptionButton" & i).Value = False
case else
end select
Next


"Polemos" <mail : http://cerbermail.com/?9Gy7Dd1t9W> a écrit dans le
message de news:drcsq0t0d71ee9tm07i1ht6m81127ij4m1@4ax.com...

Bonsoir à tous,

Je voudrai faire une boucle pour i de 1 à 5 puis de 13 à 20. Pour le
moment je fais 2

boucles l'une à la suite de l'autre.

Existe t-il une façon de rédiger la boucle For to Next pour ne pas
doublonner une partie

du code.

Cordialement,
Polemos

Ce que j'ai :


Ce que je voudrais

For i=1 to 5 puis 13 to 20 ...

Bonjour Polemos,

C'est très bien de la façon que tu as procédée. (2 boucles)


Salutations!




"Polemos" <mail : http://cerbermail.com/?9Gy7Dd1t9W> a écrit dans le message de news:
drcsq0t0d71ee9tm07i1ht6m81127ij4m1@4ax.com...
Bonsoir à tous,

Je voudrai faire une boucle pour i de 1 à 5 puis de 13 à 20. Pour le moment je fais 2
boucles l'une à la suite de l'autre.

Existe t-il une façon de rédiger la boucle For to Next pour ne pas doublonner une partie
du code.

Cordialement,
Polemos

Ce que j'ai :

For i = 1 To 5
UserForm3.Controls("OptionButton" & i).Value = False
Next

For i = 13 To 20
UserForm3.Controls("OptionButton" & i).Value = False
Next

Ce que je voudrais

For i=1 to 5 puis 13 to 20 ...