Sub btnSauvegarder() 'Sauvegarde la facture dans la feuille "Ventes"
Static ligne As Integer: ligne = Worksheets("data").Cells(1, 1) 'Compteur pour savoir a quel ligne écrire
Static noFacture As Integer 'Garde en mémoire le numéro de la facture

'Met les données dans la feuille "Vente"
Worksheets("Ventes").Cells(ligne + 4, 1) = Worksheets("Facture").Cells(9, 3)   'Date
Worksheets("Ventes").Cells(ligne + 4, 2) = Worksheets("Facture").Cells(9, 8)   'Facture
Worksheets("Ventes").Cells(ligne + 4, 3) = Worksheets("Facture").Cells(13, 3)  'Client
Worksheets("Ventes").Cells(ligne + 4, 4) = Worksheets("Facture").Cells(52, 10) 'Sous-total
Worksheets("Ventes").Cells(ligne + 4, 5) = Worksheets("Facture").Cells(53, 10)  'TPS
Worksheets("Ventes").Cells(ligne + 4, 6) = Worksheets("Facture").Cells(54, 10) 'TVQ
Worksheets("Ventes").Cells(ligne + 4, 7) = Worksheets("Facture").Cells(55, 10) 'Total
Worksheets("data").Cells(1, 1) = Worksheets("data").Cells(1, 1) + 1 'Passe a la prochaine ligne dans "Ventes"
'Fin

'Incrémente et affiche le numéro de la facture
Worksheets("data").Cells(2, 1) = Worksheets("data").Cells(2, 1) + 1
noFacture = Worksheets("data").Cells(2, 1)
Worksheets("Facture").Cells(9, 8) = CStr(Year(Date)) + "-" + CStr(Format(noFacture, "0000"))
'Fin

'Efface les données de la facture
Call btnEffacer
End Sub