SOMME SI COULEUR
Résolu
Amesam
Messages postés
18
Date d'inscription
Statut
Membre
Dernière intervention
-
Amesam Messages postés 18 Date d'inscription Statut Membre Dernière intervention -
Amesam Messages postés 18 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
Je coince avec un classeur, un planning 2018.
J'utilise cette fonction :
depuis trois années j'utilise cette fonction et pas de souci, mais là je n'arrive pas à trouver pourquoi ça ne fonctionne pas.
J'ai enregistré mon fichier en .xlsm mais idem !
Si idée merci pour le retour.
Je coince avec un classeur, un planning 2018.
J'utilise cette fonction :
Function SOMME_SI_COULEUR(PlageSomme As Range, PlageCouleur As Range) As Variant
'*********************************************************
' Effectuer la somme des cellules en couleur *
'*********************************************************
Dim Cel As Range
Dim Som As Double
If PlageCouleur.Cells.Count > 1 Then
SOMME_SI_COULEUR = CVErr(xlErrValue)
Exit Function
End If
For Each Cel In PlageSomme
If Cel.Interior.ColorIndex = PlageCouleur.Interior.ColorIndex Then Som = Som + Cel
Next
SOMME_SI_COULEUR = Som
End Function
depuis trois années j'utilise cette fonction et pas de souci, mais là je n'arrive pas à trouver pourquoi ça ne fonctionne pas.
J'ai enregistré mon fichier en .xlsm mais idem !
Si idée merci pour le retour.
