déterminer l'index de l'optionbutton sélectionné

Question

bonjour a tous,
j'espère ke kk1 pourra m'aider :
mon projet comporte un sstab (sstab1) dont un des onglets comporte une frame de 3 optionbuttons de mm nom (optchoi) et un boutton de commande (Command1) en dehors du sstab.
Losque je click sur ce boutton le prog doit vérifier qu'au moins un des bouttons a été sélectionné, et déterminé l'index de ce boutton, et enfin affiché l'index dans un msgbox. J'ai fait ceci pour la précudre de Command1 :
private sub Command1_click()
choix=optchoi.item(index).index
msgbox(choi)
end sub
j'obtiens bien sur tjrs la mm chose quelque soit l'optionbutton sélectionné, c'est a dire : 0
kk1, peut-il m'aider?

cs_rene38 · Answer

Bonjour

Private Sub Command1_Click()
Dim i As Integer
For i = 0 To 2
    If Optchoi(i).Value Then MsgBox i: Exit Sub
Next i
MsgBox "Aucun bouton sélectionné"
End Sub

cs_DARKSIDIOUS · Answer

Il faut parcourir tout tes options boutons pour tester celui qui est sélectionné :

For each i In Option1
If i.Value true then choix i.Index

Next

Msgbox choix

DarK Sidious

[Responsable API/VB du site www.ProgOtoP.com]
Téléchargez ProgOtoP API Viewer

Déterminer l'index de l'optionbutton sélectionné

2 réponses

Discussions similaires