flag = 0
With ThisWorkbook.Sheets("Inventaire")
For Each Nom In .Range("L4:L" & .[L65000].End(xlUp).Row)
If CStr(Nom) = CStr(Me.Ithemmag.Value) And .Cells(Nom.Row, 1) = Me.TextBox1.Text Then
Me.Ithemcate.Caption = .Cells(Nom.Row, 2)
Me.Ithemstock.Caption = .Cells(Nom.Row, 4)
Me.Ithemdes.Caption = .Cells(Nom.Row, 6)
Me.Ithemref.Caption = .Cells(Nom.Row, 7)
Me.Ithemuni.Caption = .Cells(Nom.Row, 8)
flag = 1
End If
Next
If flag = 0 Then
MsgBox "Ce code article n'existe pas.dans le magasin.Veuillez saisir un code article valide", vbInformation + vbOKOnly, "Article non trouvé"
Me.Ithemcate.Caption = ""...