Decimale dans listView

[WDAndCo]

bonjour le Forum

Comment forcer l'affichage dans un ListView de chiffre avec 2 dicimales. Dans la base mes Nb d'heures sont du genre 8,75 ou 8,00 dans le deuxieme cas cela apparait sont la forme 8 et non 8,00.

Comment faire ?

D'avance Merci

WD

 

[wilfried_42]

Re : Decimale dans listView

Bonjour wdandco

tu as essayé avec Format(valeur, "#####0.00") ?

joyeuses pâques

 

[WDAndCo]

Re : Decimale dans listView

Bonjour wilfried_42
Ci-dessous le Remplissage des colonnes mes donnéees sont dans la base en colonne "E" donc surement en 5 (je ne suis pas l'auteur)

'Remplissage des colonnes
For i = debligne To Sheets(nomf1).Range("A65536").End(xlUp).Row
j = 1 ' colonne
data1 = Sheets(nomf1).Cells(i, colt1) 'valeur pour sélection
data2 = Sheets(nomf1).Cells(i, colt2)

If val1 = "" Then
.ListItems.Add , "l" & i, Sheets(nomf1).Cells(i, j)
For j = 2 To nbcolonne
.ListItems(.ListItems.Count).ListSubItems.Add , , Sheets(nomf1).Cells(i, j)

Next j
Else

If val1 = data1 Or val1 = data2 Then

.ListItems.Add , "l" & i, Sheets(nomf1).Cells(i, j)
For j = 2 To nbcolonne
.ListItems(.ListItems.Count).ListSubItems.Add , , Sheets(nomf1).Cells(i, j)
Next j

End If

End If


Next i

End With

Si tu peut y jeter un coup oeil et me dire ou faire les modifs.

Bonnes Paques (Et ATTENTION au chocolat)

WD

 

[wilfried_42]

Re : Decimale dans listView

re:

cela doit se trouver ici

If val1 = "" Then
.ListItems.Add , "l" & i, Sheets(nomf1).Cells(i, j)

For j = 2 To nbcolonne
.ListItems(.ListItems.Count).ListSubItems.Add , , Sheets(nomf1).Cells(i, j)
Next j

Else

If val1 = data1 Or val1 = data2 Then

.ListItems.Add , "l" & i, Sheets(nomf1).Cells(i, j)
For j = 2 To nbcolonne
.ListItems(.ListItems.Count).ListSubItems.Add , , Sheets(nomf1).Cells(i, j)
Next j


End If

End If

c'est soit le rouge, soit le bleu ou les deux

tu as dit colonne E

if j = 5 then
.lisitems(.listitems.count).listsuitems.add ,, format(sheets(nomf1).cells(i,j),"####0.00")
else
.ListItems(.ListItems.Count).ListSubItems.Add , , Sheets(nomf1).Cells(i, j)
end if

 

[WDAndCo]

Re : Decimale dans listView

Bonjour le Forum

En faisant cette modif sur l'une ou l'autre ou les deux j'ai une erreur pourtant dans la base je suis bien au format nombre !

WD

 

[wilfried_42]

Re : Decimale dans listView

re:

c'est une erreur 13 ? ou autre

 

[WDAndCo]

Re : Decimale dans listView

RE

Non :
Erreur de compilation:
Membre de méthode ou de données introuvable

Il est bien evident que quand je remets les lignes de code comme a début tout marche donc les donnees sont en placent.

WD

 

[wilfried_42]

Re : Decimale dans listView

re:

erreur de compile : il veut dire qu'il ne veut pas du format ce qui est bizarre

tu aurais un bout de ton fichier, ce serait plus simple

 

[jp14]

Re : Decimale dans listView

Bonjour

Les données sont souvent sous la forme "string" ( à vérifier en utilisant un point d'arrêt), il faut pour les formater indiquer que la valeur est un nombre : fonction val

JP