Discussion :

[njinkeu.mbakob]

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

[fring]

Bonjour,

Le problème vient sans doute des"valeur" qu'il faut écrire "Value"

Pour info, si tu écris Cells(1, 1) cela équivaut à Cells(1, 1).Value

J'ai passé un ptit coup d'aspirateur dans ton code, essaye le comme ceci :

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
45
46
47
48
49
Sub mise_à_jour()
Dim i As Integer, j As Integer, qte1 As Integer, qte2 As Integer, aux1 As Integer, aux2 As Integer
Dim WSfac As Worksheet, WScmd As Worksheets, WSsto As Worksheet, WSven As Worksheet
 
Set WSfac = Worksheets("FACTURE")
Set WScmd = Worksheets("Cmdes")
Set WSsto = Worksheets("Fstock")
Set WSven = Worksheets("Fvendeur")
 
For i = 6 To 11
  If WSfac.Cells(5, 7) = WScmd.Cells(i, 1) Then
     If WScmd.Cells(i, 12) = "oui" Then
        MsgBox "cette commande a déjà été facturéé "
        Exit Sub
     Else
        WScmd.Cells(i, 12) = "oui"
     End If
  End If
Next i
 
For i = 15 To 19
  If WSfac.Cells(i, 3) <> "" Then
     qte1 = WSfac.Cells(i, 5)
     For j = 6 To 14
        If WSsto.Cells(j, 1) = WSfac.Cells(i, 3) Then
           qte2 = WSsto.Cells(j, 3)
           WSsto.Cells(j, 3) = qte2 - qte1
        End If
     Next j
  End If
Next i
 
For i = 6 To 8
  If WSven.Cells(i, 1) = WSfac.Cells(28, 4) Then
     If WSven.Cells(i, 4) = "" Then
        WSven.Cells(i, 4) = WSfac.Cells(26, 4)
        WSven.Cells(i, 5) = WSfac.Cells(26, 4)
     Else
        aux1 = WSven.Cells(i, 4)
        aux2 = WSven.Cells(i, 5)
        WSven.Cells(i, 4) = aux1 + WSfac.Cells(26, 4)
        If aux2 > WSfac.Cells(26, 4) Then
           WSven.Cells(i, 5) = WSfac.Cells(26, 4)
        End If
     End If
  End If
Next i
 
End Sub

et dis moi si cela coince encore quelque par vu que je ne peux pas le tester

[njinkeu.mbakob]

merci pour la solution mais le code ne execute pas
au niveau de l' instruction

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

 Set WScmd = Worksheets("Cmdes")

un message d' erreur est renvoyer à savoir
run-time error '13'

s'il vous plait il y a quelle diference entre
cells(1,1) et cells(1,1).valeur

[Gorfael]

Salut à tous
Salut njinkeu.mbakob

je me suis debutant et j' ai un problème

Je vais pas redonner la même chosz fring, une fois suffit
Déjà, pour un "débutant", penser à déclarer ses variables, c'est super.

Tu demandes de corriger ton code et je ne peux pas : un code est indissociable de l'action qu'on veut lui faire faire (l'algorythmes, ça fait plus pro, non ? ).

ores, là, j'ai une macro qui utilises des feuilles de noms Factures, Commandes,... et uniquement sur des lignes fixes. Et ne connaissant pas le but à atteindre, je ne peux corriger le code. Un exemple (j'ai pris le code de fring

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
For i = 6 To 11
  If WSfac.Cells(5, 7) = WScmd.Cells(i, 1) Then
     If WScmd.Cells(i, 12) = "oui" Then
        MsgBox "cette commande a déjà été facturéé "
        Exit Sub
     Else
        WScmd.Cells(i, 12) = "oui"
     End If
  End If
Next i

Donc, on regarde pour la colonne G (moi, je préfère écrire Range("G" & i), le point derrière m'ouvre la liste des propriétés accessibles ce qui évite certaines erreurs, ou Cells(i,"G"), ce qui est plus lisible que Cells(i,7), mais chacun sa méthode).les lignes 6 à 11 (les 6 lignes). Pour un gain de temps, je mettrais

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
     Else
        WScmd.Cells(i, 12) = "oui"
        Exit For
     End If

Pas après le premier End If, comme dans ton code initial, non parce que ça ne marcherait pas (dans ce code, le fonctionnement est identique), mais parce que c'est lié l'inscrption du Oui en L12.
Et là, problème : je ne sais pas ce que tu veux en faire ! Je n'ai pas vu d'autre modification de cette cellule (une remise à ""), donc le code me semble incomplet : si tu as "OUI" en L7 une fois, quelque soit le nombre de fois où tu lanceras ta macro, il t restera.
Donc, pour corriger un code, j'ai besoin de savoir le but à atteindre, ce qu'il doit faire.

A+