Discussion :

[stef94]

Bonsoir,

j'ai inséré une fonction d'une macro dans une cellule.

Code :

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

1
2
3
4
5
6
7
8
9
10
Public Function cumul_couleur(plage As Range, col As Range) 
    Dim elm As Object 
    Application.Volatile 
    cumul_couleur = 0 
    For Each elm In plage 
        If elm.Font.ColorIndex = col.Font.ColorIndex Then 
            cumul_couleur = cumul_couleur + elm.Value 
        End If 
    Next elm 
End Function

Après avoir sélectionné ma plage et ma cellule de couleur, la fenêtre vba affiche

End IF sans bloc IF
Merci d'avance