Discussion :

[bosk1000]

bonjour a tous

sur un formulaire me servant de fiche de stock, sur une combobox, j'ai un souci.

Lorsque le formulaire ce lance cette combo a pour code d'activation ceci :

Code :

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

1
2
3
4
 
produit1.RowSource = "stock!a2:a" & Range("stock!a65536").End(xlUp).Row
   produit1.MatchEntry = fmMatchEntryComplete ' permet d'ecrire les nom dans une zone de liste deroulante
    produit1.MatchRequired = True 'pour forcer une saisie correct

et lorsque je saisie dans cette box, le code qui recherche les éléments pour renseigner des éléments de prix et quantité :

Code :

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

1
2
3
4
5
6
7
8
9
10
 
Private Sub produit1_Change()
Dim prix As Single, stockact As Single
Dim NomPièce As Variant
NomPièce = produit1.Value
prix = WorksheetFunction.VLookup(NomPièce, Range("stock"), 5, False)
prix1.Value = prix
stockact = WorksheetFunction.VLookup(NomPièce, Range("stock"), 3, False)
stock_actuel1.Value = stockact
End Sub

lorsque je saisie dans la combobox produit1, et que je fasse une faute de frappe, tapant un nom inexistant dans la liste, le code plante
j'obtient le message
impossible de lire la propriété VLookup de la classe woorsheetfunction
avec le focus sur :

Code :

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

1
2
 
prix = WorksheetFunction.VLookup(NomPièce, Range("stock"), 5, False)

comment empecher le bug ?

[Pierre Fauconnier]

Salut.

Prix est de type Single. Si VLookup n'aboutit pas, tu vas donc lui attribuer une erreur...

Soit tu testes l'erreur sur un vlookup et si pas erreur =>prix=worksheetfunction.vlookup(...), soit tu fais un FIND sur la colonne de gauche de la plage Stock et si Find aboutit, tu décales pour récupérer le prix

En gros, et non testé

Code :

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

1
2
3
4
Dim Cellule as range
 
set cellule = range("stock").columns(1).cells.find(what:=nompiece,lookin:=xlvalues,lookat:=xlwhole)
if not cellule is nothing then prix= cellule(1,6)

[bosk1000]

merci
je bosse dessus ce soir

je dirais si j'aboutis, le code que tu as mis ne change rien, donc je vais travailler sur le FIND

[Pierre Fauconnier]

Je l'ai mis sans tester et sans connaître la configuration de ton classeur, mais en adaptant à tes besoins, cela devrait aller.

Reviens si pb.

[bosk1000]

merci pour m'avoir indiquer FIND
en regardant comment ecrire le code de find, j'ai compris ce qui n'allait pas dans mon code

Code :

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

1
2
 
prix = WorksheetFunction.VLookup(NomPièce, Range("stock"), 5 , False)

en fait c'est FALSE qui est de trop, c'est lui qui fait planter
je l'ai retirer et plus de soucis

merci

[Pierre Fauconnier]

Note tout de même que supprimer le paramètre False peut avoir des conséquences inattendues, puisque tu récupéreras la valeur proche de la valeur cherchée, et donc pas forcément la valeur exacte...

A toi de voir ce qui te convient le mieux