[Résolu ] cherche conseil sur ligne de code

[kinel]

bonsoir à tous

j'utilise ce code pour vérifier un stock

'verifie si le produit est en rupture dans le stock
If InStr(1, Sheets("Feuil1").Cells(Me.ComboBox1.ListIndex + 6, 5), "A Commander") > 0 Then
MsgBox "Rupture de stock ou périmé", vbExclamation
Exit Sub 'si rupture de stock sortie de la fonction
End If

ça fonctionne très bien, j'ai bien le msgbox si l'article est à commander mais le soucis est que certains articles sont "A Commander" quand il en reste 1 en stock
il me faudrait donc ajouter la condition stock 0 sachant que le stock se trouve dans la cellule +6, 4

merci de vos lumières

Kinel

 

[Fred0o]

Re : cherche conseil sur ligne de code

Bonsoir kinel,

A tester :

'verifie si le produit est en rupture dans le stock
    If InStr(1, Sheets("Feuil1").Cells(Me.ComboBox1.ListIndex + 6, 5), "A Commander") > 0 And _
        Sheets("Feuil1").Cells(Me.ComboBox1.ListIndex + 6, 4) = 0 Then
        MsgBox "Rupture de stock ou périmé", vbExclamation
        Exit Sub 'si rupture de stock sortie de la fonction
    End If

A+

 

[kinel]

Re : cherche conseil sur ligne de code

bonsoir FredOo

testé et approuvé
ça fonctionne à merveille

merci beaucoup
Kinel