XL 2019 Sauvegarder les données de deux Userform dans une feuille

eCHO

XLDnaute Junior
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

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 Sub
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
 

Discussions similaires

Réponses
5
Affichages
365

Statistiques des forums

Discussions
311 720
Messages
2 081 910
Membres
101 837
dernier inscrit
Ugo