Discussion :

[totoche]

Comment peut-on arrondir a 2decimales un reel double dans un mshFlexGrid
Alors que dans ma table access la valeur est : -318,43 l'affichage dans le mshflex devient -318.43000000000001

[sovo]

et si tu fesais une conversion de la colone ?? pour l'arrondi tu as une belle fonction de alaintech qui je crois devrais te donne un sacre coup de main (Arrondi Univesel)

[totoche]

Je pense qu'un Round(expression [,numdecimalplaces]), doit me suffir mais je n'arrive pas a l'associer a ma colonne

[Mehdi_ab]

salluutt

essaie cette fonction

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
'Arondir nombre FlexGrid
Public Sub ArondirNombreGrid(ByRef grid As MSHFlexGrid, IndexChampArondi As Integer)
On Error Resume Next
For i = 1 To grid.Rows - 1
grid.TextMatrix(i, IndexChampArondi) = Format(Round(Replace(grid.TextMatrix(i, IndexChampArondi), ".", ","), 2), "0.00")
Next i
End Sub

[totoche]

Merci Mehdi_ab, ça fonctionne très bien pour les valeurs qui sont contenues dans la bande 0 de mon MSH, mais je n'arrive pas a le faire fonctionner pour les valeurs de la bande1

[sovo]

mais je n'arrive pas a le faire fonctionner pour les valeurs de la bande1

qu'entends tu par bande1 ?? si tu veux faire allusion a la premiere ligne (celle en gris) alors remplace

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

For i = 1 To grid.Rows - 1

par

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

For i = 0 To grid.Rows - 1

[totoche]

Avec une image en pj

[sovo]

d'apres ton image je vois tu as bien fait tes convertion. Bon comme tu n'est pas satisfait alors quelle sont les colones (ou cellules) que tu veux arrondir ?? essai d'apter le code ce Medhi_ab je crois que c'est une bonne base pour la suite.

[totoche]

Bonjour SOVO & merci de ton aide
il s'agit des colonnes Prix et Total (bande déployé avec le +), issues du Recordset enfant, que je n'arrive pas a arrondir

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
sql = "SHAPE {SELECT IdVerifMSA, NumSageUtili, Total, EncaissementMSA  , (Total-EncaissementMSA) as Diff FROM VerifMSA2} Append" & _
    "({SELECT IdFacture, NumSageUtili, MotifLigne,PrixLigne, QttLigne,TotalLigne,NumFacture FROM Factures } AS TableD " & _
     "RELATE NumSageUtili TO NumSageUtili)"

Pour arrondir les valeurs du RS parent (Total, Encaissement) la fonction de Mehdi_ab tourne bien.

[totoche]

pour la seconde bande on repart a 1