XL 2010 Gestion de stock

ludo170967 · 3 Novembre 2020

Bonjour le fil,
Je suis nouveau sur le site, et j'aimerai de l'aide pour finir mon fichier.
J'ai déjà envoyé une discussion mais je ne la vois pas. C'est pour cela que je recommence (désolé)
j'ai commencé a créer un fichier de gestion de stock, mais j'ai mon code de userform qui ne fonctionne pas.
Pouvez-vous m'aider
merci
Ludo

GuillaumeTenim · 3 Novembre 2020

Bonjour Ludo 170967,

Je t'ai corrigé quelques détails.

Cordialement.

sylvanu · 3 Novembre 2020

Bonsoir Ludo,
J'ai corrigé pas mal de fautes, appelé les textbox par de petits noms c'est plus lisible, et indenté pour être aussi plus lisible. De plus le With simplifie le code :

VB:

Private Sub CommandButton1_Click()
'double click bouton ajouter
If Madate.Value = "" Then
    MsgBox "Veuillez renseigner le champs 'Date'"
Else
    Dim Ligne As Integer
    If MsgBox("confirmez-vous l'ajout des données ?", vbYesNo, "confirmation") = vbYes Then
        With Sheets("Mouvements de stocks")
            Ligne = .Range("A65000").End(xlUp).Row + 1
            .Cells(Ligne, 1) = Madate.Value
            .Cells(Ligne, 2) = Zone.Value
            .Cells(Ligne, 3) = Véhicule.Value
            .Cells(Ligne, 4) = Produits.Value
        End With
        Unload UserForm1
        UserForm1.Show
    End If
End If
End Sub

Au moins dans l'état le Userform s'ouvre sans erreur.

ludo170967 · 3 Novembre 2020

Bonsoir,
Merci beaucoup pour ton aide, je vais essayer de finir le fichier.
Mais je pense que je vais avoir besoin d'aide.
Bonne soirée
Ludo

GuillaumeTenim · 3 Novembre 2020

Bonjour Ludo 170967,

Je t'ai corrigé quelques détails.

Cordialement.

XL 2010 Gestion de stock

ludo170967

XLDnaute Nouveau

Pièces jointes

GuillaumeTenim

sylvanu

XLDnaute Barbatruc

Pièces jointes

ludo170967

XLDnaute Nouveau

GuillaumeTenim

XLDnaute Nouveau

Pièces jointes

Discussions similaires