Discussion :

[Newworld92]

Bonjour,

Je suis sur Excel 2010.

Dans ma feuille, j'ai inséré une série de 5 contrôles ActiveX => Cases d'option.

J'ai une 6ième case d'option dont la fonction est de réinitialiser les 5 premières.

Dans la fonction "Click" de cette 6ième case d'option, je cherche à faire une boucle sur les 5 autres cases d'option au lieu d'écrire :

Code :

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

1
2
3
4
5
OptionButton1.Value=False
 
OptionButton2.Value=False
 
...

Merci d'avance pour votre aide.

Cdt.

[cerede2000]

Bonsoir à toi,

Si tes OptionButton s'appelent comme ceci OptionButtonX (ou X va de 1 à.....) :

Code :

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

1
2
3
For i = 1 To 10 'Nb d'optionboutons :)
    Me("OptionButton" & i).Value = False
Next

Cela s'appel de l'indirection, Me étant l'objet USF et il est possible d'accéder aux contrôles qui le compose par leur noms

[mercatog]

Par définition, un seul OptionButton d'un groupe est coché par opposition aux CheckBox

[cerede2000]

Ben sauf s'il ne font pas parti du même groupe

[mercatog]

Code :

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

1
2
3
4
5
Dim Ob As OLEObject
 
For Each Ob In Feuil1.OLEObjects
    If TypeName(Ob.Object) = "OptionButton" Then Ob.Object.Value = False
Next Ob

[Newworld92]

Bonsoir à toi,

Si tes OptionButton s'appelent comme ceci OptionButtonX (ou X va de 1 à.....) :

Code :

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

1
2
3
For i = 1 To 10 'Nb d'optionboutons :)
    Me("OptionButton" & i).Value = False
Next

Cela s'appel de l'indirection, Me étant l'objet USF et il est possible d'accéder aux contrôles qui le compose par leur noms

Merci.
Par contre, je ne sais pas par quoi remplacer Me ?
J'ai essayé Activesheet mais ça ne fonctionne pas.
Quel est mon objet USF ? (en supposant que USF veut dire userform)

Merci d'avance.

[cerede2000]

Code de Mercatog pour les contrôle de feuille

[Newworld92]

Code de Mercatog pour les contrôle de feuille

D'accord mais avec le code de mercato, comment je cible seulement 5 cases sur les 6 ?

Merci d'avance.

[cerede2000]

En mélangeant les deux codes

Code :

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

1
2
3
For i = 1 To 5 'Nb d'optionboutons :)
    Feuil1.OLEObjects("OptionButton" & i).Object.Value = False
Next

[Newworld92]

En mélangeant les deux codes

Code :

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

1
2
3
For i = 1 To 5 'Nb d'optionboutons :)
    Feuil1.OLEObjects("OptionButton" & i).Object.Value = False
Next

Merci beaucoup.
Ca fonctionne parfaitement.
A bientôt.