Discussion :

[srikiki]

Bonjour,
j'ai créé une page excel normal sur laquelle j'ai placé une centaine de OptionButton afin d'avoir un formulaire.
j'aimerai faire une boucle en VBA pour décocher tous les OptionButton sans avoir à écrire 100lignes de OptionButtonX.value = false

Le souci est que je n'arrive pas à déclarer mon optionbutton dans une variable pour l'incrémenter et le décocher
En gros quelque chose sur cette base mais en vrai VBA qui fonctionne...

Code :

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

1
2
3
4
5
6
Dim num as byte
Dim nom as ??
For num 1 to 100
nom = "OptionButton" & num
num.value = false
next

Je pense qu'il faut utiliser "control" ou "variant" ou "object" mais je ne trouve pas...

heellllpppppp

Merci d'avance

[casefayere]

Bonjour,

Va faire un tour sur ce lien, tu devrais pouvoir adapter :
http://silkyroad.developpez.com/VBA/...serForm/#LII-C

[srikiki]

merci, mais j'ai deja trouvé ce site fort interressant qui m'a donné beaucoup de piste mais... je n'arrive pas à m'adapter....
il est expliqué comment faire pour une userform mais mes boutons sont sur une feuille excel et non une userform...
je n'arrive pas à trouver comment faire le passage

[casefayere]

Re,

Je ne comprends pas trop dans la mesure où la valeur d'un seul optionbutton peut être à True, j'aimerais que tu expliques mieux ton problème. Ne s'agit'il pas de cases à cocher ?, des controles activex ? des controles de formulaire ?

[Theze]

Bonsoir,

Regarde si ça va et supprime la partie du code inutile suivant l'origine de tes boutons d'option :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
 
Sub Desactiver()
 
    Dim Ctrl As OLEObject
    Dim Opt As Object
    Dim OptShape As Shape
 
    'contrôle ActiveX
    For Each Ctrl In ActiveSheet.OLEObjects
 
        On Error Resume Next
        Set Opt = Ctrl.Object
        Opt.Value = False
 
    Next Ctrl
 
    'contrôle Formulaire
    For Each OptShape In ActiveSheet.Shapes
 
        On Error Resume Next
        OptShape.ControlFormat.Value = 0
 
    Next OptShape
 
End Sub

Hervé.

[srikiki]

bonjour,
pour repondre à casefayere, meme si dans un groupe un '"OtionButton" est forcement à "TRUE", il est possible de les forcer tous à TRUE ou à FALSE via macro.
Mon but est donc de mettre tous les "OptionButton" en mode "FALSE" afin d'avoir un formulaire vierge.

Merci à Theze. Ton programme fonctionne tres bien avec la partie 'contrôle ActiveX
Par contre je ne suis pas au point sur les "OLEObjects". Si vous pouvez me former un peu, ca serait gentil

merci encore