1 pièce(s) jointe(s)
Formulaire saisie facture
Bonjour,
Je voudrai créer un formulaire de saisie de facture. J'ai commencer par ce formulaire (voir copie du fichier que j'ai creer) mais je bloque lorsque je veux saisir le détail des charges;
En effet mon formulaire de saisie de facture comprend au moins deux lignes. C'est a dire que la première ligne que je dois saisir correspond a l'identification du fournisseur et de l'identification de la facture à savoir la date de la facture le nom du fournisseur le n° de facture, le mode règlement de la facture et le montant TTC de la facture.
La deuxième ligne correspond au détail de la facture, au taux de tva, et du montant HT de la facture.
Ma question est comment dois je faire pour pour que le code charge et le montant HT soit saisi sur la deuxième ligne après la ligne identification.
pour info voici le code que j'utilise pour le formulaire
Code:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22
| Private Sub CommandButton1_Click()
Dim Ctrl As Control
Dim r As Integer
Dim t As Integer
Dim DerLigne As Integer
With Worksheets("Feuil1")
DerLigne = .Range("c6000").End(xlUp).Row + 1
For Each Ctrl In UserForm1.Controls
r = Val(Ctrl.Tag)
If r > 0 Then Feuil1.Cells(DerLigne, r) = Ctrl
Next
End With
TextBox1 = ""
End
End Sub |
Merci pour l'aide que vous pouvez m'apporter