Gestion Commande (stock)
pling
-
castours Messages postés 2955 Date d'inscription Statut Membre Dernière intervention -
castours Messages postés 2955 Date d'inscription Statut Membre Dernière intervention -
Bonjour ,
j'ai mis en place un fichier excel pour faire le suivi de mon stock et je voudrais maintenant créer un formulaire de commande pour qu'on puisse à chaque fois qu'on rentre une commande de produit x , ressortir les produit en stock correspondants à ce produit à savoir: produit fini / produit semi fini / matière première
en commençant mon formulaire je voudrais introduire une liste déroulante relié au fichier client pour sélectionner le client qui a pris cette commende et ressortir toute les infos correspondante
ensuite
je fais entrer la commande ( un code produit)
et on m'affiche le stock correspondant à celui ci (produit fini) et le reste (produit semi fini / matière première )
j'ai déjà commencer mon formulaire mais je coince au niveau de la mise en place de liste de donnée déroulante partant d'un produit === designation === gamme===format , les donnée sont enregistrer dans la feuil2 du fichier mais ça bloque et je ne sais pas du tout ou se trouve le problème
voici le fichier si quelqu'un a une idée ? http://cjoint.com/?0GFrlJ0zAho
merci d'avance
j'ai mis en place un fichier excel pour faire le suivi de mon stock et je voudrais maintenant créer un formulaire de commande pour qu'on puisse à chaque fois qu'on rentre une commande de produit x , ressortir les produit en stock correspondants à ce produit à savoir: produit fini / produit semi fini / matière première
en commençant mon formulaire je voudrais introduire une liste déroulante relié au fichier client pour sélectionner le client qui a pris cette commende et ressortir toute les infos correspondante
ensuite
je fais entrer la commande ( un code produit)
et on m'affiche le stock correspondant à celui ci (produit fini) et le reste (produit semi fini / matière première )
j'ai déjà commencer mon formulaire mais je coince au niveau de la mise en place de liste de donnée déroulante partant d'un produit === designation === gamme===format , les donnée sont enregistrer dans la feuil2 du fichier mais ça bloque et je ne sais pas du tout ou se trouve le problème
voici le fichier si quelqu'un a une idée ? http://cjoint.com/?0GFrlJ0zAho
merci d'avance
10 réponses
-
Pour faire ce genre de chose, faut plutot utiliser Microsoft Access que Microsoft Excel.
-
oui ça serais peut être plus simple mais j'ai déjà essayer sur le useform 1 et ça marche très bien je ne sais vraiment pas prk ça ne marche pas pour le 2ème formulaire
-
Bonjour
j'aime pas ton usf et utilise les codeName ses plus simple
Voila un debut
Private Sub UserForm_Initialize()
With Feuil3
ComboBox_enseigne.Clear
For L = 2 To .Range("A" & Rows.Count).End(xlUp).Row
ComboBox_enseigne.AddItem .Range("A" & L)
Next
End With
End Sub
Private Sub ComboBox_enseigne_Change()
L = ComboBox_enseigne.ListIndex + 2
With Feuil3
TextBox_adresse.Value = .Range("I" & L)
End With
End Sub
A+
Maurice -
bonjour Maurice ,
je sais que mon usf n'ai pas le plus simple mais je ne suis pas très forte en VBA je met ce que je peux comprendre comme script .
la ou je trouve le problème c'est plutôt au niveau de la suite :
combobox_produit / designation/..ect
j'ai essayer d'appliquer ce script pour filtrer les donnée au niv des liste déroulante à partir du choix du produit :
exemple pour le choix de "Limonade" comme produit la liste déroulante en désignation qui doit s'afficher :
With Feuil3
ComboBox_designation.Clear
If ComboBox_produit.Value = "Limonade " Then
For L = 3 To .Range("A" & Rows.Count).End(xlUp).Row
ComboBox_designation.AddItem .Range("A" & L)
Next
End If
End With
End Sub
une idée prk ça ne marche pas ? -
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question -
Bonjour
Voila un modele de combobox sans If
http://cjoint.com/?3Hbl46KDxQW
mettre au point la feuil Liste
A+
Maurice -
-
Bonjour
Pour resoudre ta Limonade Hi
Private Sub ComboBox_produit_Change()
'" Limonade " = ListIndex 0
'" Bière " = ListIndex 1
'" BST " = ListIndex 2
Col = ComboBox_produit.ListIndex + 5
' Feuil6 = CodeName
' (Feuil3) = Non de l'onglet
With Feuil6 ' CodeName
For L = 3 To .Cells(Rows.Count, Col).End(xlUp).Row
ComboBox_designation.AddItem .Cells(L, Col)
Next L
End With
End Sub
A+
Maurice -
bonjour
https://www.cjoint.com/?CIlvjCty0Fi
un lien sur une base simple de gestion de stocks.
Si cela peut aider faites le savoir.
merci -
Bonjour
As tu resolus ton probleme?
Une reponse pour ceux qui t'aide serait le bien venu? -
Bonjour
A mon avis access serait plus approprié pour ce genre de gestion.