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

[matimatfr]

Bonjour et merci d'essayer de vous pencher sur mon problème.

Je vais reprendre depuis le départ. Dans le cadre de mon job, je fais un outil de gestion de nomenclature de formation. A l'intérieur de ce module j'essaye de mettre en place un module d'édition, car la nomenclature sera amené à évoluer en fonction des métiers etc..

Bref, pour ce faire j'ai besoin de pouvoir mettre en place cette fameuse listbox qui ressort le résultat des formations effectuées en fonction des métiers. Le fait d'avoir la listbox avec sélections me semble plus aisé pour les utilisateurs au quotidien.

Donc dans le userform mis en place, je cherche a avoir le résultat en fonction de l'activité choisies et effectivement l'initiale ou non, des formations dispensées..

Voilà voilà....

Peut être que je m'y prends mal, certainement, étant encore en apprentissage VBA et que ce n'est pas forcément la bonne solution...

[eriiic]

Tu racontes ta life, c'est bien. Mais en quoi c'est sensé répondre à mon interrogation ?

[matimatfr]

Tu racontes ta life, c'est bien. Mais en quoi c'est sensé répondre à mon interrogation ?

Je "raconte pas ma life" je crois, j'essaye d'exposer la problématique de départ. Je dois pas être assez "in" pour comprendre..

Bref, ta question était la colonne E. Effectivement et merci de recentrer le sujet sur cette fameuse colonne, je me rends compte que ma recherche est à l'envers. Je cherche sur la colonne C (qui devrait être juste le résultat) alors que je devrais le faire sur la E..

Reste la finalité de la mise en forme du code où je bloque

[eriiic]

C'est bien ce qu'il me semblait.
Quand tu auras les listes nécessaires il sera facile de boucler pour cocher celles devant l'être non ?
Et mieux, filtrer pour ne le faire que sur les lignes utiles :

Code :

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

1
2
Dim pl_datasAff As Range
Set pl_datasAff = [_FilterDataBase].Offset(1).Resize([_FilterDataBase].Rows.Count - 1).SpecialCells(xlCellTypeVisible)

eric

[matimatfr]

J'ai déjà réussi à faire la boucle de recherche avec deux critères.

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub ComboBox1_Change()
  n = ComboBox1
  p = "x"
  a = Sheets("BD").[A:A].Resize(, 5)
  For i = 1 To UBound(a, 1)
     If a(i, 1) = n And a(i, 5) = p Then
       MsgBox a(i, 3)
     End If
   Next i
End Sub

Bon là, il me sort tous les résultats en message box.

Reste à adapter pour alimenter la listbox. Pour le moment ça fonctionne pas encore, mais est ce que je te semble sur la bonne voie ?

[eriiic]

Perso j'ai plutôt l'impression que tu doives filtrer sur les colonnes 1 et 3, et que ta liste à cocher est celle en colonne 4.
eric