Discussion :

[Tchebichef]

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+

[EngueEngue]

C'est un problème de Type! Ta combobox est une chaine de caractères et ta cellule excel un nombre.. 10 <> "10" et Cstr(10) ="10"

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Select Case CStr(Worksheet("Lots").Range....

Et c'est bon!

Par contre le choix d'un select case reste discutable

Range.find ou application.vlookup ou même un if seraient plus adaptés

[Tchebichef]

Merci pour ton aide, je vais tester tout ça.
Par contre, peux-tu m'expliquer pourquoi le select case n'est pas l'idéal ?
En fait, j'avais essayé avec vlookup sans succès (surement un problème de syntaxe), range.find je ne connais pas et les if, je les maitrise, donc je voulais tester une autre méthode pour apprendre...
Je vais me renseigner sur range.find
Merci ++