Vérifier si valeur existe dans une liste

bonjour le forum,

bonjour à tous,

je sollicite votre expertise pour corriger ce code que j'ai écrit et qui ne donne pas le résultat attendu

Private Sub CommandButton3_Click()
NumLot = 1
Str_Code = EL101
For h = 4 To Sheets("Stocks").Range("C" & Rows.Count).End(xlUp).Row
If NumLot = Sheets("Stocks").Range("C" & h) And Str_Code = Sheets("Stocks").Range("E" & h) Then
            MsgBox "Oui": Exit For
        Else:
            MsgBox "Non": Exit For
        End If
Next
End Sub

il s'agit de vérifier par "oui" si le Str_Code existe en colonne E de la feuille Stocks.

merci d'avance.

Pedro.

Bonjour,

Je crois qu'il faudrait disposer de la sorte

If Sheets("Stocks").Range("C" & h).value = NumLot And Sheets("Stocks").Range("E" & h).value = Str_Code Then

Ici, on vérifie renvoie "Oui" si, sur une meme ligne, la valeur en C vaut NumLot et la valeur en E vaut Str_Code.

Cordialement,

Sachant que Str_Code fait référence à ce qui s'apparente à une variable, nommée EL101.

Si vous cherchiez à attribuer à Str_Code la valeur EL101, il faut saisir :

Str_Code = "EL101"

ah, je vois mes erreurs.

merci pour vos réponses rapides et efficaces.

bien à vous.

Pedro.