Discussion :

[Chris171717]

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 :

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

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

[NEC14]

Bonjour,

Ceci est peut-être la solution.

Code :

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

1
2
 
ListBox1.List = str

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

[Chris171717]

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

[keygen08]

Bonjour

Dis moi si tu obtient le résultat attendu avec

Code :

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

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 :

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

If .Range("I1").Offset(i, 0).Value = "Faux" Then

[Chris171717]

Merci pour ta réponse mais malheureusement ça ne fonctionne toujours pas... quand je lance la recherche, le userform se ferme...