Private Sub CommandButton1_Click()
With Sheets("Feuil1")
.[G7] = TextBox1.Value
.[G9] = TextBox2.Value
.[G11] = TextBox3.Value
.[G13] = ComboBox1.Value
TextBox4.Value = .[O7]
TextBox5.Value = .[O9]
TextBox6.Value = .[O11]
'--------------------------- Pour les cases à cocher
If CheckBox1 = True Then
.[G17] = "Oui"
Else
.[G17] = "Non"
End If
'--------------------------- Pour les boutons Option
If OptionButton1 = True Then
.[G19] = "1"
Else
.[G19] = "2"
End If
End With
End Sub
Private Sub CheckBox1_Click()
'----------------------------------- CASE A COCHER
With Sheets("Feuil1")
If CheckBox1 = True Then
.[G17] = "Oui"
Else
.[G17] = "Non"
End If
End With
End Sub
Private Sub OptionButton1_Click()
'----------------------------------- BOUTON OPTION 1
With Sheets("Feuil1")
If OptionButton1 = True Then
.[G19] = "1"
Else
.[G19] = "2"
End If
End With
End Sub
Private Sub OptionButton2_Click()
'----------------------------------- BOUTON OPTION 2
With Sheets("Feuil1")
If OptionButton2 = True Then
.[G19] = "2"
Else
.[G19] = "1"
End If
End With
End Sub