Quantité de produit < 0 en VBA ??

[aziz]

Bonjour à tous et au forum
Je souhaite la mise en forme en vba pour connaitre le nombre de de produits inférieur à zéro.
merci

 

[pierrejean]

Re : Quantité de produit < 0 en VBA ??

bonjour aziz

Sub nombreproduit()
Dim txt As String, i As Long
txt = Chr(10) & "Quantité des Items :" & Chr(10) & Chr(10)
For i = 2 To Range("b65536").End(xlUp).Row
 If Cells(i, "E") < 0 Then nb = nb + 1
Next
MsgBox txt & Chr(10) & nb
End Sub