Discussion :

[chouki60]

Bonjour,

Je suis nouvelle sur Visual basic et j'ai un petit probleme:

J'ai fait un programme qui doit faire la somme des nombres dans un tableau excel. Ca marche sauf que c'est des nombres décimaux et ca me fais des nombres entiers.

Ex: Au lieu de m'afficher 485,96 ca m'affiche 486

Voici mon programme:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
For i = 2 To 10000
 
 
        cellule$ = "L" & Format(i)
        Contenu$ = ActiveSheet.Range(cellule$).Value
 
          If Contenu$ = client$ Then
              cellule = "I" & Format(i)
              somme = CDec(somme) + CDec(ActiveSheet.Range(cellule$).Value)
          End If
 
     Next i

Quelqu'un peut m'aider?
Merci beaucoup

[ucfoutu]

Bonjour,

Quel est le format de tes cellules dont la valeur est utilisée dans tes calculs ?

[chouki60]

Bonjour,

Quel est le format de tes cellules dont la valeur est utilisée dans tes calculs ?

Le format des cellules c'est à dire?

Je prends l'information dans la colonne I donc c'est I2, I15 ..
sinon les données sont 469; 388,96...

Je suis désolée je ne comprends pas trop la question

[ucfoutu]

Le format des cellules c'est à dire?

Je suis désolée je ne comprends pas trop la question

Re,...
désolé moi également, alors ...
Les bases restent les bases et elles sont indispensables !!!
place-toi dans une cellule et regarde sur tes barres : il y a peut-être un onglet disant "Format" et, lorsque l'on clique dessus, il s'affiche un menu déroulant (cellule y figuire peut-être...) ... et ainsi de suite !
C'est là l'une des bases d'Excel, avant même de parler de VBA ...

[chouki60]

Le format de mes cellules est "nombre" avec deux décimales

[LeForestier]

Bonjour,
Test..

Code :

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

1
2
3
4
5
6
Dim Somme As Double
    For i = 2 To 10000
        If Cells(i, 12) = client$ Then
            Somme = Somme + Cells(i, 9)
        End If
    Next i

A+