' 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
Se souvenir du profil
Mot de passe oublié ? / Activation de compteCréer un compte