Erreur #VALEUR inexplicable

Bonjour à tous,

Mon problème est le suivant : j'ai créé trois fonctions que voici qui me permettent de détecter la couleur d'une cellule, si elle est en gras et si elles soulignée.

Code :

Public Function couleur(Cible As Range) As Variant
couleur = Cible.Font.ColorIndex
End Function

Public Function souligne(Cible As Range) As Variant
souligne = Cible.Font.Underline
End Function

Public Function gras(Cible As Range) As Variant
gras = Cible.Font.Bold
End Function

J'essaye d'utiliser ces fonctions dans ma macro dont voici une partie :

Code :

Range("D3").Select

     ActiveCell.FormulaR1C1 = _
        "=IF(RC[-1]<>"""",IF(OR(couleur(Intégration!R[-1]C[-3])>1,souligne(Intégration!R[-1]C[-3])=2,gras(Intégration!R[-1]C[-3])=0),""X"",""""),"""")"

      Range("D3").Select
    Selection.AutoFill Destination:=Range("D3:D75"), Type:=xlFillDefault

Ce qui me pose problème c'est que quand je passe par la macro, l'étape autofilldestination me donne une erreur #VALEUR! alors que quand je fais cette dernière étape à la main, je n'ai pas d'erreur.

Quelqu'un aurait-il une suggestion ?

Merci mille fois

Bonjour Moi00033, le forum,

Peut-être ainsi....si la formule en D3 est correcte....

Range("D3:D75" ).FillDown

Cordialement,

Bonjour,

pas de problème avec ta macro, ni avec ta formule chez moi, peux-tu mettre le fichier ?

duplicate

Bien sûr voici le fichier je déclenche ma macro en cliquant sur le cercle bleu.

Re-bonjour,

tu travailles sur Mac, apparemment. Moi sur PC, les caractères accentuées dans le code VBA passent mal. je ne parviens donc pas à reproduire le problème que tu rencontres. Peut-être qu'un membre du Forum disposant d'un Mac pourra t'aider.