Alors n'hesite pas à l'indiquer en face du post correspondant (coche verte) sur la droite du postle problème est résolu merci encore
Private Sub CommandButton1_Click()
With Sheets("Feuil1")
.[G7] = TextBox1.Value
.[G9] = TextBox2.Value
.[G11] = TextBox3.Value
.[G13] = ComboBox1.Value
End With
End Sub
Private Sub CommandButton2_Click()
With Sheets("Feuil1")
TextBox1.Value =.[G7]
TextBox2.Value =.[G9]
TextBox3.Value =.[G11]
ComboBox1.Value = .[G13]
End With
End Sub
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
Alors n'hesite pas à l'indiquer en face du post correspondant (coche verte) sur la droite du postle problème est résolu merci encore