Bonjour
J'ai plusieurs Userform 1.2.3.4 sur Userform 1 j'ai un 5 textbox nommé: textbix1; textbox2; N_Mag ; nom ; cin et un combobox nommé: cmb_suite
Sur userform 4 j'ai deux textbox 1 et 2 et une commandbutton1
Voici son code
Les données d'Userform 4 sont sauvegarder mais
Mon problème c'est que je n'arrive a sauvegarder les données de userform1 dons la feuille (quittance)
Merci d'avance
J'ai plusieurs Userform 1.2.3.4 sur Userform 1 j'ai un 5 textbox nommé: textbix1; textbox2; N_Mag ; nom ; cin et un combobox nommé: cmb_suite
Sur userform 4 j'ai deux textbox 1 et 2 et une commandbutton1
Voici son code
VB:
Private Sub CommandButton1_Click()
If Me.TextBox1.value = "" Or Me.TextBox2.value = "" Then
MsgBox "Veuillez entrer le numéro et la date du reçu", vbCritical + vbMsgBoxRight, "Erreur"
Exit Sub
End If
Me.Tag = Sheets("QUITTANCE").Range("a65536").End(xlUp).ROW + 1
ThisWorkbook.Worksheets("QUITTANCE").Range("b" & Me.Tag).value = UserForm1.N_Mag.value
ThisWorkbook.Worksheets("QUITTANCE").Range("c" & Me.Tag).value = Me.TextBox1.value
ThisWorkbook.Worksheets("QUITTANCE").Range("d" & Me.Tag).value = Me.TextBox2.value
Unload Me
End SubMon problème c'est que je n'arrive a sauvegarder les données de userform1 dons la feuille (quittance)
Merci d'avance