Aide Sur une application de facturation sous VBA Excel

**eliyakamalebo** · 31/12/2016, 11h53

je fais une application et tout passe bien mais le seul probleme c'es que quand je vais valider la facture ca ne passe pas.
les autres conditions passent mais au niveau où toutes les conditions sont bonnes et qu'il faut valider la facture ça dit "OBJET REQUIS" et là je ne comprends rien.
Votre aide me sera necessaire

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
50
51
52
53
54
55
56
57
58
59
60
61
Sub verification_facture() 
Dim cellule As Range: Dim test As Boolean 
test = False 
 
For Each cellule In Range("D626") 
If (cellule.Value = "Rupture de Stock") Then 
test = True 
Exit For 
End If 
Next cellule 
 
If (test = True) Then 
MsgBox ("Des articles hors stock figurent dans la facture, il n'est pas possible de continuer") 
Exit Sub 
End If 
 
Dim ligne As Integer: ligne = 2 
Dim valeur_stock As Integer: valeur_stock = 0 
Dim valeur_demandée As Integer: valeur_demandée = 0 
Dim ref_cat As String: Dim ref_facture As String 
Dim choix_utilisateur As Byte 
 
While (Workbooks("catalogue.xlsx").Worksheets("Feuil1").Cells(ligne, 5).Value <> "") 
valeur_stock = Workbooks("catalogue.xlsx").Worksheets("Feuil1").Cells(ligne, 5).Value 
ref_cat = Workbooks("catalogue.xlsx").Worksheets("Feuil1").Cells(ligne, 3).Value 
 
 
For Each cellule In ThisWorkbook.Worksheets("facturation").Range("C6:C26") 
 
If (cellule.Value = ref_cat) Then 
valeur_demandée = ThisWorkbook.Worksheets("facturation").Cells(cellule.Row, 5) 
If (valeur_demandée > valeur_stock) Then 
MsgBox ("La référence..." & cellule.Value & "...ne possède pas assez de Stock") 
test = True 
End If 
End If 
Next cellule 
 
ligne = ligne + 1 
Wend 
If (test = True) Then 
Exit Sub 
 
Else 
choix_utilisateur = MsgBox("La facture semble correcte,souhaitez-vous l'imprimer et mettre à jour les stock??", vbYesNo) 
If (choix_utilisateur = 6) Then 
For Each cellule In thisworkbooks.Worksheets("facturation").Range("C6:C26") 
ligne = 2 
While (Workbooks("catalogue.xlsx").Worksheets("Feuil1").Cells(ligne, 5).Value <> "") 
If (cellule.Value = Workbooks("catalogue.xlsx").Worksheets("Feuil1").Cells(ligne, 3).Value) Then 
Workbooks("catalogue.xlsx").Worksheets("Feuil1").Cells(ligne, 5).Value = Workbooks("catalogue.xlsx").Worksheets("Feuil1").Cells(ligne, 5).Value - thisworkbooks.Worksheets("facturation").Cells(cellule.Row, 5).Value 
End If 
ligne = ligne + 1 
Wend 
Next cellule 
Else 
Exit Sub 
End If 
End If 
ThisWorkbook.Worksheets("facturation").PrintPreview 
End Sub

**Marc-L** · 31/12/2016, 12h18

Corriger la faute d'orthographe dans la ligne déclenchant l'erreur ‼

Astuce : quand un mot réservé du langage reste totalement en minuscules, alors il est mal orthographié …

_________________________________________________________________________________________________________

Je suis Paris, Berlin, Nice, Bruxelles, Charlie, …

**joe.levrai** · 31/12/2016, 12h26

Bonjour,

comme les frères DuponT (ou un D ....) :

je dirais même plus, corriger LES deux fautes d'orthographes sur deux lignes de ta procédure, toujours sur le même mot

je mirais dême plus, lorriger ces feux dautes d'orthographes sur deux pignes de ta rocédure, moujours sur le tême tot.

**Marc-L** · 31/12/2016, 12h33

Salut joe !

Je me suis arrêté à la première ligne pouvant déclencher le même message d'erreur
mais c'est vrai il y a tellement de lignes n'allant pas ou ne servant à rien …

Beaucoup de code inutile - notamment des boucles - en utilisant une simple formule de calculs, même en VBA …

**unparia** · 31/12/2016, 12h42

Bonjour (et un salut à Marc)
erreur en effet manifeste à la ligne 47 du code montré.
Je déplore personnellement au passage que ce code, sans indentation, donne des maux de tête et rend tant son analyse que (par voie de conséquence) sa maintenance éventuelle, pour le moins douloureuses. Ce n'est pas le signe d'un vrai soin apporté à ce que l'on écrit.

**Marc-L** · 31/12/2016, 12h45

Salut Jacques !

Je n'ai pas indiqué le numéro de la ligne car c'est au demandeur de l'effectuer
dès sa présentation initiale devant déjà débuter par une salutation !

Invité · 01/01/2017, 23h39

Bonsoir,
Code on ne peut plus intéressant! Combien de boucles escomptes tu faire avec un seule cellule!
Suis d'avis qu'un teste serait préférable à une boucle!

Code :

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