Gestion Commande (stock)

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

10 réponses

  • Votes
  • Date
  • Date décroissante
  1. Pour faire ce genre de chose, faut plutot utiliser Microsoft Access que Microsoft Excel.
    1. 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
      1. 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
        1. 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 ?
          1. Bonjour

            Voila un modele de combobox sans If

            http://cjoint.com/?3Hbl46KDxQW

            mettre au point la feuil Liste

            A+

            Maurice
            1. Re

              Voila des tests

              http://cjoint.com/?3Hbo7H3hIa4

              a toi de voir

              A+

              Maurice
              1. j'aime les 3 test je garde le 2ème pour ma gestion de commande et le 3ème pour la fiche client

                Merci :)
            2. Bonjour
              A mon avis access serait plus approprié pour ce genre de gestion.
              1. 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
                1. Bonjour
                  As tu resolus ton probleme?
                  Une reponse pour ceux qui t'aide serait le bien venu?