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

For Each cellule In Range("D626")

Un code trouvé sur internet mérite qu'on si intéresse afin de mieux l'adapter à son besoin.

**HopPopPop** · 02/01/2017, 09h26

Bonjour à tous et meilleurs vœux pour 2017,
il a dû vouloir écrire cela ... mais ne l'a pas fait.

Code :

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

For Each cellule In Range("D6:D26")

Invité · 02/01/2017, 09h51

Bonjour et bonne année à tous!

tu as sans doute raison, et c'est bien le signe d'un manque de sérieux dans la retranscription, et ce poste n’aurait aucun objet si une lecture attentif avait été faite!

**joe.levrai** · 02/01/2017, 11h10

Bonjour,

qu'il y ait erreur ou non dans l'écriture du Range, il n'en demeure pas moins que cette portion de code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
For Each cellule In Range("UnePlageDePlusieursCellules") 
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

1) Cherche dans chaque cellule, si au moins une cellule contient "Rupture de Stock"
2) Si tel est le cas : valide un "test" booléen
3) Vérifie l'état du test
4) S'il est positif, on affiche un message et on s'en va

Alors pourquoi pas tout faire en même temps plutôt que d'emprunter plusieurs chemins qui ne sont que des prolongements du précédent ?
Et en utilisant directement les outils Excel !

Code :

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

1
2
3
4
If Application.WorksheetFunction.CountIf(Range("D6:D26"), "Rupture de Stock") > 0 Then
    MsgBox "Des articles hors stock figurent dans la facture, il n'est pas possible de continuer"
    Exit Sub
End If

Ce principe va s'appliquer également dans la suite du code, qui a juste oublié son Ravet-Anceau pour emprunter la route la plus directe.

**eliyakamalebo** · 02/01/2017, 11h40

la faute d'orthographe c'est à quel niveau dans cette ligne???
cordialement merci

tu peux me faire une idée sur la façon de faire tout au meme moment au lieu d'emprunter plusieurs chemins???

**joe.levrai** · 02/01/2017, 11h46

Te faire une idée ?

Ce n'est pas ce que j'ai fait dans mon message précédent ?

Et puis, corriger la faute d'orthographe .... unparia t'as donné la ligne de ton code où elle existe, Marc-L t'a indiqué comment trouver "le bon mot", c'est à dire qu'un mot "spécial" est sur cette ligne de code, et qu'il est censé contenir une majuscule en premier (quand il est bien écrit).
Ce mot, il est déjà bien écrit ailleurs dans ton code.

Alors maintenant, on t'a donné tout ce qu'il fallait, c'est à toi d'y mettre du tient si tu veux résoudre tes problématiques ?

**eliyakamalebo** · 02/01/2017, 11h50

Oui oui je viens de voir maintenant.

Merci à vous tous pour vos idées qui me servent

cordialement

**eliyakamalebo** · 03/01/2017, 15h25

Bonjour encore

j'ai corrigé toutes les fautes d'orthographes dont vous m'avez parlé mais quand je valide la facture il me dit "Objet Requis" et puis ne passe pas.....

Ci-Joint la capture d'écran

quelqu'un voudra-t-il bien m'aidé svp???

**joe.levrai** · 03/01/2017, 17h21

Bonjour,

fais tourner ta procédure en mode pas à pas, afin que chaque ligne de code soit traitée sous ton contrôle

quand tu seras sur la ligne qui pose problème, tu auras ton message d'erreur, et tu sauras quelle ligne corriger.

A quoi ressemble ton code actuellement ?

**eliyakamalebo** · 04/01/2017, 09h49

Mon code est ci-joint...........les quelques fautes qu'il y a là je les ai corrigé mais ca me donne le même message quand je valide la facture

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("D6:D26")
    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

**unparia** · 04/01/2017, 10h50

cela te rérangerait vraiment de mettre ici ton code (que chacun puisse le voir) au lieu de joindre un fichier texte ?
Le voilà, ton code, mis entre balises code, donc :

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("D6:D26")
    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

Et il a toujours la même faute d' "orthographe"" en sa ligne 47.
C'est juste désespérant.

**eliyakamalebo** · 04/01/2017, 12h37

Unparia, j'ai dejà corrigé l'erreur de la ligne 47......c'est ThisWorkbook.Worksheets(.....)

Et voilà que malgré ça ca présente la même erreur

**Marc-L** · 04/01/2017, 12h52

Et nous ne voyons toujours pas le code corrigé et nous ne savons toujours pas quelle ligne déclenche une erreur et laquelle !

De la précision nait la solution …

Invité · 04/01/2017, 13h06

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
Sub verification_facture()
    Dim cellule As Range: Dim test As Boolean: test = False
    For Each cellule In Range("D6:D26")
        If (cellule.Value = "Rupture de Stock") Then test = True: Exit For
    Next cellule
 
    If (test = True) Then MsgBox ("Des articles hors stock figurent dans la facture, il n'est pas possible de continuer"): Exit Sub
    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, ref_facture As String, choix_utilisateur As Byte
 
    Dim Fact As Worksheet: Set Fact = ThisWorkbook.Worksheets("facturation")
    With Workbooks("catalogue.xlsx").Worksheets("Feuil1")
        While (Trim("" & .Cells(ligne, 5).Value) <> "")
            valeur_stock = .Cells(ligne, 5).Value
            ref_cat = .Cells(ligne, 3).Value
            For Each cellule In Fact.Range("C6:C26")
                If (cellule.Value = ref_cat) Then
                    valeur_demandée = cellule.Offset(0, 2)
                    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
        choix_utilisateur = MsgBox("La facture semble correcte,souhaitez-vous l'imprimer et mettre à jour les stock??", vbYesNo)
        If (choix_utilisateur <> 6) Then Exit Sub
            For Each cellule In Fact.Range("C6:C26")
                ligne = 2
                While (Trim("" & .Cells(ligne, 5).Value) <> "")
                    If (cellule.Value = .Cells(ligne, 3).Value) Then .Cells(ligne, 5).Value = .Cells(ligne, 5).Value - cellule.Offset(0, 2).Value 'E=col 5, C= col 3
                    ligne = ligne + 1
                Wend
            Next cellule
        Fact.PrintPreview
    End With
End Sub

Aide Sur une application de facturation sous VBA Excel

Macros et VBA Excel

Discussions similaires

Partager

Partager