"boucler" sur des OptionButton nombreux dans une feuille...

[fredl]

Bonjour à tous
,
je souhaiterai simplifier cela :
Sheets(2).OB503.Visible = False
Sheets(2).OB504.Visible = False
Sheets(2).OB505.Visible = False
Sheets(2).OB506.Visible = False
Sheets(2).OB507.Visible = False
Sheets(2).OB508.Visible = False
Sheets(2).OB509.Visible = False
Sheets(2).OB510.Visible = False

par quelque chose du style :
For N = 503 To 510
Sheets(2).N.Visible = False
Next
J'aurais donc besoin de vous sur la syntaxe à adopter pour ce faire car en l'état, ce que j'ai écrit:
Sheets(2).N.Visible
ne fonctionne pas....

J'ai testé
Sheets(2).OptionButton("OB" & N).Visible = False
mais cela ne marche pas non plus...


Merci pour votre aide précieuse.
Frédéric

 

[Paf]

Re : "boucler" sur des OptionButton nombreux dans une feuille...

Bonjour

à tester

For N = 503 To 510
    Sheets(2).OLEObjects("OB" & N).Visible = False
Next

A+

 

[fredl]

Re : "boucler" sur des OptionButton nombreux dans une feuille...

CA MARCHE!!!!!!!!!!!!!!

Merciiiiiiiiiiiiiii!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

Au plaisir

Frédéric