Filtrage listbox et remplissage textbox

bonjour à tous,

Je viens vers vous car je n'arrive pas à resoudre 2 problèmes.

(1) Je dispose d'une feuille excel avec des données.

Ces données servent à remplir une listbox par le procédure suivante:

Code:

---

1 2 3 4

Sub creation_listeF() form1.listbox1.RowSource = Range("A2", Range("J65000").End(xlUp)).Address End Sub

---

Sur chaque champ de cette listbox, je souhaite effectuer un filtrage à partir d'une textbox, dont voici le code:

Code:

---

1 2 3 4 5 6

Private Sub T_FiltreF1_Change() 'ref Selection.AutoFilter field:=1, Criteria1:="*" & T_FiltreF1 & "*" listbox1.RowSource = Range("A2", Range("K65000").End(xlUp)).Address End Sub

---

Le problème est que lorsqu'une occurence est trouvée, les lignes inférieures sont bien masquées mais celles placées au dessus ne le sont pas.

Peut-être cela vient--il du End(xlUP)?

Auriez-vous une idée?

(2) Ensuite, de cette listbox quand je selectionne une ligne et que j'appuie sur un bouton ceci affiche un autre form avec une textbox par champ/colonne: dont voici le code:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

Private Sub B_Consulter_Click() 'formulaire de consultaton fiche Dim LigneSelectionnee As Integer 'cherche la ligne sélectionnée: LigneSelectionnee = Me.listbox.ListIndex + 2 If Me.listbox.ListCount >= 0 & LigneSelectionnee > 0 Then _ form2.Textbox1 = feuil1.Cells(LigneSelectionnee, 1) form2.Textbox2 = feuil1.Cells(LigneSelectionnee, 2) form2.Textbox3 = feuil1.Cells(LigneSelectionnee, 3) form2.Textbox4 = feuil1.Cells(LigneSelectionnee, 4) form2.Textbox5 = feuil1.Cells(LigneSelectionnee, 5)   form2.Show End Sub

---

Alors toutes les textbox sont remplies sauf la première¿!?

Pourquoi donc?

Merci pour votre aide!

Elumastebit

Bonsoir,

je suppose qu'il t'est venu à l'idée d'essayer de voir le pourquoi du comment, par exemple ainsi :

Code:

---

1 2 3 4 5 6 7

'....... If Me.listbox.ListCount >= 0 & LigneSelectionnee > 0 Then _ form2.Textbox1 = feuil1.Cells(LigneSelectionnee, 1) If trim(form2.TextBox1) = "" then msgbox "j'en suis à la ligne " & ligneselectionee & " dont la colonne 1 contient " & feuil1.Cells(LigneSelectionnee, 1) end if ' .... etc...

---

?

Au passage (bien que n'ayant rien à voir, mais dont on se demande quelle peut en être la logique utile) :

Code:

---

1 2	LigneSelectionnee = Me.listbox.ListIndex + 2 If Me.listbox.ListCount >= 0 & LigneSelectionnee > 0 Then _

---

A quoi sert ce que j'ai mis en gras ?
Ligneselectionnee (= listindex + 2) ne peut en aucun cas être <= 0 puisque sa plus petite valeur sera, lorsque RIEN N'EST SELECTIONNE : -1 + 2 = 1 ...
vérification bien inutile, donc ...;)

Bonjour,

Citation:

---

je suppose qu'il t'est venu à l'idée d'essayer de voir le pourquoi du comment, par exemple ainsi : "..."
?

---

en ayant la msgbox qui s'affiche je comprend que mon erreur se situe avant mais je n'ai finalement pas bien longtemps à chercher puisque la solution est dans la seconde partie de ton post:

Citation:

---

Au passage (bien que n'ayant rien à voir, mais dont on se demande quelle peut en être la logique utile) :
...
vérification bien inutile, donc ...

---

Oui elle même plus contraignante qu'inutile puisque c'est elle qui empêchait l'affichage dans ma textbox1.

Bien que je comprenne pourquoi elle est inutile je ne comprend pas bien pourquoi elle empêchait mon code de fonctionner, m'enfin...

Merci beaucoup ucfoutu et si tu as une idée pour mon premier problème :lol: ce serait le bienvenu.

A plus tard et bon dimanche

Re...
Regarde ce que tu avais écrit :

Code:

---

If Me.listbox.ListCount >= 0 & LigneSelectionnee > 0 Then _

---

& est un opérateur de concaténation, à ne pas confondre avec l'opérateur logique And ...;)

EDIT :
Maintenant, juste pour le cas (que tes explications ne permettent pas de deviner avec précision) où ta listbox contiendrait en fait des numéros de ligne parmi lesquelles choisir :
Je te rappelle que Listbox1.Listindex n'extrait pas un artcicle, mais l'indice dans la listbox ...

Code:

---

ListBox1.List(ListBox1.ListIndex)

---

par contre, extrait le contenu de l'article d'indice ListBox1.Listindex ...;)

Je te rappelle également que le contenu des listboxes est des chaînes de caractères et que, si l'on est orthodoxe et qu'un numéro de ligne est une valeur numérique, on utilise ainsi la fonction Val :

Code:

---

Val(ListBox1.List(ListBox1.ListIndex))

---

Bon dimanche...;)

Citation:

---

& est un opérateur de concaténation, à ne pas confondre avec l'opérateur logique And ...

---

Bé oui suis je bête!

Merci encore! :yaisse2:

Regarde donc maintenant mon EDIT (au dessus)

Ok,
merci pour pour tes précisions, avec mon niveau de noob j'ai quand même du mal à utiliser toutes ces fonctions, mais en tout cas je ne me suis pas trompé sur le listbox.listindex.

En ce qui concerne mon premier problème, l'affichage d'occurrence après un tri j e vais voir sur un autre mode de remplissage de ma listbox: ne pas afficher les hide et je vous tient au courant.

Merci.

Elumastebit