format listebox multicolonnes

[ledom]

Bonjour le forum

Dans un listebox j'ai 4 colonnes
la 1er et un nom (colonne A de ma feuille de donnée)
la 2eme et une reference(colonne B de ma feuille de donnée)
la 3eme une somme (type 10,20 €)(colonne C de ma feuille de donnée)
la 4emme et une quatité(colonne D de ma feuille de donnée)

De plus la selection de ma feuille de donnée viend du selection d'un autre combobox
With FrmProduits
.NomFeuille = ComboBox2.Value
Me.ListBox5.List = Sheets(.NomFeuille).Range("A2😀" & Sheets(ComboBox2.Value).[B65000].End(xlUp).Row).Value

je voudrais que l'affichage dans ma listbox soit aux bon format dans les differentes colonnes


Par avance Merci

PS : pas mis de fichier car 2 300 Ko (si possible explication pour joindre gros fichier)

@ + ledom

 

[klin89]

Re : format listebox multicolonnes

Bonsoir à tous, ledom
Salut CC,

Je crois comprendre que ledom veuille alimenter une Listbox à partir d'une feuille sélectionnée dans une combobox.
Est-ce l'effet recherché, voir le fil ci-dessous.

https://www.excel-downloads.com/thr...n-fonction-de-la-feuille-selectionnee.112540/

Klin89

 

[ledom]

Re : format listebox multicolonnes

Bonjour le forum
Bonjour Carcharodn-Cacharias
Bonjour Klin89

Excusé moi pour le retard seulement parti en week-end
Je joint un de mes fichiers du debut donc sans toutes les modifs c'est seulement pour comprendre ce que je voudrais faire
dans mes deux listboxs 4 et 5 j'aimerais que les prix soient affichés en 0,00 €, la ref en mode texte, la quantité en num (ça c'est bon)

Pour joindre mon fichier de 2250 Ko je ne sais toujours pas comment faire

Par avance Merci et @ + ledom

 

[klin89]

Re : format listebox multicolonnes

Bonjour à tous,
Bonjour ledom, CC

Dans l'UserForm Frmventes > ComboBox2_Change, essaie ceci :

Sub AfficheListe5()
 If ComboBox2.ListIndex > -1 And ComboBox1.ListIndex > -1 Then
   With FrmProduits
     .NomFeuille = ComboBox2.Value
     Me.ListBox5.List = Sheets(.NomFeuille).Range("A2:D" & Sheets(ComboBox2.Value).[B65000].End(xlUp).Row).Value
     For i = 0 To Me.ListBox5.ListCount - 1
       Me.ListBox5.List(i, 2) = Format(Me.ListBox5.List(i, 2), "#,##0.00 €")
     Next i
   End With
 Else
   Me.ListBox5.Clear
 End If
End Sub

Pour la ListBox4 :

Private Sub ajouter_Click()
.../...
ListBox4.List(ListBox4.ListCount - 1, 2) = Prix * NB
ListBox4.List(ListBox4.ListCount - 1, 2) = Format(ListBox4.List(ListBox4.ListCount - 1, 2), "#,##0.00 €")
.../...

A tester

Klin89

 

[ledom]

Re : format listebox multicolonnes

Re tous
Bonjour Klin89
Deja Merci pour ta reponce
Je regarderais cela ce soir et te tiendrais au courant

@+ ledom

PS : pour mon gros fichier pas de pistes ?

 

[ledom]

Re : format listebox multicolonnes

Bonjour Tous
Bonjour Klin89
Les deux petit rejouts fonctionnent trés bien Merci

Dans le même style j'ai un label ou j'affiche une somme en euro
Le format fonctionne mais il m'affiche la somme en arrondis

Frmventes.Label27.Caption = Format(Label27, " ####0.00 €")

Lorsque j'ai 1,83 € dans ma feuille clients à la colonne remise 3% dans le label j'ai 2,00€

Part avance Merci @ + ledom



PS: le code complet de mon label


Dim Remiseatt As Integer
Dim i As Integer
i = Frmventes.ComboBox1.ListIndex + 2
Remiseatt = .Range("AC" & i)

Frmventes.Label27 = Remiseatt
Frmventes.Label27.Caption = Format(Label27, " ####0.00 €")

End With