Discussion :

[backle]

Bonjour,

J'ai un stock de créé dans mon fichier excel.
J'ai une boîte de dialogue qui permets de sélectionner la pièce de rechange qu'on a utilisée, et en fonction de la pièce la ligne associée à son stock diminue de -1.
Jusqu'à là tout va bien.
Certaines Pièces De Rechange sont à monter, et comprennent donc plusieurs PDR en une. On la sélectionne et les différentes lignes associées à chacun des stocks diminues.

CEPENDANT (là commence mon problème), par gain de temps certaines Pièces de rechanges qui comprennent plusieurs PDR sont montées en avance.
J'ai une ligne dans mon tableau pour ces pièces déjà assemblées.

Je n'arrive pas à mettre en code le fait que quand le stock d'une pièce montée est > 1, la macro enlève du stock sur la pièce déjà montée, et lorsque le stock est à 0, elle enlève le stock sur chacune des PDR une à une.

PTR 001 est une pièce montée
La première ligne est pour essayer d'enlever toute la pièce déjà montée d'un coup (Panier pret)
les autres lignes pour enlever PDR par PDR si la pièce PTR 001 n'est pas déjà montée.

En J21 j'ai mon stock de pièce déjà montées..
Soit ça ne m'enlève rien à mon stock, soit ça ne m'enlève que le stocks des PDR une à une...

Désolé c'est un peu flou j'espère ne pas vous avoir perdu en route !

Si jamais vous avez une idée.. cordialement

Voilà mon exemple de code :

Code :

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

1
2
3
4
5
6
7
8
If ComboBox1.Value = "PTR 001" And Sheets("Stock_Local_Filtres").Range("J21").Value > 1 Then Sheets("Stock_Local_Filtres").Range("J21").Value = (Sheets("Stock_Local_Filtres").Range("J21").Value - 1)    'PANIER PRÊT
        If ComboBox1.Value = "PTR 001" Then Sheets("Stock_Local_Filtres").Range("D21").Value = (Sheets("Stock_Local_Filtres").Range("D21").Value - 20)  'cartouches
        If ComboBox1.Value = "PTR 001" Then Sheets("Stock_Local_Filtres").Range("D42").Value = (Sheets("Stock_Local_Filtres").Range("D42").Value - 1)  'joint 1
        If ComboBox1.Value = "PTR 001" Then Sheets("Stock_Local_Filtres").Range("D45").Value = (Sheets("Stock_Local_Filtres").Range("D45").Value - 1)  'joint 2
        If ComboBox1.Value = "PTR 001" Then Sheets("Stock_Local_Filtres").Range("D46").Value = (Sheets("Stock_Local_Filtres").Range("D46").Value - 1)  'joint 3
        If ComboBox1.Value = "PTR 001" Then Sheets("Stock_Local_Filtres").Range("D7").Value = (Sheets("Stock_Local_Filtres").Range("D7").Value - 1)  'panier
        If ComboBox1.Value = "PTR 001" Then Sheets("Stock_Local_Filtres").Range("D31").Value = (Sheets("Stock_Local_Filtres").Range("D31").Value - 20)  'coupelles
        If ComboBox1.Value = "PTR 001" Then Sheets("Stock_Local_Filtres").Range("D30").Value = (Sheets("Stock_Local_Filtres").Range("D30").Value - 20)  'ressorts

[TOFatJOB]

Bonjour,

rapidement, le "J21 strict >1" n'est pas la cause du problème ? il faut donc au minimum 2 en stock pour que la condition s'applique...

J21 >=1 ? ou J21 > 0 ?

[ChristianBosch]

Salut, avant de commencer mettre un peu d'ordre dans le code :

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
19
Dim Sht As Worksheet
Dim CBV As String
 
Set Sht = ThisWorkbook.Sheets("Stock_Local_Filtres")
CBV = ComboBox1.Value
 
If CBV = "PTR 001" And Sht.Range("J21").Value > 1 Then Sht.Range("J21").Value = Sht.Range("J21").Value - 1    'PANIER PRÊT
 
If CBV = "PTR 001" Then
    With Sht
        .Range("D21").Value = .Range("D21").Value - 20  'cartouches
        .Range("D42").Value = .Range("D42").Value - 1  'joint 1
        .Range("D45").Value = .Range("D45").Value - 1  'joint 2
        .Range("D46").Value = .Range("D46").Value - 1  'joint 3
        .Range("D7").Value = .Range("D7").Value - 1  'panier
        .Range("D31").Value = .Range("D31").Value - 20 'coupelles
        .Range("D30").Value = .Range("D30").Value - 20  'ressorts
    End With
End If

En suite serait il possible de mettre tout le code utilisé ? As tu essayé de faire en pas a pas pour voir si les lignes de codes passent bien quand tu le veux ?

[Philippe Tulliez]

Bonjour,
Avant de penser à la partie programmation, je me pencherais sur la conception de mes données.
Ce que vous décrivez, ou tout au moins ce que j'en ai déduit, ressemble à une gestion de produit fini et semi fini.
Je commencerais donc à construire une table de conversion avec en colonne 1, la référence du produit fini, suivi en colonne 2 de la référence au produit "pièce de de rechange" et ensuite la quantité en colonne 3 dont on a besoin (Ceci est uns explication à la grosse louche)
Ainsi en tapant la référence du produit fini et la quantité à produire, il suffirait d'aller chercher à l'aide de VBA ou Power Query toutes les pièces de rechanges dont on a besoin pour ce produit.

[backle]

Bonjour,

rapidement, le "J21 strict >1" n'est pas la cause du problème ? il faut donc au minimum 2 en stock pour que la condition s'applique...

J21 >=1 ? ou J21 > 0 ?

Merci, je n'avais pas fais attention au " >= ".

En suite serait il possible de mettre tout le code utilisé ? As tu essayé de faire en pas a pas pour voir si les lignes de codes passent bien quand tu le veux ?

Ma ligne de code existait déjà, et fonctionne. Le seul point que j'ai voulu rajouter c'est cette notion de "Si panier déjà monté prendre dans ce stock, si le panier n'est pas monté prendre PDR par PDR". Et c'est ça qui me bloque.
Le code est beaucoup trop long pour le mettre en entier j'ai plein de panier, et tout se répète avec différentes PDR, assez inutile.

Ainsi en tapant la référence du produit fini et la quantité à produire, il suffirait d'aller chercher à l'aide de VBA ou Power Query toutes les pièces de rechanges dont on a besoin pour ce produit.

Alors pas vraiment, j'ai déjà le stock de toutes les PDR qui est rempli, renseigné et qui se soustrait à l'utilisation d'un filtre. Donc ça c'est OK. Seulement certain panier de filtre peuvent être préparé à l'avance (gain de temps). De ce fait quand je descend à mon local je n'ai pas autant de PDR dans les tiroirs parce que les PDR sont déjà montées sur les panier de filtres prêt. C'est pour ça que je voulais bien faire la différence entre les PDR et les paniers préparés. (je nomme PDR toutes les pièces utiles pour monter un panier entier)




Maintenant lorsque je valide mon code j'ai (et c'est le problème que je redoutais) mon stock de panier prêt qui diminue, AINSI QUE mon stock de PDR qui diminuent. Je n'arrive pas à créer une condition SI (si panier pret ne pas prendre de PDR) dans une autre condition SI (si PTR 001 sélectionné alors ...).



Merci à tous pour vos premières réponses en tous cas

[backle]

Bonjour,

J'ai essayé de rajouter une condition pour les stocks de PDR (si PTR 001 choisit + stock de panier prêt < 1).
Ça fonctionnait mais seulement si le stock de panier prêt était au minimum de 2. Sinon lorsque le stock était de 1, le panier s'enlevait dans un premier temps (première ligne de code) et passait à 0, et les lignes de codes en dessous (enlever les PDR) se jouaient quand même car le stock était passé à 0.

J'ai donc interverti les lignes de codes, en mettant la condition du stock de panier en dernier et HOP ça fonctionne!

Je vais pouvoir intégrer cette mécanique avec le reste de mes filtres/paniers/PDR !

Merci à vous pour m'avoir aider dans cette réflexion (et oui je vais penser à mettre un peu d'ordre dans mes lignes de code haha)

Code :

Code :

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

1
2
3
4
5
6
7
8
If ComboBox1.Value = "PTR 001" And Sheets("Stock_Local_Filtres").Range("J21").Value < 1 Then Sheets("Stock_Local_Filtres").Range("D21").Value = (Sheets("Stock_Local_Filtres").Range("D21").Value - 20)  'cartouches
        If ComboBox1.Value = "PTR 001" And Sheets("Stock_Local_Filtres").Range("J21").Value < 1 Then Sheets("Stock_Local_Filtres").Range("D42").Value = (Sheets("Stock_Local_Filtres").Range("D42").Value - 1)  'joint 1
        If ComboBox1.Value = "PTR 001" And Sheets("Stock_Local_Filtres").Range("J21").Value < 1 Then Sheets("Stock_Local_Filtres").Range("D45").Value = (Sheets("Stock_Local_Filtres").Range("D45").Value - 1)  'joint 2
        If ComboBox1.Value = "PTR 001" And Sheets("Stock_Local_Filtres").Range("J21").Value < 1 Then Sheets("Stock_Local_Filtres").Range("D46").Value = (Sheets("Stock_Local_Filtres").Range("D46").Value - 1)  'joint 3
        If ComboBox1.Value = "PTR 001" And Sheets("Stock_Local_Filtres").Range("J21").Value < 1 Then Sheets("Stock_Local_Filtres").Range("D7").Value = (Sheets("Stock_Local_Filtres").Range("D7").Value - 1)  'panier
        If ComboBox1.Value = "PTR 001" And Sheets("Stock_Local_Filtres").Range("J21").Value < 1 Then Sheets("Stock_Local_Filtres").Range("D31").Value = (Sheets("Stock_Local_Filtres").Range("D31").Value - 20)  'coupelles
        If ComboBox1.Value = "PTR 001" And Sheets("Stock_Local_Filtres").Range("J21").Value < 1 Then Sheets("Stock_Local_Filtres").Range("D30").Value = (Sheets("Stock_Local_Filtres").Range("D30").Value - 20)  'ressorts
        If ComboBox1.Value = "PTR 001" And Sheets("Stock_Local_Filtres").Range("J21").Value >= 1 Then Sheets("Stock_Local_Filtres").Range("J21").Value = (Sheets("Stock_Local_Filtres").Range("J21").Value - 1)    'PANIER PRÊT