Urgent enregistrer des données formulaires

mais en fermant par la croix

Cliquez pour agrandir...

n'y a t-il pas un code qui permettrai d'enregistrer mes valeurs dans mes textbox automatiquement ?

Cliquez pour agrandir...

pourrais-tu m'ecrire le code en question je suis débutant j'y connais strictement rien.

Cliquez pour agrandir...

j'ai ecrit un code qui permet dinhiber la croix

Cliquez pour agrandir...

Private Sub CommandButton2_Click()

Dim Sel As String

If Chk_3G.Value = True Then Sel = 1
If Chk_3GS.Value = True Then Sel = Sel & 2
If Chk_4G.Value = True Then Sel = Sel & 3

Select Case Sel

Case "123"
UserForm1.Show
Case "23"
UserForm2.Show
Case "12"
UserForm3.Show
Case "1"
UserForm6.Show
Case "2"
UserForm5.Show
Case "3"
UserForm4.Show
Case "13"
UserForm7.Show
Case Else
MsgBox "Vous devez faire un choix !"

End Select
End Sub

Cliquez pour agrandir...

Private Sub CommandButton1_Click()
Enregistrer
End Sub

Private Sub CommandButton9_Click()
Me.Hide
Enregistrer
End Sub

Private Sub MultiPage1_Change()

End Sub

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)

Enregistrer

End Sub

Sub Enregistrer()

With Sheets("Feuil1")
.[B2] = TextBox1.Value
.[B3] = TextBox2.Value
.[B4] = TextBox3.Value
.[B5] = TextBox4.Value
.[B6] = TextBox5.Value
End With

End Sub

Cliquez pour agrandir...