salut
je me suis debutant et j' ai un problème
mon code vba ne compile pas
s' il vous plait aidez-moi à le corriger
merci
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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