excel vba comment 2 chiffres après la virgule

Version imprimable

bonjour,
je voudrai faire afficher les 2 chiffres a près la virgule. comment faire.

exemple: dans tableau1 la somme xxx,70 alors que le résultat avec

Code:

Somme1 = Application.WorksheetFunction.Sum(Tableau1)

me donne xxx,00 j'ai essayé

Code:

Somme1 = Application.WorksheetFunction.Sum(Tableau1).numberformat = "0.00"

merci.

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
56
57
58
59
60
61
Dim Tableau1, tableau2, tableau3bis, tableau4 As Range 'Variable
Dim Somme1 As Single
Dim Somme2 As Single
Dim Somme3 As Single
Dim Somme4 As Single
Dim TotSol As Single
Dim sold1 As Single
Dim sold2 As Single
 
 
derniereLigne = Range("B" & Rows.Count).End(xlUp).Row + 1
derniereLigne = Range("C" & Rows.Count).End(xlUp).Row + 1
derniereLigne = Range("D" & Rows.Count).End(xlUp).Row + 1
derniereLigne = Range("E" & Rows.Count).End(xlUp).Row + 1
 
Set Tableau1 = Range("B:B")
Set tableau2 = Range("C:C")
Set tableau3bis = Range("D:D")
Set tableau4 = Range("E:E")
 
Set tableaux1 = Range("f:f")
Set tableaux2 = Range("g:g")
 
 
Somme1 = Application.WorksheetFunction.Sum(Tableau1)
 
Somme2 = Application.WorksheetFunction.Sum(tableau2)
Somme3 = Application.WorksheetFunction.Sum(tableau3bis)
Somme4 = Application.WorksheetFunction.Sum(tableau4)
sold1 = Application.WorksheetFunction.Sum(tableaux1)
sold2 = Application.WorksheetFunction.Sum(tableaux2)
 
 
 ActiveCell.Offset(0, 0).FormulaR1C1 = _
 Somme1
 ActiveCell.Offset(0, 1).FormulaR1C1 = _
 Somme2
 ActiveCell.Offset(0, 2).FormulaR1C1 = _
 Somme3
 ActiveCell.Offset(0, 3).FormulaR1C1 = _
 Somme4
 
 ActiveCell.Offset(0, 4).FormulaR1C1 = _
 sold1
 
 ActiveCell.Offset(0, 5).FormulaR1C1 = _
 sold2
 '----------------------------
 ActiveCell.Offset(1, 1).FormulaR1C1 = _
 Somme1 - Somme2
 ActiveCell.Offset(1, 0).Select
 
 ActiveCell.Offset(0, 3).FormulaR1C1 = _
 Somme4 - Somme3
 ActiveCell.Offset(1, 1).Select
 
'------------------------------------
 
ActiveCell.Offset(0, 4).FormulaR1C1 = _
sold2 - sold1
ActiveCell.Offset(1, 2).Select

21/03/2024, 15h46
curt

Bonjour Nouveau17,

essai avec

Code:

.NumberFormat = "#,##0.00"

qui devrait fonctionner
21/03/2024, 19h28
Valtrase

Bonjour,
Moi je me pose la question, pourquoi utiliser la propriété FormulaR1C1, et pas tous simplement .Value.
Tu ne renseignes pas une formule, mais bien une valeur dans les cellules non ?

Salut,

Ce sont les cellules qu'il faut formater, pas les valeurs, sauf si tu aimes les sales surprises.

De plus:
ActiveCell.Offset(0, 0).FormulaR1C1 = Somme1
De quelle cellule on parles ici ? (Celui qui répond A1 mange ses chaussures en dessert).
Prend l'habitude de référencer explicitement les objets que tu manipules.
Code:

1 2 3 4 5 6 7 8 Dim Rng As Range Set Rng = Range("C4") '// Ko, Implicitement ActiveWorkbook.ActiveSheet.range("C4") Dim Ws As Excel.Worksheet Set Ws = ThisWorkbook.Worksheets(1) '// Ok, Explicite Dim Rng As Excel.Range Set Rng = Ws.Range("B10") '// Ok, Explicite

Citation:
Envoyé par deedolith
Salut,

Ce sont les cellules qu'il faut formater, pas les valeurs, sauf si tu aimes les sales surprises.

De plus:
ActiveCell.Offset(0, 0).FormulaR1C1 = Somme1
De quelle cellule on parles ici ? (Celui qui répond A1 mange ses chaussures en dessert).
Prend l'habitude de référencer explicitement les objets que tu manipules.
Code:

1 2 3 4 5 6 7 8 Dim Rng As Range Set Rng = Range("C4") '// Ko, Implicitement ActiveWorkbook.ActiveSheet.range("C4") Dim Ws As Excel.Worksheet Set Ws = ThisWorkbook.Worksheets(1) '// Ok, Explicite Dim Rng As Excel.Range Set Rng = Ws.Range("B10") '// Ok, Explicite
Somme1 c'est la colonne b:b nommé tableau1.
Je pense avoir résolu le problème j'ai remplacé as single par as variant et sa fonctionne.
Par contre j'aurais besoins de mettre en couleur toutes les sommes 1,2,3,4,5,6 en rouge avec la police jaune en gras.
Merci à tous.

22/03/2024, 09h26
Tête de chat

Bonjour,

Code:

j'ai remplacé as single par as variant

single = "simple précision" soit un réel stocké sur 4 octet sLe stockage est "flottant" c'est à dire qu'il va privilégier l'ordre de grandeur sur les décimales : si ton nombre est un peu grand, tu va perdre les deniers chiffres.
Pour avoir plus de précision, il faut passer en double, qui va utiliser 8 octets et garde r18 chiffres significatifs (ou environ, à vérifier)

Il y a le même piège sur les entiers avec integer et long. Comme on n'est plus à faire la chasse à l'octet, autant utiliser systématiquement double et long.

L'utilisation du type variant n'est pas à conseiller pour des variables "normales" : ça revient à laisser à VBA la responsabilité de choisir à la volée le type de la variable, ça peut réserver des surprises.
22/03/2024, 11h03
nouveau17

Citation:

Envoyé par Tête de chat

Bonjour,

Code:

j'ai remplacé as single par as variant

single = "simple précision" soit un réel stocké sur 4 octet sLe stockage est "flottant" c'est à dire qu'il va privilégier l'ordre de grandeur sur les décimales : si ton nombre est un peu grand, tu va perdre les deniers chiffres.
Pour avoir plus de précision, il faut passer en double, qui va utiliser 8 octets et garde r18 chiffres significatifs (ou environ, à vérifier)

Il y a le même piège sur les entiers avec integer et long. Comme on n'est plus à faire la chasse à l'octet, autant utiliser systématiquement double et long.

L'utilisation du type variant n'est pas à conseiller pour des variables "normales" : ça revient à laisser à VBA la responsabilité de choisir à la volée le type de la variable, ça peut réserver des surprises.

Les chiffres sont un peu grand ils sont saisies avec deux chiffres après la virgules pas plus. je vais essayé avec double et en verra.
Question: la somme manuelle à d faut c'est double ou bien autres.!??? Merci
22/03/2024, 11h28
nouveau17

Citation:

Envoyé par Tête de chat

Bonjour,

Code:

j'ai remplacé as single par as variant

single = "simple précision" soit un réel stocké sur 4 octet sLe stockage est "flottant" c'est à dire qu'il va privilégier l'ordre de grandeur sur les décimales : si ton nombre est un peu grand, tu va perdre les deniers chiffres.
Pour avoir plus de précision, il faut passer en double, qui va utiliser 8 octets et garde r18 chiffres significatifs (ou environ, à vérifier)

Il y a le même piège sur les entiers avec integer et long. Comme on n'est plus à faire la chasse à l'octet, autant utiliser systématiquement double et long.

L'utilisation du type variant n'est pas à conseiller pour des variables "normales" : ça revient à laisser à VBA la responsabilité de choisir à la volée le type de la variable, ça peut réserver des surprises.

rebonjour,

effectivement avec as double ca fonctionne parfaitement encore merci.

cordialement.