Discussion :

[voxov]

Bonjour,

J'ai un problème qui a l'air de rien mais je n'en sors pas malgré la doc de Microsoft :

Je veux indiquer dans une cellule le code couleur d'une autre cellule.
Pour cela, j'ai défini une fonction :

Code :

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

1
2
3
Function CodeCouleurCellule(MyRange As Range) As Byte
    CellCCodeCouleurCelluleolor = MyRange.Interior.ColorIndex
End Function

Quand j'applique la fonction dans la cellule C5 : =CodeCouleurCellule(B5), j'obtiens un #NAME? qui veut dire que la formule contient un texte non reconnu, au lieu du résultat.

Merci d'avance pour une solution.

[jfontaine]

Bonjour,

Et comme cela

Code :

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

1
2
3
Function CodeCouleurCellule(MyRange As Range) As Integer
    CodeCouleurCellule = MyRange.Interior.ColorIndex
End Function

[voxov]

Bonjour Jérome,

Merci pour ta réponse.

Au temps pour moi, le bon code de la fonction est celui-ci :

Code :

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

1
2
3
Function CodeCouleurCellule(MyRange As Range) As Integer
    CodeCouleurCellule = MyRange.Interior.ColorIndex
End Function

Mais cela ne fonctionne pas !

Je compile le projet VBA sans erreur. Mais tout se passe comme si la fonction n'était pas reconnue quand je la mets dans une feuille de calcul : =CodeCouleurCellule(B5)
La sécurité des macros est au "niveau faible"

Qu'est-ce qui pourrait bloquer ???

[jfontaine]

La fonction fonctionne très bien chez moi

Ou est elle placée? Dans un module ?

[voxov]

Ma fonction était dans Microsoft Excel Objects > This Workbook.

Je l'ai mise dans un module et ça marche maintenant.

Merci Jérôme.