Discussion :

[matimatfr]

Bonjour à toutes et à tous,

Je viens vers vous afin de trouver une solution ou une aide.

Voilà ma problématique. J'ai un tableau de 4 colonnes. Dans ces colonnes, j'ai une multitude de récurrences. Je cherche à alimenter une listbox à sélection multiples en fonction d'un critère dans une combobox. J'arrive à avoir le résultat pour une ligne, mais pas pour toutes les lignes du tableau. Je sais faire pour une ligne en fait.. C'est l'adaptation à plusieurs lignes où je coince.

Voici mon code :

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
Dim f, ligneEnreg
Private Sub UserForm_Initialize()
 Set f = Sheets("BD")
   Set mondico = CreateObject("Scripting.Dictionary")
   For Each c In Range(f.[A2], f.[A65000].End(xlUp))
      mondico(c.Value) = ""
   Next c
   Me.ComboBox1.List = mondico.keys
   Set mondico2 = CreateObject("Scripting.Dictionary")
   For Each n In Range(f.[C2], f.[C65000].End(xlUp))
      mondico2(n.Value) = ""
   Next n
   Me.ListBox1.List = mondico2.keys
End Sub
 
Private Sub ComboBox1_Click()
   ligneEnreg = Sheets("BD").[A:A].Find(ComboBox1, LookIn:=xlValues).Row
   temp = f.Cells(ligneEnreg, 3)
   a = Split(temp, "")
   For j = 0 To Me.ListBox1.ListCount - 1: Me.ListBox1.Selected(j) = False: Next j
   If UBound(a) >= 0 Then
        For j = 0 To Me.ListBox1.ListCount - 1
           If Not IsError(Application.Match(Me.ListBox1.List(j), a, 0)) Then
               Me.ListBox1.Selected(j) = True
           Else
               Me.ListBox1.Selected(j) = False
           End If
         Next j
    End If
End Sub

Pouvez vous m'aider afin de trouver la solution pour toutes les lignes ? Merci d'avance.

P.S : Si besoin d'un fichier simple sans macro, je peux vous le fournir.

[matimatfr]

Je relance le sujet, si quelqu'un a une solution a me proposer...

A toute fin utile je joins un fichier avec lequel je fais le test.

[patricktoulon]

Bonjour
j'avoue ne pas très bien comprendre ton code a mon avis ce que tu cherche est beaucoup plus simple

en tout cas ceci a mon avis génère une erreur

Code :

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

 If Not IsError(Application.Match(Me.ListBox1.List(j), a, 0)) Then

même si il n y a pas d'erreur déclenchée, et meme avec une listbox a une!!!! colonne ,il faut précisé la colonne (zero pour une list a 1 colonne )

Code :

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

 If Not IsError(Application.Match(Me.ListBox1.List(j,index colonne), a, 0)) Then

[matimatfr]

Merci de votre premier retour.

Ce que je cherche à faire c'est que, pour chaque item de la combobox, soit cochées les cases de la listbox si la formation est initiale ou non (les croix dans la colonne E de la BD). N'ayant pas encore inséré la variable des croix dans le code, toutes les cases de la listbox devrait être cochés. Ce qui n'est pas le cas pour le moment, puisqu'il ne compare que la première ligne de la BD et non toutes les lignes.

Pour info, étant autodidacte, je m'aide (beaucoup) des cours trouvés en ligne de boisgontierjacques et les codes utilisés sont en bonnes partie crées par lui. J'essaye de les adapter à mon problème et ma pratique.

[matimatfr]

Merci de votre premier retour.

Ce que je cherche à faire c'est que, pour chaque item de la combobox, soit cochées les cases de la listbox si la formation est initiale ou non (les croix dans la colonne E de la BD). N'ayant pas encore inséré la variable des croix dans le code, toutes les cases de la listbox devrait être cochés. Ce qui n'est pas le cas pour le moment, puisqu'il ne compare que la première ligne de la BD et non toutes les lignes.

Pour info, étant autodidacte, je m'aide (beaucoup) des cours trouvés en ligne de boisgontierjacques et les codes utilisés sont en bonnes partie crées par lui. J'essaye de les adapter à mon problème et ma pratique.

Je fais des tests avec des boucles et des méthode find défférente mais je reste complètement bloqué, si quelqu'un a une solution je suis preneur..

[eriiic]

Bonjour,

je ne comprend pas bien...

Ce que je cherche à faire c'est que, pour chaque item de la combobox, soit cochées les cases de la listbox si la formation est initiale ou non (les croix dans la colonne E de la BD)

Hors c'est dépendant de 'Déclinaisons modules' que tu n'as pas en liste.
eric