optionbutton

[Evelynetfrancois]

BONJOUR
j ai une macro (ci-dessous) qui met en evidence OptionButton qui est cochée
bien sur cela marche ..................
mais suis-je oblige de nommer une a une toutes les autres optionbutton ?
n'y a t il pas plus propre ( moins cochon) style :

If OptionButton10.Value = True Then
OptionButton10.Font.Bold = True
OptionButton10.ForeColor = &HFF&

alors toutes les autres optionButton qui se trouvent dans le meme frame = false et &H400040

_______________________________


Private Sub OptionButton10_Click()
If OptionButton10.Value = True Then
OptionButton10.Font.Bold = True
OptionButton10.ForeColor = &HFF&
OptionButton6.Font.Bold = False
OptionButton6.ForeColor = &H400040
OptionButton7.Font.Bold = False
OptionButton7.ForeColor = &H400040
OptionButton8.Font.Bold = False
OptionButton8.ForeColor = &H400040
OptionButton9.Font.Bold = False
OptionButton9.ForeColor = &H400040
OptionButton11.Font.Bold = False
OptionButton11.ForeColor = &H400040
OptionButton12.Font.Bold = False
OptionButton11.ForeColor = &H400040
OptionButton13.Font.Bold = False
OptionButton13.ForeColor = &H400040
OptionButton17.Font.Bold = False
OptionButton17.ForeColor = &H400040
TextBox2.SetFocus
End If
End Sub

______________________________


merci de vos precieuses conaissances
E et F

 

[ERIC S]

Re : optionbutton

Bonjour

je pense que par principe quand on valide un optionbutton, tous les optios buttons du même groupe s'invalident

A vérifier

 

[Evelynetfrancois]

Re : optionbutton

Bonjour ERIC S

je pense que par principe quand on valide un optionbutton, tous les options buttons du même groupe s'invalident

oui bien sur !!!je me suis peut etre pas bien fait comprendre ?

mais ma macro met en GRAS et en ROUGE l option cochée
tandis que toutes les autres (donc invalides ) redeviennent , NON GRAS et NOIRE

If OptionButton10.Value = True Then
OptionButton10.Font.Bold = True
OptionButton10.ForeColor = &HFF&

CE QUE JE VOUDRAIS EVITER c est de noter :
OptionButton6.Font.Bold = False
OptionButton6.ForeColor = &H400040
OptionButton7.Font.Bold = False
OptionButton7.ForeColor = &H400040
.........................
OptionButton20.Font.Bold = False
OptionButton20.ForeColor = &H400040 ETC !!!!

mais cree une boucle , je pense que ca doit etre possible ???
au plaisir de te lire

E et F

 

[ERIC S]

Re : optionbutton

re

je ne sais pas si c'est transposable mais regarde du côté de controls, cela permet par ex dan sle cas de combobox d'un usf de faire un combobox(i)


For I = 4 To 11
If Controls("Combobox" & I).ListIndex = -1 Then vide = vide + 1
Next

je ne pourrai pas t'aider plus je pense

 

[myDearFriend!]

Re : optionbutton

Bonjour Evelynetfrancois, ERIC S, le Forum,

Tu peux essayer de faire ça d'une autre façon aussi (tu simplifies les choses en utilisant l'évènement Change associé à chaque OptionButton) :

DANS LE MODULE DE CODE DU USERFORM

[SIZE=2][COLOR=blue]Private Sub[/COLOR] OptionButton1_Change()
      Formatoptbouton OptionButton1
[COLOR=blue]End Sub
Private Sub[/COLOR] OptionButton2_Change()
      Formatoptbouton OptionButton2
[COLOR=blue]End Sub
Private Sub[/COLOR] OptionButton3_Change()
      Formatoptbouton OptionButton3
[COLOR=blue]End Sub[/COLOR]
[COLOR=green]'Etc...[/COLOR]
[COLOR=green]'...[/COLOR]
[COLOR=green]'...[/COLOR]
[/SIZE]

DANS UN MODULE DE CODE STANDARD

[SIZE=2][COLOR=blue]Sub[/COLOR] Formatoptbouton(Ctrl [COLOR=blue]As[/COLOR] Control)
      [COLOR=blue]With[/COLOR] Ctrl
            .Font.Bold = .Value
            .ForeColor = IIf(.Value, &HFF&, &H400040)
      [COLOR=blue]End With
End Sub[/COLOR][/SIZE]

On peut également faire appel à un module de classe, mais je pense que la solution ci-dessus te sera beaucoup facile à mettre en oeuvre.

Cordialement,

 

[Evelynetfrancois]

Re : optionbutton

MERCI POUR TOUT
je vais essayer de tourner avec tout ca
bonne journée a vs

E et F