Discussion :

[fbi77720]

Bonjour,
J'ai besoin d'aide, je cherche à créer une programme vba qui me permettrai de faire un calcul sous une condition et d'afficher le résultat dans une nouvelle colonne de mon tableau mais étant novice en programmation vba. Je ne vois pas comment faire.

la condition de mon calcul est que : si (Stock Actuel + Quantité Commande)< Stock de sécurité alors faut faire le calcul Stock sécurité -(Stock Actuel + Quantité commande) et on affiche le résultat du calcul dans une nouvelle colonne
et si (Stock Actuel+Quantité Commande)>Stock sécurité afficher 0 dans la nouvelle colonne.
Il faudrait que le programme parcourt tout les lignes de mon tableau.

Je vous joint mon fichier
Merci d'avance de votre aide

[Alex020181]

Bonjour,

Tu ne devrais pas avoir besoin de VBA pour ça.
Utilise la fonction Si().
Si(test;valeur si test est vrai ; valeur si test est faux)

[ARTURO83]

Bonjour,

Excel est à privilégier avant d'utiliser le VBA si possible, maintenant si vous tenez à une fonction personnalisée en VBA, en voici une:

Code :

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

1
2
3
Function Nw_Stock(St_Actuel As Double, Qte_Com As Double, St_Secur As Double) As Double
    If (St_Actuel + Qte_Com) < St_Secur Then Nw_Stock = St_Secur - (St_Actuel + Qte_Com) Else: Nw_Stock = 0
End Function

dans la première celliule de la nouvelle colonne, saisissez la formule:

Code :

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

=Nw_stock($P6;$Q6;$M6)

Comme c'est dans un tableau structuré, la formule se recopie automatiquement sur les lignes suivantes
Pièce jointe 577532

Autre solution en VBA pur, mais il faudra cliquer sur un bouton pour relancer la macro

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub Calcul()
    Dim St_Actuel As Double, Qte_Com As Double, St_Secur As Double
    Dim Col As Long, i As Long, DerLig As Long
    Col = 18 'première colonne libre=colonne "R"
    DerLig = Range("A" & Rows.Count).End(xlUp).Row
    Application.ScreenUpdating = False
    For i = 6 To DerLig
        St_Actuel = Cells(i, "P")
        Qte_Com = Cells(i, "Q")
        St_Secur = Cells(i, "M")
        If (St_Actuel + Qte_Com) < St_Secur Then Cells(i, Col).Value = St_Secur - (St_Actuel + Qte_Com) Else: Cells(i, Col).Value = 0
    Next i
End Sub

le fichier
Pièce jointe 577535

cdlt