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
Partager