Discussion :

[kolann]

Bonjour,
je fais de petits programmes pour mon entreprise à l'aide d'excel-vba. Je n'ai encore jamais eu besoin de poster pour résoudre un problème, la consultation du forum me suffisait.


donc l'idée est de faire une fonction utilisable depuis une feuille de calcul excel (c'est la le problème). Je veux faire la somme des cellules jaunes uniquement.

la fonction est correcte mais ne donne pas de résultat dans la feuille de calcul

voici mon code :

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
Public Const debuger  As Boolean = True 'debug mode
Public Const couleur  As Double = 6 'couleur de planification
 
--------------------------------------
Public Function somme_sicouleur(plage)
Dim cell As Range
Dim add As Integer
add = 0
 
For Each cell In plage
 
    If cell.Interior.ColorIndex = couleur Then
    add = add + cell.Value
    End If
Next
 
If debuger = True Then MsgBox add
 
somme_sicouleur = add
 
End Function

et donc dans ma cellule, je met

=somme_sicouleur(E8:E127)

et j'ai #VALEUR!

help!

[mercatog]

Code :

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

1
2
3
4
5
6
7
8
9
Public Function somme_sicouleur(plage As Range) As Double
Dim cell As Range
Dim add As Double
 
For Each cell In plage
 If cell.Interior.ColorIndex = couleur And IsNumeric(cell.Value) Then add = add + cell.Value
Next cell
somme_sicouleur = add
End Function

[kolann]

Rho...
La honte, comment j'ai loupé ça...


Grand merci en tout cas mercatog