code repetitif sur combobox change

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:

---

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 ?

Bonjour,

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

Code:

---

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)

oui, simple

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

merci

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+

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 ?

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.

merci
j'ai l'impression que c'est ce qu'il me faut car j'utilise beaucoup de principe de box numéroté en série qui applique les mêmes fonction
donc je vais me pencher sur ça
mais ça m'a l'air hardu