BONJOUR ,


Normalement quand je clique sur une valeur dans cette COMBOBOX3 ( qui se trouve dans la colonne D = 4 ) je dois afficher le libelle de la colonne E dans la LISTBOX2 or que ça m'affiche toute la ligne .

Je fais comment ?

Je vous remercie 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
 
 
Private Sub ComboBox3_click()
 
On Error GoTo errorHandler
 
  Me.ListBox2.Clear
 
  j = 0
  n = Application.CountIf(Application.Index(Rnge, , 4), Me.ComboBox3)
  Dim b()
  ReDim b(1 To n, 1 To Ncol1 + 1)
  For i = LBound(BD1) To UBound(BD1)
    If Me.ComboBox3 = BD1(i, 4) Then
      j = j + 1
      For k = 1 To Ncol1
        b(j, k) = BD1(i, k)
        If k >= 3 And k <= 5 Then b(j, k) = Format(BD1(i, k), "00 00 00 00 00")
      Next k
      b(j, k) = i
    End If
Next i
 
   ListBox2.List = b
   ListBox2.ListIndex = 0
 
 
 
Exit Sub
errorHandler:
    MsgBox Err.Number & vbLf & Err.Description
 
End Sub
Private Sub ComboBox3_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
 
On Error GoTo errorHandler
 
  Me.ComboBox3.DropDown
 
Exit Sub
errorHandler:
    MsgBox Err.Number & vbLf & Err.Description
 
End Sub