bonjour
je ne suis pas un expert, mais peut etre que ceci te conviendrais, à placer dans le code de ton userform.
j'ai pas compris : ' mais également pourvoir choisir pour avoir à la fin des listes le résultat de ma recherche.'
pourquoi 10 listboxs, et non 1 seul avec 10 colonnes ?
Citation:
PrivateSub UserForm_Initialize()
Dim j As Byte
Dim i As Integer
For j = 1 To 10
For i = 2 To Range('a65536').End(xlUp).Row
If Rows(i).Hidden = FalseThen
Controls('listbox' & j).AddItem Cells(i, j)
End If
Next i
Next j
End Sub
|
salut
edition : salut thomas
Message édité par: hervé, à: 22/05/2006 14:58