Format chiffre décimal (2 chiffres après virgule)dans listbox

[davidp]

Bonjour le forum,

je me permets de vous écrire pour résoudre un problème afin de finaliser un petit programme.

Le soucis est le suivant:

Dans le code ci dessous , la colonne D (soit la 4eme colonne) contient des chiffres (ex: 10,56),mais lorsque j'affiche la listbox , les chiffres sont du genre (10,566666666666).

- Avez vous une solution?



Private Sub UserForm_Initialize()

ListBox2.ColumnCount = 4
ListBox2.List = Sheets("CA").Range("A2:d100").Value
End Sub


Merci d'avance à celui qui trouvera la solution

DAVIDP

 

[myDearFriend!]

Re : Format chiffre décimal (2 chiffres après virgule)dans listbox

Bonjour davidp, le Forum,

Teste voir avec :

ListBox2.List = Sheets("CA").Range("A2:d100").[B]Text[/B]

Cordialement,

 

[davidp]

Re : Format chiffre décimal (2 chiffres après virgule)dans listbox

Bonjour Mydearfriend,

tout d'abord MERCI pour ton aide,

j'ai testé et j'ai le message d'erreur suivant:

erreur d'exécution'381'
impossible de définir la propriété list.index de table de propriétés non valides.

A tout à l'heure

DAVIDP

 

[myDearFriend!]

Re : Format chiffre décimal (2 chiffres après virgule)dans listbox

Re,

Arf, tu as tout à fait raison, ça m'apprendra à faire le malin... 🙄

Bon, alors on n'échappera pas à la boucle cette fois... Teste comme ça :

[COLOR=GRAY][B][I]DANS LE MODULE DE CODE DU USERFORM[/I][/B][/COLOR]

[COLOR=NAVY]Private Sub[/COLOR] UserForm_Initialize()
[COLOR=NAVY]Dim[/COLOR] L [COLOR=NAVY]As Byte[/COLOR], C [COLOR=NAVY]As Byte[/COLOR]
    ListBox2.ColumnCount = 4
    [COLOR=NAVY]With[/COLOR] Sheets("CA")
        [COLOR=NAVY]For[/COLOR] L = 2 [COLOR=NAVY]To[/COLOR] 100
            ListBox2.AddItem .Cells(L, 1).Text
            [COLOR=NAVY]For[/COLOR] C = 2 [COLOR=NAVY]To[/COLOR] 4
                ListBox2.List(L - 2, C - 1) = .Cells(L, C).Text
            [COLOR=NAVY]Next[/COLOR] C
        [COLOR=NAVY]Next[/COLOR] L
    [COLOR=NAVY]End With
End Sub[/COLOR]

Cordialement,

 

[davidp]

Re : Format chiffre décimal (2 chiffres après virgule)dans listbox

ReBonjour Mydearfriend,

Un grand merci cela fonctionne. je me demande toujours comment vous faites pour réaliser des trucs pareils.

Bravo ET MERCI

bonne journée et à bientôt

DAVIDP