XL 2010 Gestion de stock

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

ludo170967

XLDnaute Nouveau
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
 

Pièces jointes

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.
 

Pièces jointes

- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
1
Affichages
115
Réponses
3
Affichages
712
Réponses
0
Affichages
131
Réponses
10
Affichages
184
Réponses
1
Affichages
222
Réponses
2
Affichages
410
Réponses
3
Affichages
153
Réponses
18
Affichages
412
Retour