XL 2019 VBA colorer les cellules et éliminer les cellules en rouge dans le calcul de plus proche valeur

Bonjour KAMARY, le forum,

Voyez ci-dessous les formules utilisées pour le format conditionnel des cellules servant au calcul de la moyenne

pour les cellules comprises dans la fourchette référence + ou - 25% :

pour les cellules en dehors de la fourchette :



J'ai tenté de reproduire vos fonctions personnalisées en formules et j'y parviens partiellement pour

qui devient :

mais pas pour =VALEUR_PROCHE(I6;C6:G6) que je n'arrive pas à comprendre, le double I dans IIF en ligne 55

Bonjour KAMARY, le forum,

voyez les lignes 7 et 10 qui se ressemblent étrangement...

Bonjour ,

je supprime les deux lignes en fait le besoin le plus proche en mois si j'arrive pas à trouver les plus proche en mois si deux valeurs en mois égaux seront afficher si aucune valeur plus proche en mois la valeur le plus proche sera afficher en ci-joint le script :
Function CalculMoyenneAffectation(rng As Range, colonneH As Range) As Double
Dim hValue As Double
Dim sum As Double
Dim count As Integer

Dim tempValue As Double
Dim result As Double


hValue = colonneH.Value
sum = 0 ' Initialize sum and count outside the loop
count = 0

For Each cell In rng

If cell.Value >= (hValue * 0.8) And cell.Value <= (hValue * 1.25) Then
cell.Interior.Color = RGB(255, 255, 0)
sum = sum + cell.Value
count = count + 1
End If

Next cell

If count > 0 Then

MsgBox "sum " & sum
MsgBox "count " & count
MsgBox "hValue " & hValue
CalculMoyenneAffectation = (sum / count + hValue) / 2
MsgBox "result " & result

End If




End Function