Problèmes : 4 filtres en cascade ComboBox pour affichage dans une ListBox

Version imprimable

28/11/2019, 11h24
Tintin88

1 pièce(s) jointe(s)

Problèmes : 4 filtres en cascade ComboBox pour affichage dans une ListBox

Bonjour,

Je ne suis pas un pro de VBA et je rencontre quelques difficultés.

Je m'explique :

- J'ai crée un formulaire (UserForm2) permettant de rentrer des "problèmes" dans une base de donnée.

- Maintenant j'aimerais à partir d'un autre formulaire (UserForm3), pouvoir filtrer mes données d'entrées qui se situe dans 4 ComboBox (1,2,3,4).
Le filtre en cascade ou le filtre sans priorité n'a pas grande importance dans mon cas, tant que les ComboBox se mettent bien à jour en fonction des autres.

- J'aimerais retrouver la/les ligne(s) de ma base de donnée qui correspondent aux valeur dans mes ComboBox, dans une ListBox (1) sur le formulaire.

- Cela me permettra donc de sélectionner une ligne dans la liste pour afficher toutes les autres informations relative à ce problèmes dans des TextBox (2,3,4,5,6,7,8,9,10).

- Comme cela je pourrais modifier et ajouter des informations en complément à ma base de donnée.

Je sait qu'il est possible de ne réaliser qu'un seul formulaire pour l'ajout et la modification de donnée, mais vu mon niveau peu élevé j'ai préférer ne pas tout mélanger.

J'espère avoir était clair dans ma demande. J'ai fouillé un peu partout sur internet et sur des forums pour trouver une solution. J'en ai trouver plusieurs intéressante qui ressemble à ce que je souhaite faire, mais je n'arrive pas à les adapter pour mon utilisation. JE rencontre des erreurs à chaque fois que je n'arrive pas à résoudre.

Je vous met en copie mon excel avec mon UserForm1 pour l'ajout de données qui fonctionne, la base de donnée et le USerForm2 sans "les codes déchets".

En espérant que quelqu'un puisse m'aider ou m'aiguiller pour réaliser mon formulaire. :lole:

Je vous remercie par avance.

Tintin88

Edit : avec le Excel c'est mieux :lole:
28/11/2019, 12h23
Thautheme

Bonjour Tintin, bonjour le forum,

je ne comprends pas pourquoi la ComboBox4 se trouve après la Listbox1. Ce n'est pas logique puisque il te faut la valeurs des 4 comboboxes pour alimenter la Listbox1...
28/11/2019, 12h30
Tintin88

1 pièce(s) jointe(s)

Bonjour Thautheme,

Merci pour ta réponse tout d'abord.

Je viens de remettre cela dans l'ordre et j'ai trouver la solution pour filtrer ma list via mes 4 combobox (Elles ne fonctionne pas vraiment en cascade mais ça fonctionne quand même) :aie:
Je vais essayer de crée un filtre via une barre de recherche pour complémenter le tout.

Cependant je n’arrive pas à sélectionner une ligne dans ma list pour afficher les valeur dans mon formulaire.

Je ne sait pas si vous pourrez m'aider avec cela. Je remet le dernier fichier à jour en pièce jointe.

Merci

Bonjour Tintin, bonjour le forum,

Une proposition au double-click dans la Listbox1 pas fiable à 100 %. En effet, j'ai remarqué plusieurs fois que si je renseignais la Combobox4 puis modifiais la valeur de cette même ComboBox4, j'avais un bug... Sinon ça semble tourner.
J'avoue que je ne comprends pas bien le code qui permet d'alimenter la ListBox1 mais il me semble qu'il serait plus judicieux de stocker dans un colonne cachée (de la Listbox1) le numéro de ligne et au double-clic de se servir du numéro de ligne caché pour atteindre la ligne sans toute l'usine a gaz que je t'ai proposée.

Le code :

Code:

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
Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Dim TV As Variant
Dim I As Integer
 
TV = Worksheets("Feuil11").Range("A1").CurrentRegion
If Me.ComboBox1.Value = "" And Me.ComboBox2.Value = "" And Me.ComboBox3.Value = "" And Me.ComboBox4.Value = "" Then LI = Me.ListBox1.ListIndex + 1
If Me.ComboBox2.Value = "" And Me.ComboBox3.Value = "" And Me.ComboBox4.Value = "" Then
    For I = 2 To UBound(TV, 1)
        If CStr(TV(I, 1)) = Me.ComboBox1.Value And CStr(TV(I, 2)) = Me.ListBox1.Column(1, Me.ListBox1.ListIndex) And CStr(TV(I, 3)) = Me.ListBox1.Column(2, Me.ListBox1.ListIndex) And CStr(TV(I, 4)) = Me.ListBox1.Column(3, Me.ListBox1.ListIndex) Then LI = I
    Next I
End If
If Me.ComboBox3.Value = "" And Me.ComboBox4.Value = "" Then
    For I = 2 To UBound(TV, 1)
        If CStr(TV(I, 1)) = Me.ComboBox1.Value And CStr(TV(I, 2)) = Me.ComboBox2.Value And CStr(TV(I, 3)) = Me.ListBox1.Column(2, Me.ListBox1.ListIndex) And CStr(TV(I, 4)) = Me.ListBox1.Column(3, Me.ListBox1.ListIndex) Then LI = I
    Next I
End If
If Me.ComboBox4.Value = "" Then
    For I = 2 To UBound(TV, 1)
        If CStr(TV(I, 1)) = Me.ComboBox1.Value And CStr(TV(I, 2)) = Me.ComboBox2.Value And CStr(TV(I, 3)) = Me.ComboBox3.Value And CStr(TV(I, 4)) = Me.ListBox1.Column(3, Me.ListBox1.ListIndex) Then LI = I
    Next I
End If
MsgBox "Ligne : " & LI
With Worksheets("Feuil11")
    .Activate
    .Cells(LI, 1).Select
End With
End Sub

28/11/2019, 15h40
Tintin88

Re bonjour Thautheme et bonjour également au forum,

Merci pour ta réponse et pour ton code.

J'ai juste une petite question, je ne comprend pas d'où provient LI. Elle apparaît pour la première fois en ligne 6 de ton code :

Code:

If Me.ComboBox1.Value = "" And Me.ComboBox2.Value = "" And Me.ComboBox3.Value = "" And Me.ComboBox4.Value = "" Then LI = Me.ListBox1.ListIndex + 1

Peux-tu m'éclairer la-dessus?

Je ne pourrais pas t'éclairer pour le code qui permet de remplir la ListBox1 car ce n'est moi qui l'ai réaliser, il provient d'un tuto. J'ai juste réaliser les filtres pour les ComboBox.
La solution que tu me propose à l'air plus pertinente et plus simple à mettre en place, je vais essayer cela.

Je te remercie.

Quentin
28/11/2019, 15h50
Thautheme
Re,

En fait j'avais déclaré la variable LI en début de code pour que tu puisses l'utiliser dans le code toute l'UserForm et j'ai oublié de l'inclure dans le copier/coller :
Code:

1 2 3 4 Option Explicit Private Const nbCbxL = 4 Private Tusf As Variant Private LI As Integer
LI représente le numéro de ligne...
28/11/2019, 16h54
boisgontierjacques

1 pièce(s) jointe(s)

Bonjour,

Avec un pgm générique

Boisgontier
28/11/2019, 17h05
Thautheme

Re,

Hou la la !... Du lourd avec maître Jacques. je crois que je vais me l'apprendre par cœur celui-là, si j'y arrive...
28/11/2019, 17h13
Tintin88

Bonjour Boisgontier, Re Thautheme,

D'accord Thautheme, je me disait bien qu'il s'agissait d'une variable non déclarée mais je voulais comprendre à quoi elle servait, merci beaucoup.

Whaou, merci beaucoup Boisgontier, c'est exactement ce que je cherchais.
J'avoue ne pas tout comprendre de votre programme mais je vais plancher dessus.
En tout cas il répond exactement à mon besoin.

Encore merci à vous deux, je vais pouvoir clôturer le sujet.

Je vous souhaite une bonne soirée,

Tintin

1 pièce(s) jointe(s)

Bonsoir,

Version avec ComboBox(1 à 6) et affinage avec TextBox intuitif.

C'est un programme générique. Les instructions à adapter sont les suivantes:

Code:

1
2
3
 ColCombo = Array(1, 2, 3)                                         ' A adapter (1 à 6 colonnes maxi)
 colVisu = Array(1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14)    ' Colonnes ListBox (à adapter)
 colInterro = Array(1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14) ' Colonnes à interroger (adapter)

Boisgontier

03/12/2019, 09h13
Tintin88

Bonjour,

Merci beaucoup pour ce complément très intéressant et utile.

Vous faites vraiment du beau travail.

Je vous remercie grandement.

Tintin