GESTION DE RADIO(OPTION) COMME EN PHP/HTML

' Il faut déclarer ceci

Private Function Radio(Rd As Object) As String
Dim Nb, i As Integer
Dim Back As String

Nb = (Rd.Count) - 1

For i = 0 To Nb
If Rd(i).Value = True Then
Back = Rd(i).Tag
Exit For
End If
Next i

If Back = "" Then
Back = "Not Any Checked"
End If

Radio = Back
End Function

'Puis l'utiliser comme ceci
'Par exemple, faire 3 radio avec le meme nom ( donc créer un groupe de 'controles ), et leur donner un index croissant partant de 0 .
'A chacun leur attribuer dans le Tag la valeur que l'on souhaite récupérer si le 
'radio est coché .
'Ensuite par exemple on peut l'utiliser comme ceci, sur un clic de bouton cmd

Private Sub cmd1_Click()
MsgBox(Radio(Option1)) ' Ici Option1 est le nom du groupe de controles
End Sub

Télécharger le zip