Discussion :

[Markos22]

Bonjour,

J'ai trouvé un tuto sur ce site, avec une vidéo "Facturation avec interface graphique", mais je suis coincé. J'ai programmé un bouton de mon userform, et le résultat n'est pas celui escompté.
Je joins ci-dessous mon fichier Excel avec Macro, nommé "facturation-vba.xlsm". Le procédé est simple : l'interface graphique doit permettre à la facture de se remplir automatiquement sur l'onglet "facturation" de la feuille excel.

La programmation du bouton "ajouter" doit permettre de vérifier si le contenu de la zone de saisie "quantite" est bien numérique, sinon un message d'erreur apparaît, et on sort de la procédure. Sinon, elle doit vérifier les stocks dans la colonne F de l'onglet "articles", puis, si la quantité saisie est disponible, inscrire une nouvelle ligne correspondant à l'article, avec sa quantité, son montant.

Le problème est que le programme vérifie bien si la saisie est bien numérique, mais il ne fait rien d'autre. Il ne vérifie pas les stocks, et n'écrit rien dans l'onglet "facturation".

Mon code est le suivant :

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
Private Sub ajouter_Click()
Dim ligne As Integer: ligne = 2
Dim lignef As Integer: ligne = 6
 
If (Liste_ref.SelText <> "") Then
    If (IsNumeric(quantite.Value) = False) Then
        MsgBox ("La quantité saisie n'est pas un nombre, veuillez corriger !")
        Exit Sub
 
    Else
        While (ThisWorkbook.Worksheets("articles").Cells(ligne, 3).Value <> "")
            If (ThisWorkbook.Worksheets("articles").Cells(ligne, 3).Value = Liste_ref.SelText) Then
                If (Int(quantite.Value) > Int(ThisWorkbook.Worksheets("articles").Cells(ligne, 6).Value)) Then
                    MsgBox ("La quantité en stock pour cette référence n'est que de " & ThisWorkbook.Worksheets("articles").Cells(ligne, 6).Value)
                    Exit Sub
                Else
                    While (ThisWorkbook.Worksheets("facturation").Cells(lignef, 3).Value <> "")
                        lignef = lignef + 1
                    Wend
                    ThisWorkbook.Worksheets("facturation").Cells(lignef, 3).Value = Liste_ref.SelText
                    ThisWorkbook.Worksheets("facturation").Cells(lignef, 5).Value = quantite.Value
                End If
            End If
            ligne = ligne + 1
        Wend
    End If
End If
 
End Sub

Où ai-je fait une erreur ?

Merci de votre aide,
A bientôt !

[Markos22]

OK, je sors ! Désolé : l'erreur était sous mes yeux (comme d'hab') : ligne 3, j'ai créé une variable lignef, et au lieu de l'initialiser avec

Code :

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

lignef = 6

, j'ai initialisé la variable ligne. C'est idiot.

[Philippe Tulliez]

Bonjour,
Pourquoi, n'as-tu posé cette question directement sur le site initiateur du classeur ?

[Markos22]

Bonjour Philippe,

Il n'y a pas de forum, apparemment, sur ce site. J'ai trouvé la vidéo par hasard, sur Youtube, puis j'ai basculé sur le site de l'auteur, mais il ne semble pas y avoir de forum. Ce qui est sûr, c'est qu'il faut que je relise 7 fois mon code avant de poster une question sur le forum, parce que je trouve trop souvent la réponse tout seul. En l'occurrence, il s'agissait d'une bête faute d'inattention. Désolé.

D'ailleurs, ne serait-il pas possible de permettre au créateur d'un post de le supprimer, afin de ne pas encombrer le forum de questions inutiles ?... Je dis ça, je dis rien...