filtrer dans une listbox

[Michel]

Bonjour à tout le forum,

A l'aide d'une démo de @+Thierry, j'ai réussi à faire ma facture.
Ce que je recherche c'est de pouvoir filtrer la listbox à l'aide d'une
textbox.
C'est-à-dire quand je tape le E dans la textbox, tous les produits
commençant par E se mettent dans la listbox.
J'espère avoir été assez clair, et je vous remercie du petit coup de mains
que vous pouvez me donné.
D'avance merci
Michel [file name=ListBoxMulti.zip size=0]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/ListBoxMulti.zip[/file]

 

[Michel]

re
Le fichier
Michel [file name=ListBoxMulti_20050308094241.zip size=0]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/ListBoxMulti_20050308094241.zip[/file]

 

[Michel]

Re
Je crois que j'ai un problème pour les fichier joint.
J'essai encore
Michel [file name=ListBoxMulti_20050308094606.zip size=0]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/ListBoxMulti_20050308094606.zip[/file]

 

[Michel]

Re
Le fichier enfin j'espère [file name=ListBoxMulti_20050308095053.zip size=38501]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/ListBoxMulti_20050308095053.zip[/file]

 

[MichelXld]

bonsoir Michel

le lien ci dessous traite du meme sujet
j'espere que cela pourra t'aider


Lien supprimé



bonne soiree
MichelXld

 

[MichelXld]

rebonsoir Michel

tu peux tester cette adaptation .
( je n'ai peut etre pas testé tous les cas de figure )


bonne soiree
MichelXld [file name=ListBoxMulti_V02.zip size=43905]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/ListBoxMulti_V02.zip[/file]

 

[Michel]

Bonjour Michel et tout le forum,
Je te remercie de t'avoir pencher sur mon problème,
ça marche nickel, juste une autre petite question :
dans les colonnes de la listbox est-il possible de conserver les
deux chiffres du prix après le virgule.
je te remercie encore pour ton aide
Michel

 

[_Thierry]

Bonjour les Michel, le Forum

Je ne comprends pas, tu parles de quelle ListBox conserver les
deux chiffres du prix après le virgule ?

Je ne vois que celle du UserForm1, et dans celle là je vois bien les chiffres avec virgule, mais je crois que c'est quand tu utiises le mode recherche de la TextBox1...

Dans ce cas ajuste la Private Sub TextBox1_Change() :

ReDim Preserve Myarray(4, X)
Myarray(0, X) = C
Myarray(1, X) = C.Offset(0, 1)
Myarray(2, X) = Format(CDbl(C.Offset(0, 2)), '# ### ###.#0')
Myarray(3, X) = Format(CDbl(C.Offset(0, 3)), '# ### ###.#0')
X = X + 1


Par contre il faudra changer intégralement la procédure Private Sub ComdValider_Click()

Private Sub ComdValider_Click()
Dim L As Integer
Dim i As Byte
Dim verif As Boolean
verif = False
        
For i = 0 To Me.ListBox1.ListCount - 1
    If ListBox1.Selected(i) = True Then
       With Sheets('Inserer')
        L = .Range('A65536').End(xlUp).Row + 1
            .Range('A' & L) = Me.ListBox1.List(i, 0)
            .Range('C' & L) = Me.ListBox1.List(i, 1)
            .Range('I' & L) = CDbl(Me.ListBox1.List(i, 2))
       End With
       verif = True
       Me.ListBox1.Selected(i) = False
    End If
    
    If ff.Range('A18').Value = '' Then
        Set ici = ff.Range('A18')
    Else
        Set ici = ff.Range('A54').End(xlUp).Offset(1, 0)
    End If
    If ici.Row > 53 Then
        MsgBox 'La facture est pleine !'
        Unload Me
        Exit Sub
    End If

Next
If verif = False Then MsgBox ('Veuillez choisir un Nom.')
End Sub

Et ne pas oublier de modifier la Private Sub UserForm_Initialize()

With ListBox1
.RowSource = 'DataBase!' & Plage
.ColumnCount = 4
.MultiSelect = fmMultiSelectMulti
.ColumnHeads = True
End With


Ton UserForm sera en MultiSelect et bien plus ergonomique...

Bonne Journée
@+Thierry

Message édité par: _Thierry, à: 09/03/2005 08:19

 

[Michel]

Bonjour Thierry,
Oui c'est exactement ce que tu m'as proposé, et je te remercie du temps que
tu prends pour aider des novices comme moi.
Encore merci et @ plus
Michel

 

[_Thierry]

Re Les Michels !!!

C'est moi qui te remercie et peut-être un jour seras-tu en mesure d'en aider tout pleins d'autres...

Bon Appétit
@+Thierry