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