Discussion :

[damsmut]

Bonjour,

J'ai écris cette fonction.
Je l'appelle à partir de mon fichier Excel directement dans les cellules en tant que formule. Et ça ne marche pas. La couleur de la cellule choisie ne change pas.

Pour tant lorsque je l'appelle à partir des Macros (Alt + F8) la couleur change bien

Code :

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

1
2
3
4
5
Function Change_Couleur(quoi As Range)
 
    quoi.Interior.ColorIndex = 35
 
End Function

Qui peut m'aider

merci

a+

Damsmut

[aalex_38]

Il me semble que l'on ne peut pas agir dans une formule sur une propriété quelconque de la cellule.
A vérifier.

[damsmut]

ça ne m'arrange pas ça

[aalex_38]

Fais une recherche sur le forum avec le mot clef TARGET tu trouveras peut-être une solution.

[damsmut]

j'ai utilisé cela :

Code :

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

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)

mais bon ce serait tellement pratique et plus efficace de pouvoir le faire directement dans la fonction !!

c'est nul ! comment ce fait-il qu'ils n'aient pas penser à cela chez MS !!?

[Krovax]

Par définition une fonction renvoie une valeur! Ta fonction ne renvoie aucune valeur. C'est n'est pas une fonction mais une subroutine (sous-procédure). Chez MS ils se contentent d'appliquer les règle d'algorithmique.

Voila un petit cours a se sujet.

[damsmut]

si ma vrai fonction renvoi bien une valeur (d'ailleur elle renvoie la valeur de la couleur) et je voulais en profiter au passage pour changer la couleur de la cellule.

Ici je n'ai mis qu'un exemple simplifié