1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44
| Sub mise_à_jour()
Dim i As Integer, j As Integer, qte1 As Integer, qte2 As Integer, aux1 As Integer, aux2 As Integer
For i = 6 To 11
If (Worksheets("FACTURE").Cells(5, 7).valeur = Worksheets("Cmdes").Cells(i, 1).valeur) Then
If (Worksheets("Cmdes").Cells(i, 12).valeur = "oui") Then
MsgBox "cette commande a déjà été facturéé "
Stop
End If
Else
Worksheets("Cmdes").Cells(i, 12).valeur = "oui"
End If
Exit For
Next i
For i = 15 To 19
If Not (IsEmpty(Worksheets("FACTURE").Cells(i, 3))) Then
qte1 = Worksheets("FACTURE").Cells(i, 5).valeur
For j = 6 To 14
If Worksheets("Fstock").Cells(j, 1).valeur = Worksheets("FACTURE").Cells(i, 3).valeur Then
qte2 = Worksheets("Fstock").Cells(j, 3).valeur
Worksheets("Fstock").Cells(j, 3).valeur = qte2 - qte1
End If
Next j
End If
Next i
For i = 6 To 8
If Worksheets("Fvendeur").Cells(i, 1).valeur = Worksheets("FACTURE").Cells(28, 4).valaur Then
If IsEmpty(Worksheets("Fvendeur").Cells(i, 4)) Then
Worksheets("Fvendeur").Cells(i, 4).valeur = Worksheets("FACTURE").Cells(26, 4)
Worksheets("Fvendeur").Cells(i, 5).valeur = Worksheets("FACTURE").Cells(26, 4)
Else
aux1 = Worksheets("Fvendeur").Cells(i, 4).valeur
aux2 = Worksheets("Fvendeur").Cells(i, 5).valeur
Worksheets("Fvendeur").Cells(i, 4).valeur = aux1 + Worksheets("FACTURE").Cells(26, 4)
If aux2 > Worksheets("FACTURE").Cells(26, 4) Then
Worksheets("Fvendeur").Cells(i, 5).valeur = Worksheets("FACTURE").Cells(26, 4)
End If
End If
Exit For
End If
Next i
End Sub |
Partager