Discussion :

[nouveau17]

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 :

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

Somme1 = Application.WorksheetFunction.Sum(Tableau1)

me donne xxx,00 j'ai essayé

Code :

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

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

merci.

Code :

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

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

[curt]

Bonjour Nouveau17,

essai avec

Code :

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

.NumberFormat = "#,##0.00"

qui devrait fonctionner

[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 ?

[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 :

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

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

[nouveau17]

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 :

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

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.

[Tête de chat]

Bonjour,

Code :

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

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.