[XL-2007] FOR EACH VBA

[JENNYVL]

Bonjour à tous,
Nvelle sur le forum et sur VBA. Je cherche à faire une fonction avec 2 plages discontinues et avec FOR EACH et je veux avoir le résultat des 2 plages dans une cellule. Pouvez vous m'aider ? ci joint mon programme. Merci

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Function Additionnejaune(plage As Range, plage1 As Range) As Single
 
    Dim cellule1 As Range
    Dim cellule2 As Range
    Dim total2 As Single
    Dim total3 As Single
 
    For Each cellule1 In plage
 
         If cellule1.Interior.ColorIndex = 6 = True Then
            total2 = 0        
         Else
            total3 = total3 + cellule1.Value + cellule2.Value         
         End If
 
    Next
 
 Additionnejaune = total3
 
End Function

[jfontaine]

Bonjour,

sur cette ligne le "= true" est de trop

Code :

If cellule1.Interior.ColorIndex = 6 = True Then

Je ne comprend pas bien l'utilité de total 2


Une solution pour faire l'addition de toutes les cellules jaune

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Function AdditionJaune(Plage1 As Range, Plage2 As Range) As Double
 
Dim rg As Range
Dim Total As Double
 
For Each rg In Plage1
    If rg.Interior.ColorIndex = 6 Then Total = Total + rg.Value
Next
 
For Each rg In Plage2
    If rg.Interior.ColorIndex = 6 Then Total = Total + rg.Value
Next
 
AdditionJaune = Total
 
End Function

appel de la fonction

Code :

=AdditionJaune(A1:A12;C1:C12)

A noter que l'on pourrait avoir qu'une seule plage dans le code si on appelait comme suit

Code :

=AdditionJaune((A1:A12;C1:C12))

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
Function AdditionJaune(Plage1 As Range) As Double
 
Dim rg As Range
Dim Total As Double
 
For Each rg In Plage1
    If rg.Interior.ColorIndex = 6 Then Total = Total + rg.Value
Next
 
 
AdditionJaune = Total
 
End Function