FOR EACH VBA

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

---

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

---