Problème recherche et listbox

Version imprimable

Bonsoir,

J'ai le code suivant pour faire une recherche puis afficher le resultat dans un listbox... mais au lieu de m'afficher le resultat, le userform se ferme...

Je ne comprend pas... je pense que mon erreur est ici à la ligne 18 mais je ne vois pas quoi mettre d'autre...

Pouvez-vous m'aider SVP :?

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Private Sub CommandButton3_Click()
Dim i, j As Integer
Dim str As String
 
UserForm7.Hide
 
    With Worksheets("Retenues")
        For i = 0 To .Columns(1).Find("*", , , , xlByColumns, xlPrevious).Row
            If .Range("I1").Offset(i, 0).Value = FAUX Then
                For j = 0 To .Rows(.Range("I1").Offset(i, 0).Row).Find("*", , , , xlByColumns, xlPrevious).Column
                    str = str & .Range("A1").Offset(i, j).Value & vbTab
                Next j
                str = str & vbCrLf
            End If
        Next i
    End With
 
    ListBox1 = str
 
End Sub

20/02/2013, 09h11
NEC14
Bonjour,

Ceci est peut-être la solution.
Code:

1 2 ListBox1.List = str
20/02/2013, 10h23
Chris171717

Bonjour,

Merci pour la réponse mais ça ne fonctionne pas...

il me renvoi "impossible de définir la propriété List. Index de table de propriétés non valide."

:roll:
20/02/2013, 10h53
Chris171717

1 pièce(s) jointe(s)

J'ajoute le fichier ça peut peut-être aider...

c'est pour le userform7 je voudrais qu'il affiche dans la liste toutes les personnes dont la valeur en colonne I est FAUX.

Le code fonctionne si je mets une MsgBox à la place de la ListBox et sans le "=" mais ça ne m'intéresse pas...
20/02/2013, 11h38
keygen08

Bonjour

Dis moi si tu obtient le résultat attendu avec

Code:

listbox1.additem str

Je pense qu'il faut le remonter

et le FAUX de la ligne 9 me semble étrange, ne serait ce pas

Code:

If .Range("I1").Offset(i, 0).Value = "Faux" Then
20/02/2013, 11h56
Chris171717

Merci pour ta réponse mais malheureusement ça ne fonctionne toujours pas... quand je lance la recherche, le userform se ferme...
20/02/2013, 11h58
keygen08

Oui normal, ligne 5
20/02/2013, 12h03
Chris171717

:oops::oops::oops::oops:

Autant pour moi... il faut peut-être que je change mes lunettes... :aie:

Merci encore ça fonctionne