XL 2010 Bouton d'option

[cathodique]

Bonjour,

Comment créer un bouton d'option dans la frame1 à l'ouverture du formulaire
et pouvoir personnaliser ses options par code (en particulier la couleur de la Font).

Avec mes remerciements anticipés

 

[job75]

Bonjour cathodique,

Le code de l'UserForm :

Private Sub UserForm_Initialize()
With Frame1.Controls.Add("Forms.OptionButton.1", "OB1")
    .Top = 10
    .Left = 10
    .Caption = "Choix1"
    .ForeColor = vbRed
End With
End Sub

A+

 

[cathodique]

Bonjour cathodique,

Le code de l'UserForm :

Private Sub UserForm_Initialize()
With Frame1.Controls.Add("Forms.OptionButton.1", "OB1")
    .Top = 10
    .Left = 10
    .Caption = "Choix1"
    .ForeColor = vbRed
End With
End Sub

A+

Bonjour @job75 ,

C'est impeccable. tu me rends un sacré service. J'étais bloqué surtout pour le ForeColor.

Encore merci. Grâce à toi, je peux avancer.

Bon week-end.

 

[job75]

Compléments avec un Module de classe :

Dim OB(1) As New Classe1 '1 => nombre d'OptionButtons - 1 (base 0)

Private Sub UserForm_Initialize()
Dim n As Byte, c As Control
For n = 0 To UBound(OB)
    Set c = Frame1.Controls.Add("Forms.OptionButton.1", "OB" & n + 1)
    c.Top = 8 + 18 * n
    c.Left = 10
    c.Caption = "Choix" & n + 1
    c.ForeColor = IIf(n, vbBlue, vbRed)
    Set OB(n).OB = c
Next n
End Sub

Public WithEvents OB As MSForms.OptionButton

Private Sub OB_Change()
If OB Then MsgBox IIf(OB.Name = "OB1", "Bonjour", "Bonsoir")
End Sub

 

[patricktoulon]

bonjour
juste en passant
on peut tout faire dans le userform si on veut
exemple 4 couleurs

Option Explicit
Dim cls() As New UserForm1 '1 => nombre d'OptionButtons - 1 (base 0)
Public WithEvents OB As MSForms.OptionButton

Private Sub OB_Change()
If OB Then MsgBox OB.Caption
End Sub

Private Sub UserForm_Activate()
Dim n As Byte, c As Control
Dim CaptionX, couleurX
CaptionX = Array("bleu", "rouge", "vert", "jaune")
couleurX = Array(vbBlue, vbRed, vbGreen, vbYellow)
For n = 0 To UBound(CaptionX)
    Set c = Frame1.Controls.Add("Forms.OptionButton.1", "OB" & n + 1)
    c.Top = 8 + 18 * n
    c.Left = 10
    c.Caption = CaptionX(n)
    c.ForeColor = couleurX(n)
    ReDim Preserve cls(1 To n + 1): Set cls(n + 1).OB = c
Next n
End Sub

cela dit a moins que les options se comptent au minimum de 5/10 je ne vois pas l'utilité de construire dynamiquement les controls
avec classe ou intra userform comme je le fait dans cet exemple autant les faire en dur dans le VBE

 

[cathodique]

Messieurs bonsoir,

J'avoue que je me suis pris comme un pied. J'avais fait une grossière erreur (ci-dessous)

With ob
    .Caption = "6ème VIII"
    .Left = x
    .Top = y
    .Width = 90
    .Height = 20
    .Font.Name = "Tahoma"
    .Font.Size = 10
    .Font.Bold = True
    .Font.Color = vbWhite  ' ici
End With

Mon cerveau était bloqué. Je me suis résigné à ouvrir une discussion.

Vos interventions sont très pertinentes. Vos exemples vont me servir à y voir plus clair.
J'espère ne pas oublier. L'oubli fait maintenant parti de mon quotidien.

Encore merci.

Excellente soirée à vous.