XL 2010 Gestion de stock

[ludo170967]

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

 

[sylvanu]

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 :

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]

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]

Bonjour Ludo 170967,

Je t'ai corrigé quelques détails.

Cordialement.