Bonjour,
je suis en train de créer un formulaire d'enregistrement de contact pour une base de donnée.
Mon problème se situe avec les optionbutton. J'ai deux optionbuttons "contacter" et "ne pas contacter", j'aimerais attribuer une valeur "S" dans la cellule de ma feuille de calcul. Je n'arrive pas à la donner.
De plus, j'aimerai rendre l'action de cocher l'un des deux lorsque je clique sur ma commande validation.
je suis en train de créer un formulaire d'enregistrement de contact pour une base de donnée.
Mon problème se situe avec les optionbutton. J'ai deux optionbuttons "contacter" et "ne pas contacter", j'aimerais attribuer une valeur "S" dans la cellule de ma feuille de calcul. Je n'arrive pas à la donner.
De plus, j'aimerai rendre l'action de cocher l'un des deux lorsque je clique sur ma commande validation.
Code:
Private Sub Frame1_click()
Dim Statut As Boolean
If Contacter = True Then Statut.Value = ""
If PasContacter = True Then Statut.Value = "S"
End If
End Sub
Code:
Private Sub Valider_click()
Cancel As Integer
Dim x As Object, UneOptionAuMoins As Boolean
UneOptionAuMoins = False
For Each x In Frame1.Controls
UneOptionAuMoins = UneOptionAuMoins Or x.Value
Next x
If Not UneOptionAuMoins Then
MsgBox "aucune des 2 options n'est cochée !"
Cancel = True
End If
'End Sub