Bonjour à tous,
je suis à la programmation d'un userform pour mon stage de fin d'étude et je veux que l'utilisateur, lorsqu'il entre des données dans les textbox, que cette information soit enregistré dans des cellules. À la suite de l'entrées des données, il doit changer de ligne.
Voici le code que j'ai fais
Private Sub CmdOk_Click()
Dim Date_Facture As Date, Numero_Facture As Integer
Dim Montant_facture As Currency, Nom_Entreprise As Integer
'Trouver la cellule vide
Range("a1").End(xlDown).Select
If ActiveCell.Offset(1) = "" Then
a = ActiveCell.Offset(1).Row
Else
a = ActiveCell.End(xlDown)(2).Row
End If
'Permet de sélectionner la cellule dans laquelle l'info doit _
& être enregistrer
For Date_Facture = 1 To 1
If Cells(Date_Facture, 1).Value = "" Then Cells(Date_Facture, 1).Value = TxtDate_Facture.Text
Next Date_Facture
For Numero_Facture = 1 To 1
If Cells(Numero_Facture, 2).Value = "" Then Cells(Numero_Facture, 2).Value = TxtNumero_Facture.Text
Next Numero_Facture
For Montant_facture = 1 To 1
If Cells(Montant_facture, 3).Value = "" Then Cells(Montant_facture, 3).Value = TxtMontant_facture.Text
Next Montant_facture
For Nom_Entreprise = 1 To 1
If Cells(Nom_Entreprise, 7).Value = "" Then Cells(Nom_Entreprise, 7).Value = TxtNom_Entreprise.Text
Next Nom_Entreprise
Unload FrmInformation
End Sub
Le problème est que je ne suis pas capable de le faire apparaitre dans mon fichier excel.
J'ai vraiment besoin de votre aide! Merci à l'avance
je suis à la programmation d'un userform pour mon stage de fin d'étude et je veux que l'utilisateur, lorsqu'il entre des données dans les textbox, que cette information soit enregistré dans des cellules. À la suite de l'entrées des données, il doit changer de ligne.
Voici le code que j'ai fais
Private Sub CmdOk_Click()
Dim Date_Facture As Date, Numero_Facture As Integer
Dim Montant_facture As Currency, Nom_Entreprise As Integer
'Trouver la cellule vide
Range("a1").End(xlDown).Select
If ActiveCell.Offset(1) = "" Then
a = ActiveCell.Offset(1).Row
Else
a = ActiveCell.End(xlDown)(2).Row
End If
'Permet de sélectionner la cellule dans laquelle l'info doit _
& être enregistrer
For Date_Facture = 1 To 1
If Cells(Date_Facture, 1).Value = "" Then Cells(Date_Facture, 1).Value = TxtDate_Facture.Text
Next Date_Facture
For Numero_Facture = 1 To 1
If Cells(Numero_Facture, 2).Value = "" Then Cells(Numero_Facture, 2).Value = TxtNumero_Facture.Text
Next Numero_Facture
For Montant_facture = 1 To 1
If Cells(Montant_facture, 3).Value = "" Then Cells(Montant_facture, 3).Value = TxtMontant_facture.Text
Next Montant_facture
For Nom_Entreprise = 1 To 1
If Cells(Nom_Entreprise, 7).Value = "" Then Cells(Nom_Entreprise, 7).Value = TxtNom_Entreprise.Text
Next Nom_Entreprise
Unload FrmInformation
End Sub
Le problème est que je ne suis pas capable de le faire apparaitre dans mon fichier excel.
J'ai vraiment besoin de votre aide! Merci à l'avance