Excel 2007 Format Euros dasn Listbox

[MuscatMimi]

Bonsoir a tous le Forum

J'ai un Fichier dont je n'arrive pas a mettre au format"0.00 € "les Colonnes "5"Débit" "6 Crédit"
ci joint mon Fichier

merci a tous
Cordialement

 

[job75]

Bonsoir vaucluse immo, très heureux de te revoir, ça fait longtemps que tu ne venais plus sur XLD,

Il faut formater les colonnes 5 et 6 de la ListBox :

Private Sub UserForm_Initialize()
Dim derlig&, i&
Sheets("donées").Select
derlig = Range("a65536").End(xlUp).Row
T = Range("a2:h" & derlig)
For i = 1 To derlig - 1
    T(i, 5) = Format(T(i, 5), "0.00 €")
    T(i, 6) = Format(T(i, 6), "0.00 €")
Next
ListBox1.List = T
t1 = Range("A2:A" & derlig): cbx1.List = t1
t2 = Range("B2:B" & derlig): cbx2.List = t2
t3 = Range("C2:C" & derlig): cbx3.List = t3
t4 = Range("D2:D" & derlig): cbx4.List = t4
t5 = Range("E2:E" & derlig): Cbx5.List = t5
t6 = Range("F2:F" & derlig): Cbx6.List = t6
t7 = Range("G2:G" & derlig): Cbx7.List = t7
t8 = Range("H2:H" & derlig): Cbx8.List = t8
End Sub

A quoi servent cbx1 cbx2 cbx3 etc ??

A+

 

[Roland_M]

bonjour tout le monde !
Salut Job75 !

j'avais pensé comme ceci, j'ai essayé c'est ok les t1/t2/t3 ... sont inutile !

'ici il faut répéter chaque fois As Variant, bien que ce n'est pas nécéssaire par defaut c'est Variant
'pas valable ! Dim T, t1, t2, t3, t4, t5, t6, t7, t8 As Variant, x As Integer
'Dim T As Variant, t1 As Variant, t2 As Variant, t3 As Variant, t4 As Variant
'Dim t5 As Variant, t6 As Variant, t7 As Variant, t8 As Variant, x As Integer

Private Sub UserForm_Initialize()
Sheets("donées").Select: Dim i
T = Range("a2:h" & Range("a65536").End(xlUp).Row): ListBox1.List = T
'colonne 5/6 (mais 0 compte soit 4/5)
For i = 0 To ListBox1.ListCount - 1
ListBox1.List(i, 4) = Format(ListBox1.List(i, 4), "# ##0€")
ListBox1.List(i, 5) = Format(ListBox1.List(i, 5), "# ##0€")
Next
End Sub

 

[MuscatMimi]

merci Job 75
et oui ça fait longtemps,j'ai laissé de côté excel
les Cbx1,2,3,4,5,6,7,8 servent a filtrer les données par type de colonnes
mais quelques une fonctionne mal
a bientôt
Christian

 

[mapomme]

Bonsoir @vaucluse immo , à tous,

Juste pour ma curiosité : à quoi peut bien servir un tel userform qui ne fait pas plus (et plutôt moins) que le filtre automatique de la feuille "donées" ?
(on remarquera que le filtre automatique conserve nativement le format monétaire )

 

[MuscatMimi]

Bonsoir a Tous

milles excuse Roland j'avais pas vu ta réponse,merci
Finalement,comme j'ai presque tout perdu sous Excel,j'abandonne car je n'y arrive pas
J'ai trouvé un Fichier qui me corresponds mieux,qui est de Boisgontier
j'ai modifié l'USF Annoté le Code
si une personne veux bien le faire fonctionner complétement,a l'avance Merci
sinon,c'est pas grave
Merci a tous et longue vie a Ce Site
Christian

 

[BOISGONTIER]

Bonjour,

For i = LBound(TabBD) To UBound(TabBD): TabBD(i, 6) = Format(TabBD(i, 6), "#,##0.00 €"): Next i ' spécial


En PJ, pgm générique s'adaptant à la BD.

jb

 

[MuscatMimi]

Bonsoir a tous
Grand merci a toi J Boisgontier,super travail,avoir pris de ton temps a réaliser cela,c'est super gentil
Depuis plus de 8 ans j'ai laissé Excel de côté,me suis formé avec l'un des deux ingénieur informatique de ma boite sur Windev
La Provence est belle, si vous passé dans ma région faite moi signe,ça me fera grand plaisir de vous rencontrer
Christian