Aligner et affecter un format decimala listbox

[BERRACHED said]

Salut les amis le revoila !
je voudrais aligner bien les chiffres dans la 4 eme Colonne d'un Listbox et lui affecter évidamment un Format décimale j'ai met ceci mais ca n'a rien donner

- ListBox1.Column(0, 4) = CDbl("#,##0.00")
- ListBox1.Column(0, 4) = Format(ListBox1, "#,##0.00")

MERCI d'avance

 

[Spitnolan08]

Re : Aligner et affecter un format decimala listbox

Bonsoir,

Un exemple en pièce jointe.

Cordialement

 

[BERRACHED said]

Re : Aligner et affecter un format decimala listbox

Salut ! Spitnolan08

Merci pour la réponse et pour l'exemple visiblement dans ton classeur ça marche bien j'ai voulue l'adapter chez moi ca n'a rien donner malgré que j'ai déclarer( der-i-j) en Integer puisque je travaille sous l'option éxplicite dans mon classeur il y a que la colonne N°4 qui renferme les chiffres et qui est en relation la colonne "d" de la feuille "Liste" juste pour plus de précision
Merci !

 

[Spitnolan08]

Re : Aligner et affecter un format decimala listbox

Re,

Désolé mais je ne comprends pas ton explication : Un fichier exemple serait plus parlant...

Cordialement

 

[BERRACHED said]

Re : Aligner et affecter un format decimala listbox

salut spitnola08

voila mon fichier ci-joint et merci encore

Confirmation de création

 

[Spitnolan08]

Re : Aligner et affecter un format decimala listbox

Re,

Euh oui c'est bien.. Enfin presque car il est préférable de joindre un fichier allégé sans données confidentielles et de le mettre sur ce forum. Mais surtout : Il faut indiquer où est le problème!
Soit tu isoles le problème en ne conservant que la partie de code concernée, soit tu précises exactement où il faut regarder et quoi.

Dans l'attente de tes précisions
Cordialement

 

[BERRACHED said]

Re : Aligner et affecter un format decimala listbox

Salut Spitnolan08

en faite tu n'a pas compris ce que je voulais dire bon recapitulons

l'affichage des montants dans ma listbox1 sont eparpille de cette maniere :
Ex: 289,26
17,5
360,2
Je voudrais qu'ils soit bien alligner a l'affichage dans listbox1 bien ordonnés de la maniere suivante:
Ex: 289,26
17,50
360,20
j'éspere que j'étais assez claire et merci de la collaboration elle m'es si précieuse encore une fois merci

 

[Spitnolan08]

Re : Aligner et affecter un format decimala listbox

Re,

en faite tu n'a pas compris ce que je voulais dire bon recapitulons

Et bien si, j'ai bien compris ça puisque c'est ce que fait le fichier que je t'ai joints dans mon 1er post.
Mais visiblement tu n'as pas réussi à l'adapter à ton fichier : c'est ça pour moi le problème actuel...
Seulement, je voudrais éviter de passer 2 heures à chercher où tu en as besoin dans ton fichier.
Si tu me dis où ça se trouve, on gagnera tous les deux du temps.

Cordialement

 

[BERRACHED said]

Re : Aligner et affecter un format decimala listbox

Salut spit !

je ne sais pas si vous avez recu le fichier que j'ai joint si oui il faut voir le listbox a l'affichage vous pouvez remarqué visiblement que la dernierre colonne qui comporte les chiffres est mal allignée les décimales ne sont pas respecter les zeros aprés la virgule ne sont pas visible je voudrais simplement régler ca pour un bonne affichage

je m'éxcuse de vous avoir importune et je vous remercie d'avoir été si patient avec moi

MERCI ! Spit

 

[Spitnolan08]

Re : Aligner et affecter un format decimala listbox

Re,

je m'éxcuse de vous avoir importune et je vous remercie d'avoir été si patient avec moi

Ce n'est pas le problème, sinon je ne serais plus là...
Bon j'ai fait l'effort de parcourir l'ensemble de ton code pour voir s'il était "sain" et pour savoir où se trouvait cette ListBox. Mais rien n'est fait concernant son chargement... Comment puis je savoir d'où viennent tes données Quelles sont elles

Encore une fois ça manque de précision!
Indique nous où on doit prendre les données (Feuille, plage,...) ?
En clair : Aide nous à t'aider...

Dans l'attente,
Cordialement

Edit : Je viens de m'apercevoir que les informations que je te demande figurent dans un de tes posts précédent : Excuse moi..

 

[Spitnolan08]

Re : Aligner et affecter un format decimala listbox

Re,

Je te propose :

Private Sub UserForm_Initialize()
Dim der As Integer, i As Integer, j As Integer
Dim hwnd As Long, exLong As Long, zFactor As Integer, Style As Long
[COLOR=Blue]' ton code....[/COLOR]
[COLOR=Green]'définit le nombre de colonnes dans la ListBox[/COLOR]
ListBox1.ColumnCount = 5
[COLOR=Green] 'Définit la largeur des 5 colonnes[/COLOR]
ListBox1.ColumnWidths = "47;150;160;60;1"
ListBox1.TextAlign = fmTextAlignRight

der = Sheets("Liste").Range("A65536").End(xlUp).Row
For i = 0 To der - 2
    With ListBox1
        .AddItem Sheets("Liste").Cells(i + 2, 1)
    End With
    For j = 1 To 3
        ListBox1.List(i, j) = IIf(j = 3, Format(Cells(i + 1, j + 1), "# ###.00"), Cells(i + 1, j + 1))
    Next
Next

 With Sheets("Quittance")
[COLOR=Blue]' ton code....[/COLOR]

Cordialement

 

[BERRACHED said]

Re : Aligner et affecter un format decimala listbox

salu Spit !

vous voulez savoir d'ou proviennes les données
la Feuille nommée Sheets "Liste"
La colonne = Range "D" celle qui comporte les Montants

j'éspere que c'est ca

 

[Spitnolan08]

Re : Aligner et affecter un format decimala listbox

Re,

Visiblement, nous nous sommes croisés : voir 2 post précédents

Cordialement

 

[BERRACHED said]

Re : Aligner et affecter un format decimala listbox

Salut spit !

maintenant ca marche tres tres bien ce que je voulue seulement un pt'ie prob
mais ce n'est pas grave je peut m'en passer il n'arrive pas a afficher les zero aprés la virgule.

au faite j'ai vue le lien que tu mit dans tes reponse "Question les plus Fréquent" j'étais ravi de vous voir et Thierry comme les principaux de ce theme donc j'ai eu un grand honneur de m'avoir repondue

Merci Spit Merci Beaucoup

 

[Spitnolan08]

Re : Aligner et affecter un format decimala listbox

Re,

En fait, ça ne devrait pas fonctionner car il manque un petit quelque chose...
En effet j'avais fait mes tests à partir de la feuille Liste.
Donc remplace le code précédent par

[COLOR=Green]'définit le nombre de colonnes dans la ListBox[/COLOR]
ListBox1.ColumnCount = 5
[COLOR=Green]'Définit la largeur des 5 colonnes[/COLOR]
ListBox1.ColumnWidths = "47;150;160;60;1"
ListBox1.TextAlign = fmTextAlignRight

der = Sheets("Liste").Range("A65536").End(xlUp).Row
For i = 0 To der - 2
    With ListBox1
        .AddItem Sheets("Liste").Cells(i + 2, 1)
    End With
    With Sheets("Liste")
        For j = 1 To 3
            ListBox1.List(i, j) = IIf(j = 3, Format(.Cells(i + 1, j + 1), "# ###.00"), .Cells(i + 1, j + 1))
        Next
    End With
Next

Sinon pour ce qui est de l'affichage des zéros après la virgule de la colonne 4 : si le nombre est un entier il affichera xx.00 Si tu veux afficher xx,00 il faut changer le format spécifié ci dessus par "# ###,00"

Si pas ça, précise ta question.

Cordialement