Calcul VBA PMP

Version imprimable

2 pièce(s) jointe(s)

Calcul VBA PMP

Bonjour à toutes et à tous,

Est-ce que quelqu'un peut m'aider? J'ai créé le code suivant. Or, il ne fonctionne pas du tout comme je le souhaite. J'ai fais la fonction debug et je ne comprends pas pourquoi cela marche pas.

Dans le debug, il ne rentre jamais dans ma fonction du if. Or, il n'y a pas d'erreur de typo. Qu'est ce qui ne va pas dans mon code?

Pièce jointe 448948
Pièce jointe 448952

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Sub Mettre_à_jour()
    'Variables
    i = 0 'Valeur actualisé du PMP tant que la quantité n'est pas atteinte
    j = 1000 'Nombre de lignes maximum prises en compte dans le calcul
    k = 2 'Ligne de la fiche PMP à mettre à jour
    l = 0 'Somme des quantités prises dans le calcul de mise à jour du PMP
 
'Mise à jour du PMP
    Do While l < Cells(k, 6) 'Tant que le cumul quantité est inférieur à la quantité en stock
       If Sheets("Component_cost_data").Cells(j, 1).Value = Sheets("PMP").Cells(k, 2).Value Then 'Test de vérification de la désignation. Si oui, on prend en compte sinon on passe au suivant
        If Sheets("Component_cost_data").Cells(j, 10).Value > Sheets("PMP").Cells(k, 6).Value Then 'Si la quantité libérée est supérieure à la quantité en stock, alors
            Sheets("PMP").Cells(k, 5) = Sheets("Component_cost_data").Cells(j, 18) 'Le PMP est égal au unit cost de cette libération
        ElseIf Sheets("Component_cost_data").Cells(j, 10).Value < Sheets("PMP").Cells(k, 6).Value Then 'si la quantité libérée est inférieure à la quantité en stock, alors
            i = (i * l + Sheets("Component_cost_data").Cells(j, 18).Value * Sheets("Component_cost_data").Cells(j, 10).Value) / (l + Sheets("Component_cost_data").Cells(j, 10).Value) 'Calcul du nouveau PMP intermédiaire
            l = l + Sheets("Component_cost_data").Cells(j, 10).Value 'Mise à jour de la quantité ayant le PMP calculé ci-dessus
        End If
        End If
        j = j - 1 'Décrémentation des lignes
       Loop
 
End Sub

Je vous remercie beaucoup pour votre aide.

Ludovic

11/02/2019, 10h56
comme de bien entendu

Bonjour,
As tu pensé de faire un MsgBox ou un debug.print de cells(K,6) ?
Il est probable que tu n'interroges pas la feuille souhaitée avec ton cells(K,6).
Tiens nous au courant.
Bonne journée.

Hello, Oui j'ai essayé. Même en mettant comme cela ça ne marche pas.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Sub Mettre_à_jour()
    'Variables
    i = 0 'Valeur actualisé du PMP tant que la quantité n'est pas atteinte
    j = 665 'Nombre de lignes maximum prises en compte dans le calcul
    k = 2 'Ligne de la fiche PMP à mettre à jour
    l = 0 'Somme des quantités prises dans le calcul de mise à jour du PMP
 
'Mise à jour du PMP
    Do While l < Sheets("PMP").Cells(k, 6) 'Tant que le cumul quantité est inférieur à la quantité en stock
       If Sheets("Component_cost_data").Cells(j, 1).Value = Sheets("PMP").Cells(k, 2).Value Then 'Test de vérification de la désignation. Si oui, on prend en compte sinon on passe au suivant
        If Sheets("Component_cost_data").Cells(j, 10).Value > Sheets("PMP").Cells(k, 6).Value Then 'Si la quantité libérée est supérieure à la quantité en stock, alors
            Sheets("PMP").Cells(k, 5) = Sheets("Component_cost_data").Cells(j, 18) 'Le PMP est égal au unit cost de cette libération
        ElseIf Sheets("Component_cost_data").Cells(j, 10).Value < Sheets("PMP").Cells(k, 6).Value Then 'si la quantité libérée est inférieure à la quantité en stock, alors
            i = (i * l + Sheets("Component_cost_data").Cells(j, 18).Value * Sheets("Component_cost_data").Cells(j, 10).Value) / (l + Sheets("Component_cost_data").Cells(j, 10).Value) 'Calcul du nouveau PMP intermédiaire
            l = l + Sheets("Component_cost_data").Cells(j, 10).Value 'Mise à jour de la quantité ayant le PMP calculé ci-dessus
        End If
        End If
        j = j - 1 'Décrémentation des lignes
       Loop
 
End Sub

12/02/2019, 09h02
halaster08

Pas mieux que "comme de bien entendu " affiche le contenu de tes variables pour savoir ce qui cloche
Quelles sont les valeurs de l , Sheets("PMP").Cells(k, 6), Sheets("Component_cost_data").Cells(j, 1).Value , Sheets("PMP").Cells(k, 2).Value
12/02/2019, 10h35
lebouscat

Justement mon problème c'est que l ne bougent jamais. On ne passe jamais dans la boucle. C'est cela mon problème.
12/02/2019, 10h36
lebouscat

Pour les autres, je ne sais pas le faire afficher. Pour les cells.etc...
12/02/2019, 11h00
halaster08

Citation:

Envoyé par lebouscat

Pour les autres, je ne sais pas le faire afficher. Pour les cells.etc...

"comme de bien entendu" t'as pourtant déjà dit comment faire:

Citation:

Envoyé par comme de bien entendu

As tu pensé de faire un MsgBox ou un debug.print de cells(K,6) ?

Code à mettre avant la boucle.
12/02/2019, 11h09
lebouscat

Je vais essayer. Je ne l'avais pas fais étant donné que j'avais modifié le code pour sécuriser.
12/02/2019, 11h29
bobby5169
Bonjour;
Dans ton code tu exécute en mode pas à pas (F8)
tu sélectionne dans ton code
- l
- Sheets("PMP").Cells(k, 6)
- l < Sheets("PMP").Cells(k, 6)
Pour chacun de ces éléméments, quand ils sont sélectionnés, tu fais un clic-droit dessus --> ajouter un espion

Lors de l'exécution pas à pas tu verras quelle valeur prend chaque espion et ça t'aidera à savoir ce qui ne vas pas.

Tu pourras ainsi nous donner les valeurs et nous aiguiller un peu.

Cordialement.
12/02/2019, 11h32
lebouscat

Je vous confirme que la valeur Sheets("PMP").Cells(k,5) est toujours égal à 500. Ce qui est normal au vu de ce que j'ai fais.
12/02/2019, 11h40
bobby5169
Avant ta boucle essaie un
Code:

1 2 3 msgbox isnumeric(l) msgbox isnumeric(Sheets("PMP").Cells(k, 6))
Reste à savoir si tu testes ta colonne 5 ou 6
12/02/2019, 11h53
lebouscat

Je viens de faire le test et ils ont affiché Vrai.

le. value marche également pour les chaines de caractères ou c'est un autre qu'il faut utliser?
12/02/2019, 13h19
bobby5169
peux-tu faire une copie d'écran des valeurs des espions?
- l
- Sheets("PMP").Cells(k, 6)
- l < Sheets("PMP").Cells(k, 6)
ou alors faire passer ton classeur.

Je veux bien aider mais tu donnes les infos au compte goutte
12/02/2019, 16h53
halaster08

Citation:

Envoyé par lebouscat

Je vous confirme que la valeur Sheets("PMP").Cells(k,5) est toujours égal à 500. Ce qui est normal au vu de ce que j'ai fais.

Citation:

Envoyé par lebouscat

'Mise à jour du PMP
Do While l < Sheets("PMP").Cells(k, 6) 'Tant que le cumul quantité est inférieur à la quantité en stock
[/CODE]

@bobby
Désolé j'avais pas vu que tu l'avais déjà mentionné, et comme tu n'as pas eu de réponse, autant reposé la question
12/02/2019, 16h56
bobby5169
Citation:
Envoyé par bobby5169

Avant ta boucle essaie un

Code:

1 2 3 msgbox isnumeric(l) msgbox isnumeric(Sheets("PMP").Cells(k, 6))

Reste à savoir si tu testes ta colonne 5 ou 6
C'est ce que j'avais fait remarquer plus haut
12/02/2019, 17h42
lebouscat

Bonjour,

Désolé de ne donner des nouvelles que maintenant. Mais c'est bon j'ai tout modifié. j'ai du complexifié mon code en prenant en compte plus d'éléments.
12/02/2019, 17h47
bobby5169

C'est résolu alors?