Private Sub ComboBox1_Change()
If OptionButton1 Then ComboBox1.Locked = True
If ComboBox1.Locked = True And ComboBox1.Value <> "" Then: MsgBox "Pas question !" & vbLf & "Vous n'êtes pas marié !!", , "Marti Marti": ComboBox1 = "": Exit Sub
With Me.TextBox1
If Me.OptionButton1.Value = True And Me.ComboBox1.Value = 0 Then: .Value = 45.85: Exit Sub
If Me.OptionButton2.Value = True And Me.ComboBox1.Value > 0 Then: .Value = 245.85: Exit Sub
End With
End Sub
Private Sub UserForm_Initialize()
Dim x As Byte
For x = 0 To 10
ComboBox1.AddItem x
Next x
End Sub