Facture/Note de crédit quantité à adapter

Bonjour à tous et à toutes,

Je viens vers vous pour mon fichier qui est en attache de facture.

Dans la cellule C1 FACTURE / NOTE DE CREDIT avec une liste déroulante quand je choisis la note de crédit, toute la colonne F en entier le total et sous total devient négatif, jusque là c'est bon.

Je souhaiterais en même temps que la colonne D dont la quantité (les quantités) devrait rester à 0 ou en négatif (sinon a l'exécution du macro au niveau de la gestion de mon stock se complique aussi)

A l'exécution du macro quand c'est une facture la quantité du produit choisit diminue, mais quand c'est une note de crédit ne devrait pas diminuer mais rajouter peut-être.

=SI($C$1="NOTE DE CREDIT";-SIERREUR(E14*D14;0);SIERREUR(E14*D14;0))

Merci d'avance.

Bonsoir Thibet

Merci de poster votre fichier avec les macros dont vous parlez SVP

A+

Bonsoir Bruno,

Sorry je pensai plutôt au niveau des formules et non du macro, car relation facture / note de crédit c'est un formule

=SI($C$1="NOTE DE CREDIT";-SIERREUR(E14*D14;0);SIERREUR(E14*D14;0))

Mais si ca peut nous aidez voici le macro :

Sub ArchiverFacture()
Dim Ligne%, Whd As Worksheet, Wd As Worksheet
Dim i, Wdd As Worksheet
Dim NomFichier As String, Chemin As String

Application.ScreenUpdating = False
Application.EnableEvents = False

Set Whd = Sheets("Historique_Facture")
Set Wd = Sheets("FACTURE")
Set Wdd = Sheets("Stock")


NomFichier = "Facture" & Format(Now() - 1, " dd-mm-yyyy") & Format(Time, " hh-mm") & ".pdf"
Chemin = "C:\Users\ThibetStavaux\Desktop\folder_archive\archive\"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Chemin & NomFichier



Ligne = Whd.Range("A" & Rows.Count).End(xlUp).Row + 1
Whd.Range("A" & Ligne).Value = Wd.Range("B6").Value
Whd.Range("B" & Ligne).Value = Wd.Range("B8").Value
Whd.Range("C" & Ligne).Value = Wd.Range("B11").Value
Whd.Range("D" & Ligne).Value = Wd.Range("D7:E7:F7").Value
Whd.Range("E" & Ligne).Value = Wd.Range("D8:E8:F8").Value
Whd.Range("F" & Ligne).Value = Wd.Range("D9:E9:F9").Value
Whd.Range("G" & Ligne).Value = Wd.Range("D10:E10:F10").Value
Whd.Range("H" & Ligne).Value = Wd.Range("D11").Value
Whd.Range("I" & Ligne).Value = Wd.Range("F36").Value
Whd.Range("J" & Ligne).Value = Wd.Range("F41").Value
Whd.Range("K" & Ligne).Value = Wd.Range("B8").Value

Whd.Hyperlinks.Add Anchor:=Whd.Range("K" & Ligne), Address:=Chemin & NomFichier
Ligne = Sheets("Stock").Range("C" & Rows.Count).End(xlUp).Row + 1

Sheets("Stock").Range("A" & Ligne).Value = Wd.Range("B8").Value
Sheets("Stock").Range("B" & Ligne).Value = Wd.Range("B11").Value

For i = 14 To 28
If Wd.Range("B" & i).Value = "" Then Exit For
Sheets("Stock").Range("C" & Ligne).Value = Wd.Range("B" & i).Value
Sheets("Stock").Range("D" & Ligne).Value = Wd.Range("C" & i).Value
Sheets("Stock").Range("E" & Ligne).Value = Wd.Range("D" & i).Value
Ligne = Ligne + 1
Next

Sheets("Genel").Range("B2") = Sheets("Genel").Range("B2") + 1
Sheets("Genel").Range("C2") = Sheets("Genel").Range("C2") + 1


Wd.Range("D7:F7").ClearContents: Wd.Range("B14:B28").ClearContents
Wd.Range("D14:D28").ClearContents: Wd.Range("B30:E34").ClearContents
Wd.Range("F37").ClearContents: Wd.Range("F39").ClearContents: Wd.Range("F40").ClearContents
Wd.Range("D7").Select

Application.ScreenUpdating = True
Application.EnableEvents = True


End Sub