Discussion :

[stanword]

Bonjour à tous et merci de m'accueillir sur ce forum qui m'a, à de nombreuses reprises, dépanné quand j'étais dans la panade!!!
Je suis un utilisateur très très novice en VBA excel mais j'aime à approfondir mes connaissances mais pour le coup je me suis lancé dans un projet ou je bloque sérieusement.
Je m'explique, j'essai de développer pour mon entreprise (manque de moyens pour un achat d'un logiciel) un logiciel (en pj) sous VBA pour gerer mon stock d'articles. J'ai un mouvement de stock assez important par jour et j'ai du mal à le suivre au jour le jour. Je souhaite donc simplement que le matin, lorsque chaque intervenant prépare sa tournée, celui-ci puisse scanner le code article du produit qu'il emmene et donc qui sort de mon stock.
J'ai donc créer la macro, jusque là pas de problème. Je n'arrive cependant pas à trouver la commande pour signifier à la combobox1 que si la valeur tapée ne fais pas référence à un code article connu, l'utilisateur doit le re-saisir. De plus, je souheterai que si la valeur tapée dans combobox1 fait référence à un article connu cela me lance automatiquement le CommandButton1.
Lorsque l'utilisateur valide son mouvement de stock, l'information s'incrémente bien dans mon onglet "mouvement de stock" en entrée ou sortie selon ce qui a été sélectionné.
Maintenant et donc pour avoir un stock en temps réel, il faut que cette information s'incrémente ou se décrémente à mon onglet "Etat de stock" et là je bloque complet.
Je ne suis pas formalisé à avoir les éléments tels quels et suis ouvert à toutes les propositions. Je vous serais vraiment reconnaissant de l'aide que vous pourrez m'apporter.
Merci à tous,
Stan
test gestion stock.zip

Je precise que je ne souhaite pas que quelqu'un travaille a ma place mais simplement que vous puissiez m'aiguiller sur la demarche a suivre pour arriver a mes fins.
Encore merci a toute personne susceptible de pouvoir m'aider.
Stan

[goldstar]

Bonjour,

Pour verifier si le code article existe

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 
 'Recherche si le code existe dans la feuille villes
    Set R = Sheets("villes").Range("A:A").Find(Me.ComboBox1)
 
    If R Is Nothing Then 'Si il n'existe pas
        MsgBox "Le code article que vous avez saisie n'existe pas !!!!!", vbInformation, "ARTICLE INCONNU"
        Exit Sub
    End If

[stanword]

C'est nickel, ça marche super...

Sais-tu comment je peux procéder à une validation automatique (commandbutton1) lorsque tout les critéres sont réunis (article trouvé et intervenant renseigné)?
Je continue à chercher de mon coté....Merci pour l'aide,

stan

[issoram]

Dans ce bouquin le chapitre 16 est consacré au développement d'une gestion de stocks.

Le code source est dispo sur le net je crois.

Bonne soirée.

[goldstar]

Bonjour,

Pour la validation automatique:

Tu peux inserer la procedure suivante dans ton UserForm1

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
 
Sub verif_champ_avant_validation()
 
If Me.ComboBox2 <> "" Then 'Intervenant
    If ComboBox1 <> "" Then 'Article
 
    'Recherche si le code existe dans la feuille villes
    Set R = Sheets("villes").Range("A:A").Find(Me.ComboBox1)
 
    If Not R Is Nothing Then 'Si l'article existe
        Call CommandButton1_Click
        Exit Sub
    End If
 
    End If
End If
End Sub

Puis sur chaque menu deroulant sur la procédure sur changement il faut ajouter le code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
verif_champ_avant_validation

Ce qui donne pour la ComboBox2 (Liste des intervenants)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
Private Sub ComboBox2_Change()
    verif_champ_avant_validation
End Sub

et pour la Combobox1 (Liste des codes articles)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
 
Private Sub ComboBox1_Change()
ComboBox1.RowSource = ("CODES2")
 
  'MsgBox (ComboBox1.ListIndex)
  TextBox3 = Sheets("Villes").Range("B" & ComboBox1.ListIndex + 2)
  TextBox1 = Sheets("Villes").Range("c" & ComboBox1.ListIndex + 2)
 
  verif_champ_avant_validation
 
 End Sub