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