Discussion :

[TonyRc]

Bonjour a tous,

Suite a la mise en place d'un userform avec plusieurs combobox, je souhaite utiliser une boucle sur les index de la combobox pour optimiser mon code.

Toutefois, je ne sais pas comment definir la variable suivante :
Dim Obj as ?
Obj = ("ComboBox" & CbxIndex)

Comment definir le tout pour que le code marche properment?

Merci d'avance

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
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
Sub Control_delivery_report()
 
''''''''''''''''''''''''''
'''This macro is developped to monitor the delivery from RPC to SANG VILLA SITE
 
 
Dim Ws As Worksheet
Dim pl, r As Range
Dim Obj as ?
Dim pa As String
 
Dim CbxIndex, N_cbxIndex As Integer
 
''''''''''''''''''''''''''
'''Collect the data form userform Delivery Report
 
Set Ws = Worksheets("Database_production")
Set Obj = "ComboBox" & CbxIndex
Set Obj1 = "Combobox" & N_cbxIndex
 
''''''''''''''''''''''''''
'''Common data to the all userform
 
Delivery_date = UserForm6.Calendar1.Value
subcontractor = UserForm6.ComboBox1.Value
truck_nb = UserForm6.ComboBox2.Value
 
''''''''''''''''''''''''''
'''Specific data from userfrom
 
Ws.Select
 
If CbxIndex = 3 Or CbxIndex = 5 Or CbxIndex = 7 Or CbxIndex = 9 Or CbxIndex = 11 Then
    N_cbxIndex = CbxIndex + 1
    nblines = WorksheetFunction.CountA(Range("A:A"))
    Set pl = Ws.Range("D2:D" & nblines)
    Set r = pl.Find(CStr(UserForm6.Obj.Value & UserForm6.Obj1.Value))
 
    If Not r Is Nothing Then
    pa = r.Address
    sr1 = Cells(Range(pa).Row, 1)
    End If
 
 
    Sheets("Database").Select
    Cells(sr1, 14) = Delivery_date
    Cells(sr1, 15) = subcontractor
    Cells(sr1, 16) = truck_nb
End If
 
End Sub

[jfontaine]

Bonjour,

Le code ci dessous pourrait t'aider, il boucle sur chaque objet de la userform et affiche le nom des combobox

Code :

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

1
2
3
4
5
6
7
8
9
 
Dim Ctl As Control
 
For Each Ctl In UserForm1.Controls
    If TypeOf Ctl Is MSForms.ComboBox Then
        MsgBox Ctl.Name
    End If
 
Next

[TonyRc]

L'idee est bonne, elle fonctionne sauf que je recupere une seule donnee.

Code :

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

1
2
3
4
5
6
7
8
Dim Ctl As Control
 
For Each Ctl In UserForm1.Controls
    If TypeOf Ctl Is MSForms.ComboBox Then
        MsgBox Ctl.Name
    End If
 
Next

Si je comprends bien ce code, il vient rechercher les valeurs des combobox (et en affiche le message).

Comment, je peux fusionner deux combobox? Et ensuite les faire tourner sur d'autres combobox afin d'en recuperer les informations?


Voici mon fichier (ci-joint)

Dans le userform, je recupere les donnees d'un element precis: (Son Nom et sa Reference). J'ai utilise une combobox en cascade pour me l'approprier et connaitre les stocks actuels.

Pour la premiere ligne de la combobox voici me code qui fonctionne:

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
19
20
21
22
23
24
25
26
27
28
29
 
 
Dim Ws As Worksheet
Dim pl, r As Range
Dim pa As String
 
Set Ws = Worksheets("Database_production")
 
Delivery_date = UserForm6.Calendar1.Value
subcontractor = UserForm6.ComboBox1.Value
truck_nb = UserForm6.ComboBox2.Value
 
Ws.Select
 
    nblines = WorksheetFunction.CountA(Range("A:A"))
    Set pl = Ws.Range("D2:D" & nblines)
    Set r = pl.Find(CStr(UserForm6.combobox3.Value & UserForm6.combobox4.Value))
 
    If Not r Is Nothing Then
    pa = r.Address
    sr1 = Cells(Range(pa).Row, 1)
    End If
 
 
    Sheets("Database").Select
    Cells(sr1, 14) = Delivery_date
    Cells(sr1, 15) = subcontractor
    Cells(sr1, 16) = truck_nb
End If

Toutefois, il y a 5 lignes de livraison differentes que je souhaite repliquer avec une boucle, plutot que le reecrire le code en modifiant les Index des combobox.

J'avais cette idee en tete:
Utiliser les index des combobox et les faire tourner en boucle.
Cependant je ne sais pas declarer les variables ... J'ai toujours une erreur type.

Code :

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

1
2
3
4
5
6
7
8
9
10
 
 
Obj = ("userform6.combobox" & CbxIndex)
N_obj = ("userform6.combobox" & Cbxindex + 1)
 
For cbxIndex = 3 to 11
 
Set r = pl.Find(CStr(Obj.Value & N_Obj.Value))
 
Next

Merci d'avance