Userform multi-critères vba

Hello tout le monde,

je vous écris car je rencontre quelques difficultés dans l'élaboration de mon userform. J'ai réussi à créer mon formulaire, il comporte une TextBox dans laquelle je peux rentrer mes mots-clés séparés par un espace; ma ListBox est quant à elle composée de mes colonnes avec les infos dont j'ai besoin (6colonnes).

Ma question est: comment faire lorsque je double-clique sur une ligne de ma ListBox pour que cela me renvoie vers la ligne correspondante mais dans mon tableau source? Quel code puis-je utiliser ?

J'espère que j'ai été assez précise, merci beaucoup d'avance et bonne soirée.

Fanny

Citation:

---

Envoyé par Awaleeeee

---

Bonjour,

La colonne de référence de votre ListBox est celle que vous définissez dans la propriété BoundColumn. Il vous faut donc faire une boucle sur la colonne correspondante de votre tableau source et comparer les contenus. Vous pourriez également charger le numéro de ligne dans votre ListBox pour avoir une lecture directe.

Alors j’ai:

Code:

---

1 2 3 4 5 6 7 8 9

Private Sub ListBox_DblClick(ByVal Cancel As MSForms.ReturnBoolean)   Dim b b=Me.ListBox1.ListIndex + 6 (‘6 étant mon nombre de colonne dans ma listbox) ActiveSheet.Rows(b).Select Unload Userform1   End Sub

---

Cela marche seulement partiellement car lorsque je ne fais pas de recherche dans ma textbox et que je défile juste ma ListBox cela fonctionne : je peux double cliquer et ça me renvoie à la ligne correspondante dans mon tableau source. En revanche, lorsque je fais une recherche dans ma TextBox que je double clique sur la ligne qui s’affiche dans la ListBox cela me renvoie sur une ligne au hasard du tableau source et non la bonne.

Savez vous comment je peux régler ce problème ? Merci d’avance

Citation:

---

Envoyé par Awaleeeee

---

Regardez cet exemple : https://www.developpez.net/forums/d1...urs-variables/

Citation:

---

Envoyé par Eric KERGRESSE

Regardez cet exemple : https://www.developpez.net/forums/d1...urs-variables/

---

J’ai plus ou moins la même chose j’ai juste une TextBox en + dans laquelle je peux appliquer des critères en tapant des mots clés ( j’ai environ 3000 lignes dans mon tableau) mais je n’arrive pas à sélectionner la ligne de mon tableau source en cliquant sur la ligne que j’ai choisi dans ma listBox

Citation:

---

Envoyé par Awaleeeee

---

Mettez votre fichier zipé en ligne.

Citation:

---

Envoyé par Eric KERGRESSE

Mettez votre fichier zipé en ligne.

---

le fichier est confidentiel dans sa totalité et ce serait compliqué d'en faire un factice, je vous mets des screens de mon code et de mon user form:

Pièce jointe 574314
Pièce jointe 574316
Pièce jointe 574317
Pièce jointe 574318

voilà, j'espère que ça suffira...

Merci beaucoup

[QUOTE=Awaleeeee;11589189]
/QUOTE]

Mettez votre code entre balises #

Nb : Vos variables tableaux commencent à l'indice 0, or certains chargements commencent à 1. Pour la lisibilité du code, évitez les suites de : entre les commandes. Vous devriez vérifier le contenu de vos matrices avec des Debug.print.

Bonjour,
L'image que tu affiches et le code que tu publies, ressemble furieusement à une code proposé par Jacques Boisgontier, pourquoi ne pose-tu pas la question directement à son auteur ?

Bonjour,

Dans le message #2, Eric (salutations) vous suggère de placer le numéro de ligne dans une colonne de votre ListBox.
C'est la meilleure solution.

En apportant les modifications ci-dessous à votre code (je n'ai pas tout réécris, juste les parties à modifier), cela devrait fonctionner :

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 28 29 30 31

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean) Dim Lig As Long Lig = Me.ListBox1.List(ListBox1.ListIndex, 6) 'retrouve le numéro de ligne en colonne 7 de la ListBox   '...   End Sub   Private Sub UserForm_Initialize()   '.......   Me.ListBox1.ColumnCount = 7 Me.ListBox1.ColumnWidths = "40;175;95;110;90;100;0"   '....   '--- valeurs initiales dans ListBox Dim Tbl(): ReDim Tbl(1 To UBound(BD), 1 To 7) For i = 1 To UBound(BD) c = 0 For Each k In ColVisu c = c + 1 Tbl(i, c) = BD(i, k) Next Tbl(i, c + 1) = i 'place le numéro de ligne en colonne 7 Next i   '....   End Sub

---

Les points de suspension dans mon code sont les parties de votre code que je n'ai pas recopié...