Code répétitif pour combobox

Bonjour à tous

je voudrais savoir s'il est possible de simplifier un code redondant dans le cas ou se sont pour des combobox avec l’événement "change"

je met ci dessous le code de la 1er combobox. c'est le même de la 2 èmè à la 5 ème.
Les combobox sonc "produit1" à "produit5"
les textbox qui sont modifié par le choix de combobox sont
"stock_actuel1" à "stock_actuel5"
et
"prix1" à "prix5"

le but étant de me faire apparaître en fonction du produit sont stock actuel et son prix

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

Private Sub produit1_Change() On Error Resume Next Dim Cellule As Range   Dim prix As Single, stockact As Single Dim NomPièce As Variant If Not Cellule Is Nothing Then prix = Cellule(1, 6)   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

---

Bonjour,

Tu mets cette macro par combobox :

Code:

---

1 2 3

Private Sub produit1_Change() test Right(produit1.Name, 1) End

---

et cette macro dans le module de l'userform :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Sub test(Num) Dim prix As Single, stockact As Single Dim Cellule As Range Dim NomPièce As Variant If Not Cellule Is Nothing Then prix = Cellule(1, 6)   NomPièce = Controls("produit" & Num).Value prix = WorksheetFunction.VLookup(NomPièce, Range("stock"), 5, False) Me.Controls("prix" & Num).Value = prix stockact = WorksheetFunction.VLookup(NomPièce, Range("stock"), 3, False) Me.Controls("stock_actuel" & Num) = stockact End Sub

---

Merci,

ça fonctionne

Pour comprendre, le "(num)" dans sub test(Num)
est obtenue grâce à cette ligne :

Code:

---

1 2	test Right(produit1.Name, 1)

---

Donc dans la même idée d'allègement de code
dans le UserForm_Initialize()
j'ai 5 fois ce code

Code:

---

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

---

l'utilisation d'un "Controls("produit" & Num)" devrait me permettre d'écrire une fois le code au lieu de 5 ?

Est-ce que le RowSource est le même pour les 5 contrôles ? Sinon quel est-il ?

Code:

---

1 2 3 4 5 6 7 8 9 10

Private Sub UserForm_Initialize() For i = 1 To 5 Set Var = Me.Controls("produit" & i) With Me.Controls("produit" & i) .RowSource = "stock!a2:a" & Range("stock!a65536").End(xlUp).Row .MatchEntry = fmMatchEntryComplete .MatchRequired = True End With Next i End Sub

---

Bonjour, regarde ça