filtrer dans une listbox

M

Michel

Guest

• 8 Mars 2005

• #2

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]

 

Vote positif 0 Vote négatif

M

Michel

Guest

• 8 Mars 2005

• #3

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]

 

Vote positif 0 Vote négatif

M

Michel

Guest

• 8 Mars 2005

• #4

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

Vote positif 0 Vote négatif

M

MichelXld

XLDnaute Barbatruc

• 8 Mars 2005

• #5

bonsoir Michel

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


Lien supprimé



bonne soiree
MichelXld

 

Vote positif 0 Vote négatif

M

MichelXld

XLDnaute Barbatruc

• 8 Mars 2005

• #6

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

Vote positif 0 Vote négatif

M

Michel

Guest

• 9 Mars 2005

• #7

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

 

Vote positif 0 Vote négatif

_Thierry

XLDnaute Barbatruc

Repose en paix

• 9 Mars 2005

• #8

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

 

Vote positif 0 Vote négatif

M

Michel

Guest

• 9 Mars 2005

• #9

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

 

Vote positif 0 Vote négatif

_Thierry

XLDnaute Barbatruc

Repose en paix

• 9 Mars 2005

• #10

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

 

Vote positif 0 Vote négatif