Re : modele facture
salut pascal
tu indique " moto600s j'ai regarder ton fichier que tu propose a lcoulon mais tu n'a strictement pas appliquer les conseils de paritec en matière de réduction de codes créer par l'enregistreur, avant de le proposer a d'autres montre au moins que tu suis attentivement ce que l'o t'as montré"
je suis désolé mais la réduction à bien été faite. en faisant un clic droit sur l'icone "disquette" en demandant "affecter une macro et en choisissant "facture_RP.xlsm!Bouton34_Clic" qui la macro utilisée, tu remarqueras ceci : qui est le code que paritec m'a si aimablement communiqué.
Sub Bouton34_Clic()
'Sub sauvegarde_facture()
With Sheets("enregistrement_factures")
.Rows("2:2").Insert Shift:=xlDown
.Rows("2:2").ClearFormats
For i = 6 To 9
.Cells(2, 2 + a) = Sheets("Modèle").Range("J" & i)
a = a + 1
Next i
.Cells(2, 6) = Sheets("Modèle").Range("J12")
.Cells(2, 7) = Format(Sheets("Modèle").Range("J15"), "00 00 00 00 00")
.Cells(2, 8) = Format(Sheets("Modèle").Range("J16"), "00 00 00 00 00")
.Cells(2, 9) = Sheets("Modèle").Range("J14")
.Cells(2, 10) = Format(Sheets("Modèle").Range("L4"), "dd/mm/yyyy")
.Cells(2, 11) = Format(Sheets("Modèle").Range("L37"), "#,##0.00 €")
.Cells(2, 1) = Format(Sheets("Modèle").Range("I4"), "0000")
.Cells(2, 12) = Format(Sheets("Modèle").Range("L5"), "0000")
End With
' incrementation numro facture
Sheets("Modèle").Range("L5") = Sheets("Modèle").Range("L5") + 1
'End Sub
End Sub
je te remercie pour les remarques que tu as pu me faire qui m'ont été tout aussi utile.
par contre si la réduction que tu me parle n'est pas celle ci , tu peux me le signaler.
mon partiel doit être rendu pour le 1 er février.
si tu as aussi la solution pour utiliser deux bases de données.
exemple un clients veut changer un pare bris et ses pneus comme intégrer les pneus dans la facture.
on ne me le demande pas mais en option je peut l'incorporer.
merci pour tout
julien