Discussion :

[bosk1000]

bonjour a tous

voila j'ai une série de 5 combobx du nom de produit(1,2,3,4,5)

lorsque je sélectionne un produit dans la combobox produit1
une recherche en vlookup me remplie 2 textboxs, stock_actuel et prix (eux aussi numéroté de 1 à 5)
voici le code, qui se répété 5 fois

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)
prix1.Value = prix
stockact = WorksheetFunction.VLookup(NomPièce, Range("stock"), 3)
stock_actuel1.Value = stockact
End Sub

ma question :
est-il possible de réduire ces 5 code à un seul ?

[jfontaine]

Bonjour,

Tu créais une prpcedure qui prendra comme paramètre ta combobox
Code non testé

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
Private Sub Chargement(Combo as Combobox)
Dim prix As Single, stockact As Single
Dim NomPièce As Variant
NomPièce = Combo.Value
prix = WorksheetFunction.VLookup(NomPièce, Range("stock"), 5)
prix1.Value = prix
stockact = WorksheetFunction.VLookup(NomPièce, Range("stock"), 3)
stock_actuel1.Value = stockact
End Sub
 
Private Sub produit1_Change()
Chargement produit1
End 
 
Private Sub produit2_Change()
Chargement produit2
End

Edit : Tu peux aussi ne passer en paramètre que la valeur de la combobox (en modifiant le type du paramètre attendu)

[bosk1000]

oui, simple

je connais ça, mais n'y ai pas penser

merci

[LeForestier]

Bonjour,
Tu peu peut-être aussi t'inspirer des collections de contrôles.
Classeur1 et/ou Classeur 2
A adapter aux combo et TexteBox. (Je l'ai déjà fait)
En fait, quelque ligne à ajouter mais peu servir pour toutes les autres routines.

A+

[bosk1000]

merci, mais là, j'avoue etre perdu

je ne connais absolument pas le principe des modules de classe et cette méthode de collection
(quoique cela à l'air d'être une très bonne méthode pour moi qui utilise beaucoup de combobox et textbox avec des numérotation)

je suppose que sur le site il existe des tuto concernant ces deux éléments

amis pour comprendre le démarrage de ma recherche
quelle est l'utilité de ces deux points ?

[LeForestier]

Tu peu voir un tuto sur ce lien
A+
Edit :
L'utilité ? ; Ca peu quelque fois remplacer des dizaines de lignes de code par quelque une.