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

  1. Pour faire ce genre de chose, faut plutot utiliser Microsoft Access que Microsoft Excel.
    0
    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
      0
      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
        0
        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 ?
          0
          1. Bonjour

            Voila un modele de combobox sans If

            http://cjoint.com/?3Hbl46KDxQW

            mettre au point la feuil Liste

            A+

            Maurice
            0
            1. Re

              Voila des tests

              http://cjoint.com/?3Hbo7H3hIa4

              a toi de voir

              A+

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