Listbox en fonction de combobox

Version imprimable

Bonjour à tous,

Je fais un mini formulaire, voici ma base de donnée :
Type véhicule Option Clim Pseudo

Fiat Ducato 2,3L E5+E5b sans clim a200

Iveco Daily 2,3L E5+E5OBD sans clim a201

Iveco Daily GMK 2,3L E5B sans clim a202

Iveco Daily GMK 2,3L E5B avec clim a203

Iveco Daily GMK 3L E5+E6 sans clim a204

Iveco Daily GMK 3L E5+E6 avec clim a205

Dans mon formulaire il y a : combobox1 -> colonne " Type Véhicule "
combobox2 -> colonne "option clim"
textbox1 -> la case corespondate aux choix de la combobox

Par exemple si je prend : combobox1= Iveco Daily GMK 2,3L E5B
combobox2 = sans clim
alors textbox1 = a202

Voici ce que j'ai pour l'instant :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 Sub lancement_pseudo() Dim i As Integer Dim Cell As Range With Sheets("base").Range("B3") 'Inserer colonne A dans combobox1 UserForm1.ComboBox1.RowSource = Range(.Cells, .End(xlDown)(1, 1)).Address(External:=True) End With For i = 1 To Sheets("base").Range("C65536").End(xlUp).Row ComboBox2 = Sheets("base").Range("C" & i) If ComboBox2 = -1 Then ComboBox2.AddItem Sheets("base").Range("C" & i) Next i For Each Cell In Worksheets("base").Range("c3:c24") UserForm1.ComboBox2 = Cell If UserForm1.ComboBox2.ListIndex = -1 Then _ UserForm1.ComboBox2.AddItem Cell Next Cell UserForm1.Show End Sub
Maintenant il n'y a plus qu'à coder la textbox mais je sèhe.

13/10/2015, 12h44
Philippe Tulliez

Bonjour,

Citation:

Maintenant il n'y a plus qu'à coder la textbox mais je sèhe.

Si tu utilises un formulaire, tu peux t'inspirer de cette contribution USERFORM - Créer, Consulter, Modifier et Supprimer des enregistrements à l'aide d'un formulaire

J'ai eu un peu d'aide et cela fonctionne niquel :D :

Code de l'userform :

Code:

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
 
Option Explicit 'rend obligatoire la déclaration des variable (dim,public,private)
 
 
Private Sub ComboBox1_Click()
    Dim Plage(), i%
    'chargement de la combobox
    Me.ComboBox2.Clear
    Me.TextBox1 = ""
    Plage = Range("Base[[Type véhicule]:[Option Clim]]") ' tableau a(n,1) pour rapidité
    For i = LBound(Plage) To UBound(Plage)
        If Plage(i, 1) = Me.ComboBox1.Text Then
            Me.ComboBox2.AddItem (Plage(i, 2))
            Me.ComboBox2.List(Me.ComboBox2.ListCount - 1, 1) = i
        End If
    Next i
End Sub
 
 
Private Sub ComboBox2_Click()
    Me.TextBox1 = Range("Base[Pseudo]").Cells(Me.ComboBox2.List(Me.ComboBox2.ListIndex, 1))
 
End Sub
 
Private Sub UserForm_Initialize() ' quand tu ouvre un usf c'est la 1ere macro qui est appelé
    Dim MonDico As Object, Plage(), i%
    'chargement de la combobox
    Set MonDico = CreateObject("Scripting.Dictionary")
    Plage = Range("Base[Type véhicule]") ' tableau a(n,1) pour rapidité
    For i = LBound(Plage) To UBound(Plage)
        If Plage(i, 1) <> "" Then MonDico(Plage(i, 1)) = ""
    Next i
    Me.ComboBox1.List = MonDico.keys
 
  End Sub

Code dans module :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
Sub lancement_pseudo()
Dim i As Integer
 
With Sheets("Feuil1").Range("B3") 'Inserer colonne A dans combobox1
UserForm1.ComboBox1.RowSource = Range(.Cells, .End(xlDown)(1, 1)).Address(External:=True)
End With
 
 
For i = 1 To Sheets("feuil1").Range("C65536").End(xlUp).Row
  ComboBox1 = Sheets("feuil1").Range("C" & i)
  If ComboBox2 = -1 Then ComboBox2.AddItem Sheets("feuil1").Range("C" & i)
Next i
 
UserForm1.Show
 
End Sub

Type véhicule	Option Clim	Pseudo
Fiat Ducato 2,3L E5+E5b	sans clim	a200
Iveco Daily 2,3L E5+E5OBD	sans clim	a201
Iveco Daily GMK 2,3L E5B	sans clim	a202
Iveco Daily GMK 2,3L E5B	avec clim	a203
Iveco Daily GMK 3L E5+E6	sans clim	a204
Iveco Daily GMK 3L E5+E6	avec clim	a205