Discussion :

[jker83]

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

[Thautheme]

Bonjour Jker, bonjour le forum,

Je ne comprends pas ton code !?... J'ai l'impression que tu t'es mélangé les pinceaux. Je te propose :

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 OC As Worksheet
 
Private Sub UserForm_Initialize()
Set OC = Worksheets("CRITERES")
type_enceinte.List = OC.Range("C2:C" & OC.Cells(Application.Rows.Count, "C").End(xlUp).Row).Value
End Sub
 
Private Sub type_enceinte_Change()
Dim COL As Integer
 
enceinte.Clear
COL = OC.Rows(2).Find(Me.type_enceinte.Value, , xlValues, xlWhole).Column
enceinte.List = OC.Range(OC.Cells(3, COL), OC.Cells(Application.Rows.Count, COL).End(xlUp).Row).Value
enceinte.ListIndex = 0
End Sub

N'oublie pas la déclaration en haut du module...

[jker83]

Merci Thauthème,

Ça fonctionne correctement.
Merci, ça faisait un moment que je bugais dessus a rien n'y comprendre.