filtrer dans une listbox

  • Initiateur de la discussion Michel
  • Date de début
M

Michel

Guest
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]
 
M

Michel

Guest
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]
 
M

Michel

Guest
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]
 

Pièces jointes

  • ListBoxMulti_20050308095053.zip
    37.6 KB · Affichages: 54

MichelXld

XLDnaute Barbatruc
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]
 

Pièces jointes

  • ListBoxMulti_V02.zip
    42.9 KB · Affichages: 91
M

Michel

Guest
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

XLDnaute Barbatruc
Repose en paix
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()

Code:
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
 

Discussions similaires

Statistiques des forums

Discussions
312 668
Messages
2 090 739
Membres
104 643
dernier inscrit
adriano22