Filtrage listbox et remplissage textbox

**Elumastebit** · 20/12/2008, 12h07

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 :

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

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 :

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

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 :

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

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

**ucfoutu** · 20/12/2008, 22h53

Bonsoir,

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

Code :

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

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 :

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

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 ...

**Elumastebit** · 21/12/2008, 09h38

Bonjour,

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:

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

ce serait le bienvenu.

A plus tard et bon dimanche

**ucfoutu** · 21/12/2008, 09h43

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

Code :

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

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 :

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

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 :

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