Bonjour,

J'ai créé un formulaire avec deux combobox liées entre elles.
En visu, elles fonctionnement correctement par contre quand je sélection dans ma deuxième combobox un nom de ma liste, le nom qui s'affiche est toujours le premier nom de la liste.

Je n'arrive pas à comprendre d'où vient l'erreur d'affichage.

Code pour ma première combobox:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub UserForm_Initialize()
 
Dim colonne As Integer
Sheets("CRITERES").Select
 
colonne = 4
Do While Cells(2, colonne).Value <> ""
 
    Saisie_données.type_enceinte.AddItem Cells(2, colonne).Value
    colonne = colonne + 1
 Loop
 
End Sub
code pour ma deuxième combobox qui pose problème:
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
Private Sub enceinte_Change()
 
Dim i As Integer, j As Integer
Dim colonne As Integer
 
i = 4
 
Saisie_données.enceinte.Clear
 
Do While Cells(2, i).Value <> ""
 
    If Cells(2, i).Value = type_enceinte.Value Then
    Cells(2, i).Select
    colonne = ActiveCell.Column
 
    End If
i = i + 1
 
Loop
 
j = 3
 
Do While Cells(j, colonne).Value <> ""
    Saisie_données.enceinte.AddItem Cells(j, colonne)
    j = j + 1
Loop
 
enceinte.ListIndex = 0
 
End Sub

Merci pour votre aide.

jker83