Sub verification_stock()
ActiveSheet.Unprotect Password:="54628"
Dim cellule As Range: Dim test As Boolean
test = False
For Each cellule In Range("E10:E19")
If (cellule.Value = "-") Then
test = True
Exit For
End If
Next cellule
If (test = True) Then
MsgBox ("Des articles hors stock figurent dans la facture kankoer, il n'est pas possible de continuer")
'ICI
Call Mon_MDP
Exit Sub
End If
Dim ligne As Integer: ligne = 2
Dim valeur_stock As Integer: valeur_stock = 0
Dim valeur_demandee As Integer: valeur_demandee = 0
Dim ref_cat As String: Dim ref_facture As String
Dim choix_utilisateur As Byte
While (Workbooks("APK KKR FACTURE.xlsm").Worksheets("stock").Cells(ligne, 5).Value <> "")
valeur_stock = Workbooks("APK KKR FACTURE.xlsm").Worksheets("stock").Cells(ligne, 5).Value
ref_cat = Workbooks("APK KKR FACTURE.xlsm").Worksheets("stock").Cells(ligne, 1).Value
For Each cellule In ThisWorkbook.Worksheets("facture").Range("a10:a19")
If (cellule.Value = ref_cat) Then
valeur_demandee = ThisWorkbook.Worksheets("facture").Cells(cellule.Row, 2)
If (valeur_demandee > valeur_stock) Then
MsgBox ("la reference" & cellule.Value & "kankoer ne possede pas assez de stock")
test = True
End If
End If
Next cellule
ligne = ligne + 1
Wend
If (test = True) Then
'ICI
Call Mon_MDP
Exit Sub
Else
choix_utilisateur = MsgBox("la facture kankoer semble correcte. souhaitez-vous l'imprimer et mettre a jour le stock?", vbYesNo)
If (choix_utilisateur = 6) Then
For Each cellule In ThisWorkbook.Worksheets("facture").Range("a10:a19")
ligne = 2
While (Workbooks("APK KKR FACTURE.xlsm").Worksheets("stock").Cells(ligne, 5).Value <> "")
If (cellule.Value = Workbooks("APK KKR FACTURE.xlsm").Worksheets("stock").Cells(ligne, 1).Value) Then
Workbooks("APK KKR FACTURE.xlsm").Worksheets("stock").Cells(ligne, 5).Value = Workbooks("APK KKR FACTURE.xlsm").Worksheets("stock").Cells(ligne, 5).Value - ThisWorkbook.Worksheets("facture").Cells(cellule.Row, 2).Value
End If
ligne = ligne + 1
Wend
Next cellule
Else
'ICI
Call Mon_MDP
Exit Sub
End If
End If
ThisWorkbook.Worksheets("facture").PrintPreview
Sheets("facture").Protect Password:="54628", Contents:=True, Scenarios:=True
End Sub
Sub Mon_MDP()
Sheets("facture").Protect Password:="54628", Contents:=True, Scenarios:=True
End Sub