Discussion :

[GexMan1198S]

Bonjour,

J'essaie depuis plusieurs heures de comprendre pourquoi ma fonction ne fonctionne pas, sans trouver réponse

Dans un fichier EXCEL de base, j'essaie de créer une fonction (dans un module) qui me retournera une valeur booléenne si la couleur de la cellule est restée "sans couleur" (colorindex=-4142) à la suite d'une MFC.

La fonction est la suivante :

Code :

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

1
2
3
4
5
Function EST_SANS_FOND(Target As Range) As Boolean
 
    If Target.DisplayFormat.Interior.ColorIndex = -4142 Then EST_SANS_FOND = True
 
End Function

Le fichier est tel que :


Rien de compliquer. La MFC en $C$5 est =VRAI alors remplissage d'une couleur bleue (colorindex=20)
La formule en $C$7 est =EST_SANS_FOND($C$5).

Pourquoi obtiens-je une erreur 1004 ?
Le plus fou c'est que dans la fenêtre d'exécution dans l'éditeur VBA, si je rentre

Code :

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

?Target.DisplayFormat.Interior.ColorIndex

j'obtiens la bon code couleur.

Je ne comprends pas pourquoi il y a une erreur 1004 dans la fonction ?!

Si quelqu'un en connaît la raison je suis tout ouïe

Merci au fofo

[Pierre Fauconnier]

Salut

Extrait de https://docs.microsoft.com/fr-fr/off...6)%26rd%3Dtrue



Il faut tester la condition de la MFC plutôt que tester la couleur. Que cherches-tu à réaliser?