Discussion :

[Potzo]

Bonjour a tous,

Mon probleme est relativement simple. J'ai une macros au sein de laquelle j'additionne ou multiplie des nombres decimaux. Seulement mon resultat est systematiquement entier. Peu importe le format de ma cellule (que je le change avant ou apres)

J'imagine que je dois pouvoir le faire dans la macro, mais l'aide pour la fonction Format ne donne des exemples que pour les dates et l'heure malheureusement...

Merci d'avance !

[zyhack]

Bonjour

à tu essayé

Code :

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

1
2
3
4
5
6
7
8
9
 
'avec deux décimales
    Range("B1").NumberFormat = "0.00"
 
'format réel
    Range("B1").NumberFormat = "General"
 
'sans décimales
    Range("B1").NumberFormat = "0.00"

[Potzo]

Je viens d'essayer, mais malheureusement mon souci persiste.

L'affichage des differents nombres se fait bien avec 2 decimales, mais lorsque je fais la somme sur une colonne de par exemple : 2,50 ; 10,00 ; 3,00
Le resultat est 15,00

[Invité]

Bonjour

Ce serait bien que tu montres la macro que tu utilises, cela vient peut-être d'elle et non du format des cellules.

Philippe

[Potzo]

La macro que j'ai est plutot longue ( 80 lignes environs). Voici donc l'un des fragments de code ou je fais le calcul et pour lerquel le resultat me pose probleme.

cmpt et scmpt sont des Long.

Le code ci dessous fait la somme des valeurs dans deux colonnes differentes et ecrit le resultat sur la ligne ou il y a ecrit bnis

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
For Each D In STD.Range("D4:D500")
  If Right(D.Value, 4) = "bnis" Then
    D.Offset(0, 11) = cmpt
    D.Offset(0, 5) = scmpt
    D.Offset(0, 11).Font.Bold = True
     D.Offset(0, 5).Font.Bold = True
    cmpt = 0
    scmpt = 0
  Else
    cmpt = cmpt + D.Offset(0, 11).Value
    scmpt = scmpt + D.Offset(0, 5).Value
  End If
Next

[zyhack]

Bonjour

est-ce que tes variables cmpt et scmpt sont déclarés en Single ou double ?

[Potzo]

euh... j'en sais rien.

J'ai juste ecrit :

Code :

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

 dim cmpt as long, scmpt as long

[zyhack]

re,

le type Long est un entier
extrait de la doc

Les variables de type Long (entier long) sont stockées sous la forme de nombres signés de 32 bits (4 octets) dont la valeur est comprise entre -2 147 483 648 et 2 147 483 647.

change les en types Doubles (F1 sur le type pour en connaître les valeurs)
et tu auras des totaux avec décimales

bon courage