L'un de mes Userform demande de saisir un nom à l'utilisateur.
Par comparaison avec une base de donnée, je souhaite créer autant d'optionbutton que le nombre d'apparition du nom dans la base.
Après quoi, l'utilisateur devra effectuer un choix.
Comment faire pour créer dynamiquement ces optionbutton et récupérer celui qui a été coché par l'utilisateur.
-- Merci pour vos réponses.
JB
Bonjour,
Création dynamique de boutons d'option:
http://cjoint.com/?jEhTlSTqL0
Private Sub B_crée_Click() For b = 1 To Me.Combien retour = Me.Controls.Add("Forms.OptionButton.1", "Opt" & b, True) Me("Opt" & b).Top = 60 Me("Opt" & b).Left = 50 + (b - 1) * 15 Next End Sub
Private Sub B_sup_Click() For b = 1 To Me.Combien On Error Resume Next Me.Controls.Remove "opt" & b Next End Sub
Private Sub b_result_Click() For b = 1 To Me.Combien On Error Resume Next If Me("opt" & b) Then MsgBox b Next End Sub
Cordialement JB
Bonjour,
L'un de mes Userform demande de saisir un nom à l'utilisateur.
Par comparaison avec une base de donnée, je souhaite créer autant d'optionbutton que le nombre d'apparition du nom dans la base.
Après quoi, l'utilisateur devra effectuer un choix.
Comment faire pour créer dynamiquement ces optionbutton et récupére r celui qui a été coché par l'utilisateur.
-- Merci pour vos réponses.
Bonjour,
Création dynamique de boutons d'option:
http://cjoint.com/?jEhTlSTqL0
Private Sub B_crée_Click()
For b = 1 To Me.Combien
retour = Me.Controls.Add("Forms.OptionButton.1", "Opt" & b, True)
Me("Opt" & b).Top = 60
Me("Opt" & b).Left = 50 + (b - 1) * 15
Next
End Sub
Private Sub B_sup_Click()
For b = 1 To Me.Combien
On Error Resume Next
Me.Controls.Remove "opt" & b
Next
End Sub
Private Sub b_result_Click()
For b = 1 To Me.Combien
On Error Resume Next
If Me("opt" & b) Then MsgBox b
Next
End Sub
Cordialement JB
Bonjour,
L'un de mes Userform demande de saisir un nom à l'utilisateur.
Par comparaison avec une base de donnée, je souhaite créer autant
d'optionbutton que le nombre d'apparition du nom dans la base.
Après quoi, l'utilisateur devra effectuer un choix.
Comment faire pour créer dynamiquement ces optionbutton et récupére r celui
qui a été coché par l'utilisateur.
Private Sub B_crée_Click() For b = 1 To Me.Combien retour = Me.Controls.Add("Forms.OptionButton.1", "Opt" & b, True) Me("Opt" & b).Top = 60 Me("Opt" & b).Left = 50 + (b - 1) * 15 Next End Sub
Private Sub B_sup_Click() For b = 1 To Me.Combien On Error Resume Next Me.Controls.Remove "opt" & b Next End Sub
Private Sub b_result_Click() For b = 1 To Me.Combien On Error Resume Next If Me("opt" & b) Then MsgBox b Next End Sub
Cordialement JB
Bonjour,
L'un de mes Userform demande de saisir un nom à l'utilisateur.
Par comparaison avec une base de donnée, je souhaite créer autant d'optionbutton que le nombre d'apparition du nom dans la base.
Après quoi, l'utilisateur devra effectuer un choix.
Comment faire pour créer dynamiquement ces optionbutton et récupére r celui qui a été coché par l'utilisateur.
