Discussion :

[Peerl]

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

[Wololol]

Bonjour,

Peux-tu nous envoyer ton code afin qu'on puisse trouver où est le problème ?

Bonne journée

[Peerl]

Je vais modifier mon Message et mettre le code entier ! Merci beaucoup

[Wololol]

Re,

Je sais pas si c'est moi, mais ce code a l'air anormalement complexe pour ce qu'il est censé faire oO.

Je ne comprend pas trop le lien qui lit les éléments de ton ComboBox avec ta colonne E.

En gros, tu as également le contenu de ta ComboBox dans la colonne D qui est relié à un texte dans la colonne E ?

De plus, que fais ce b(j, k) = i isolé de ta boucle for ?

[Peerl]

Code :

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

If Me.ComboBox3 = BD1(i, 4) Then

ici le numéro 4 indique la colonne D et donc une fois je clique sur l'une des valeurs de cette colonne dans la comboBox il va afficher toute la ligne correspondante ( cela fonctionne parfaitement ) or que moi je veux afficher qu'une colonne précise c'est la colonne E ( la colonne 5 ) pas toute la ligne mais ça je n'ai pas su le faire ..

[Wololol]

Re,

Voici un code que j'ai écrit sur un nouveau classeur :

Code :

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

1
2
3
4
5
6
7
8
 
Private Sub ComboBox1_Click()
    For i = 1 To Range("D" & Rows.Count).End(xlUp).Row
        If ComboBox1 = Range("D" & i).Value Then
            ListBox1.AddItem Cells(i, 5).Value
        End If
    Next
End Sub

Ici on compare la valeur de la ComboBox avec ta colonne D, afin de récupérer la coordonnée de la ligne (i), puis on prend uniquement la valeur de la Cellule (i,5) qui correspond à ce que tu cherche.

Après, vu que je ne connais pas tes variables, tu va devoir l'adapter.