XL 2016 Macro affiche ### comme résultat de calcul des couleurs

[Cayou3131]

Bonjour à tous

J'ai un petit problème!

J'ai une macro qui calcule les couleurs. Jusqu'ici tout fonctionne très bien MAIS lorsque je fais un changement dans la première fenêtre et fait CTRL-E pour exécuter la macro, il m'apparait les fameux ###### dans chaque cellule de la ligne 70. Cependant, lorsque je glisse mon curseur sur la ligne coin inférieur et que je clique et étire la plage et bien le calcul se fait bien.

Donc, y a t il quelqu'un qui peut m aider a trouver l'erreur pour ne plus faire apparaitre les fameux ####.

Voici 2 photos explicatives et le dossier en annexe en question.


Donc, modifier La fenêtre ''AIRPORT TRANSFERS' (date ou heure) et faite CTRL-E...vous verrez alors en ligne 70 les #### sur la Feuille ''Mercredi''.

La récompense pour trouver la solution sera mon plus grand RESPECT !! )

Merci d'avance

 

[job75]

Bonjour Cayou3131, le forum,

Je n'ai pas essayé de comprendre ce que fait votre macro Essai.

Mais en rendant volatile la fonction SOMME_SI_COULEUR il n'y a plus de valeurs d'erreur dans "Mercredi" :

Function SOMME_SI_COULEUR(Couleur As Range, Plage As Range) As Long
Application.Volatile
Dim NoCells As Long
Dim CellColour As Long
Dim rngCell As Range
CellColour = Couleur.Interior.Color
For Each rngCell In Plage
    If rngCell.Interior.Color = CellColour Then
        NoCells = NoCells + 1
    End If
Next
SOMME_SI_COULEUR = NoCells
End Function

Evidemment cela augmente la durée des calculs...

A+