Microsoft 365 MFC et Fonction perso

[Claudy]

Bonjour,
dans une feuille j'utilise une fonction VBa:
Function SommeCouleurFondRef(champ As Range, couleurFond As Range)
Application.Volatile
Dim c, temp
temp = 0
For Each c In champ
If c.Interior.ColorIndex = couleurFond.Interior.ColorIndex Then
If IsNumeric(c.Value) Then temp = temp + c.Value
End If
Next c
SommeCouleurFondRef = temp
End Function

ça fonctionne très bien , mais plus quand j'ajoute une MFC ....

Merci d'avance,

Claudy

 

[Claudy]

Ok j'ai trouvé sans fonction perso...
Bon dimanche,
Claudy

 

[laurent3372]

Tu n'as pas besoin de créer une cellule de calcul intermédiaire.
La valeur cherchée se calcule par une formule INDEX/EQUIV (ou RECHERCHEV)

 

[Claudy]

Super, merci, génial!
Claudy

 

[laurent3372]

Tu peux marquer le fil comme résolu