calcul sous condition

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

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)

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:

---

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:

---

=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:

---

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