Discussion :

[bosk1000]

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 :

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

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

[Daniel.C]

Bonjour,

Tu mets cette macro par combobox :

Code :

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

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

et cette macro dans le module de l'userform :

Code :

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

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

[bosk1000]

Merci,

ça fonctionne

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

Code :

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

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 :

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

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

[Daniel.C]

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

Code :

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

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

[Invité]

Bonjour, regarde ça