Problème d'arrondi d'un ComboBox.

Version imprimable

02/05/2020, 21h25
Lighteux26

Problème d'arrondi d'un ComboBox.
Bonjour a toutes et tous.

J'utilise ce code, pour récupérer une valeur (TVA) a partir du Listview en passant par un tableau vers un ComboBox (Le code en vient pas de moi).
Code:

1 2 3 4 5 With .Controls(Tab_Nouveau_Mouvement(16, 1)) .Value = Tab_Nouveau_Mouvement(16, 4) End With
Cette valeur peut être 0; 5,5; 10; 20

Le soucis que je rencontre, est que pour la valeur 5,5, celle-ci est systématiquement arrondie a 6.

Le format de départ dans la cellule est : #0,00 (Avant d'alimenter la listview)

Ensuite si je regarde le contenu de "Tab_Nouveau_Mouvement(16, 4)", il est a 6, donc a un moment il doit se passer une convertion ou un arrondi.

C'est un peu léger peut être comme infos, s'il en faut plus dites le moi.

J'essaye de remonter un peu le code, mais pas évident car je ne maitrise pas du tout, je galère a chaque fois que je veux le modifier car le niveau est trés haut pour moi.

Merci d'avance.

le lighteux.

Re

Je viens de voir que dés le départ, a l'affichage dans la listview il y a bien 6 décrit, alors que dans la céllule c'est 5,5.

Lors de l'envoie de la donnée au départ.

Voici le code :

Code:

1
2
3
4
 
                   Case 10, 16, 22 'Taux de TVA
                   .NumberFormat = "#0.00"
                   .Value = Trim(Tab_Nouveau_Mouvement(L, 2)) * 1

La, la valeur est a toujours a 5,5

Pour moi c'est a l'alimentation de la listview.

Voici le code.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
 
    With .LstV_BD 'avec la ListView
      With .ColumnHeaders 'avec la collection des Colonnes de la ListView
           .Clear                     'On efface les entetes des Colonnes de la ListView
                .Add , , "Date", 50, 0               ' 0 On définit la premiere colonne 1° Date
                .Add , , "Client", 160, 1            ' 1 Idem pour la  2°  Client
                .Add , , "N° Facture", 50, 1         ' 2 Idem pour la  3°  Facture
                .Add , , "Prestation", 250, 1        ' 3 Idem pour la  4°  Prestation
                .Add , , "Facture HT", 60, 1         ' 4 Idem pour la  5°
                .Add , , "Facture TTC", 60, 1        ' 4 Idem pour la  6°
'**********************
                .Add , , "Vente", 60, 1              ' 5 Idem pour la  7°
                .Add , , "Cotisations 1", 0, 1       ' 6 Idem pour la  8°
                .Add , , "Impots 1", 0, 1            ' 7 Idem pour la  9°
                .Add , , "Taux TVA 1", 30, 1          ' 8 Idem pour la  10°
                .Add , , "TVA Vente", 0, 1           ' 9 Idem pour la 11°
                .Add , , "TTC Vente", 60, 1          ' 10 Idem pour la 12°
'**********************
                .Add , , "Service", 60, 1            '11 Idem pour la 13°
                .Add , , "Cotisations 2", 0, 1       '12 Idem pour la 14°
                .Add , , "Impots 2", 0, 1            '13 Idem pour la 15°
                .Add , , "Taux TVA 2", 40, 1          '14 Idem pour la 16°
                .Add , , "TVA Services", 0, 1        '15 Idem pour la 17°
                .Add , , "TTC Services", 60, 1       '16 Idem pour la 18°
 
'**********************
                .Add , , "Autres", 60, 1             '17 Idem pour la 19°
                .Add , , "Cotisations 3", 0, 1       '18 Idem pour la 20°
                .Add , , "Impots 3", 0, 1            '19 Idem pour la 21°
                .Add , , "Taux TVA 3", 30, 1          '20 Idem pour la 22°
                .Add , , "TVA Autres", 0, 1          '21 Idem pour la 23°
                .Add , , "TTC Autres", 60, 1         '22 Idem pour la 24°
 
'**********************
                .Add , , "MS CFP Commerciales", 0, 1 '23 Idem pour la 24°
'**********************
                .Add , , "Taxes CCI Ventes", 0, 1    '24 Idem pour la 25°
                .Add , , "Taxes CCI  Services", 0, 1 '25 Idem pour la 26°
'**********************
                .Add , , "à Payer", 60, 1            '26 Idem pour la 27°
                .Add , , "Total TVA", 60, 1          '27 Idem pour la 28°
                .Add , , "Bénéfice", 60, 1           '28 Idem pour la 29°
                .Add , , "Ligne Source", 1           '29 Idem pour la 30°
        End With
 
        'On formate la ListView
            .Width = 1300
            .FlatScrollBar = False
            .Gridlines = True
            .FullRowSelect = True
            .MultiSelect = False
            .LabelEdit = 1
            .Sorted = False
            .View = lvwReport
     End With

Merci.

Le lighteux

02/05/2020, 22h31
anasecu

Bonjour

Citation:

Envoyé par Lighteux26

donc a un moment il doit se passer une convertion ou un arrondi.

Ce que tu n'as pas donné comme information, c'est le type des variables utilisées.
Pour avoir les décimales il faut être en 'double' ou 'Decimal' pas en 'long' ou 'integer'.

Hello.

A force de chercher dans le 15 modules, j'ai trouvé.

C'était a cause de cela :
Code:

1 2 .ListSubItems.Add , , Format(Tab_Annee_Devis(L, 16), "0") ' 15 Taux TVA "Prestation de service Commercial"
J'ai changé avec cela et ca roule;
Code:

1 2 .ListSubItems.Add , , Format(Tab_Annee_Devis(L, 16), "0.00") ' 15 Taux TVA "Prestation de service Commercial"
Y'a vraiment des trucs que je ne comprend pas dans tout cela.

Bref ca fonctionne.

Bonne soirée.

Le Lighteux.

02/05/2020, 22h34
Lighteux26

Hello

Citation:

Envoyé par anasecu

Bonjour

Ce que tu n'as pas donné comme information, c'est le type des variables utilisées.
Pour avoir les décimales il faut être en 'double' ou 'Decimal' pas en 'long' ou 'integer'.

Merci pour ta réponse.

Elles sont en Double.

Merci.

Le Lighteux
02/05/2020, 22h39
anasecu

Bonsoir,

Citation:

Envoyé par Lighteux26

Y'a vraiment des trucs que je ne comprend pas dans tout cela.

Lorsque tu mets un format à "0" au lieu de "0,00" cela supprime les décimales et l'arrondi se fait tout simplement.
03/05/2020, 17h20
Lighteux26

Hello.

Merci pour la réponse.

Non ça j'ai compris, mais dans tout le code que j'ai et cela ne me permet pas d'adapter comme je le veux et même en voulant user de subterfuge et bien c'est mort.

Merci, bon fin de dimanche.

Le Lighteux