Fonction booleene

Bonjour tout le monde,

Je n'ai jamais cree de fonction et apparemment je ne suis pas bon. =D J'entends une fonction que j epeux utiliser directement dans la barre de formule d'excel.

Je voudrais l'utiliser dans un IF, que ca renvoie VRAI, si la cellule est coloree en rouge et FAUX sinon.

J'ai tente;

Function RED(peak As Range) As Boolen

Application.Volatile

If peak.Interior.Color = 255 Then
RED = True
Else
RED = False
End If

End Function

Excel a l'air de la reconnaitre puisqu'il me la propose automatiquement avec les autres qui commencent par un 'R' mais pourtant ca me renvoir '#NAME'...

Je vous remercie d'avance, ca ne doit vraiment pas etre complique, je suis desole.

Et pour les accents, milles excuses mais je suis sur un QWERTY.

Bonjour,

Tu peux débuter ta journée avec un souci de moins

N'oublies pas de clore le sujet.

Option Explicit
Public Function est_Rouge(Cel As Range) As Boolean
    Application.Volatile True
    est_Rouge = Cel.Interior.Color = vbRed
End Function

Bonjour,

tout d'abord merci d'avoir repondu si vite mais malheureusement ca ne fonctionne toujours pas.

C'est a dire que quand je teste =IF(est_Rouge(A1),1,0) j'ai le droit a #NAME et j'ai verifie toutes les macros sont bien autorisees...

Autre question, a quoi sert la premiere ligne, Option Explicit??

Merci encore,

Jocelyn

Re,

Je t'envoie les 2 exemple en xls.

Me dire si cela fonctionne sous 2003

Option Explicit
Public Function est_Rouge(Cel As Range) As Boolean
    Application.Volatile True
    est_Rouge = Cel.Interior.Color = vbRed  ' ou 255
End Function
Function RED(peak As Range) As Boolean
    Application.Volatile
    If peak.Interior.Color = 255 Then
        RED = True
    Else
        RED = False
    End If
End Function

Option explicit

Instruction utilisée au niveau module pour imposer la déclaration explicite de toutes les variables de ce module.

Oui sur ce fichier les deux fonctionnent bien. J'ai oublie de preciser mais je suis passe a 2007, toutefois je suppose que ca ne change rien.

Vraiment je ne comprends pas. Rien a faire sur l'autre...

Merci en tout cas.