Bonjour à tous,

Je suis entrain de construire un petit outil de gestion de stock.
Pour mes besoins, l'utilisateur choisit un produit dans une combobox (ComboProduit) remplie à partir d'une plage excel.
Le choix de ce produit entraine le remplissage d'une autre combobox (ComboLot) avec les lots attachés au produit choisi.
Jusque là tout focntionne parfaitement.
Lorsque l'utilisateur choisit un lot dans la ComboLot, je souhaite afficher la date de péremption attachée au lot sélectionné.

Voilà mon bout de code :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
'initialisation du champ
peremption.Value = ""
'récupération du numéro de la dernière ligne
derligne1 = Split(Worksheets("Lots").UsedRange.Address, "$")(4)
'boucle de 1 à la dernière ligne
For i = 2 To derligne1
    Select Case Worksheets("Lots").Range("C" & i).Value
        Case Is = ComboLot.Value
            peremption.Value = Worksheets("Lots").Range("D" & i)
        Case Else
    End Select
Next i
Cela fonctionne parfaitement si le lot est de type texte. Mais si le lot n'est constitué que de chiffres, ça ne fonctionne plus.

Est ce un problème de format ?
Si oui, comment puis-je le résoudre ?

D'avance merci pour votre aide.

A+