Bonjour,
Un fichier exemple serait plus facile
Amicalement
Pierrot
Private Sub OptionButton1_Click()
' Option Inhumation
If OptionButton1.Value = True Then Button 2,3.Visible = True ': DTPicker1.Width = 84: Label50.Visible = False: DTPicker3.Width = 0
TextBox10.Text = "Inhumation"
End Sub
Private Sub OptionButton2_Click()
' Option Crémation
If OptionButton2.Value = True Then Button 1,3.Visible = False ': DTPicker1.Width = 0: Label50.Visible = True: DTPicker3.Width = 84
TextBox10.Text = "Crémation"
End Sub
Private Sub OptionButton3_Click()
' Option Inhumation
If OptionButton3.Value = True Then Button1,2.Visible = True
1,
End Sub