Macro Vs Fonction

Je voudrais faire une fonction qui :
- recoit en argument un range et une valeur "MinValue"
- Modifie la couleur des cellules du range dont la valeur et égale à MinValue.

Mon problème :
J'arrive à écrire une Macro qui fait ce travail (Range et MinValue sont pour le moment en dur dans le code) mais si je mets le meme code dans une fonction alors il ne se passe rien.

Y a t'il quelque chose de particulier à faire dans une fonction pour pouvoir modifier l'apparence d'une cellule excel ?

Voici le code de ma macro :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

Sub Macro3() Dim MinValue As Double MinValue = Worksheets("Optim Vent").Cells(1, 14).Value   Worksheets("Optim Vent").Range("H14:AQ49").Select Selection.Interior.ColorIndex = xlNone   For Each c In Worksheets("Optim Vent").Range("H14:AQ49").Cells If c.Value = MinValue Then c.Select With Selection.Interior .ColorIndex = 4 .Pattern = xlSolid .PatternColorIndex = xlAutomatic End With End If Next End Sub

---

Pour la fonction, je remplace juste "Sub" par "Function"

J'utilise Excel 2003 en Version Anglaise.

Merci pour votre aide

Une fonction retourne une valeur
par contre tu peux mettre tes paramètres dans une procédure
exemple

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

Sub Macro3(byref rng as Range, byval MinValue as double) dim c as range rng.Interior.ColorIndex = xlNone   For Each c In rng If c.Value = MinValue Then With c.Interior .ColorIndex = 4 .Pattern = xlSolid .PatternColorIndex = xlAutomatic End With End If Next c End Sub

---

tu peux appeler ta sub par exemple

Code:

---

1 2 3

sub tst Macro3 sheets("Optim Vent").Range("H14:AQ49"), sheets("Optim Vent").Cells(1, 14).Value end sub

---

Merci. Je regarde ce que je peux faire avec ca.

Jimmy
PS : Merci ouskel'n'or pour le formatage de mon code.

Salut.

Pour compléter Mercatog, je précise qu'une fonction utilisée dans une feuille de calcul ne peut rien modifier dans le classeur. Si cette fonction effectue la moindre modification, elle ne pourra pas être appelée via la feuille de calcul. Pour pouvoir être utilisée dans une feuille de calcul, cette fonction ne pourra non plus faire appel à une procédure ou à une autre fonction qui apporte une modification au classeur.

Dans ton cas, c'est donc par une procédure que tu t'en sortiras, quelque soit le mode d'appel de cette procédure.

Bonjour,

+1 en ce qui concerne ce que vient d'exposer Pierre Fauconnier (que je salue).

Une fonction utilisée dans la feuille de calcul déclenche en effet un processus de calcul sur un fil (thread) totalement distinct du reste. Ce fil parait même (je ne l'ai pas encore totalement "prouvé", mais ...) totalement indépendant du fil VBA.

Il est clair que toute autre fonction ou procédure "VBA" qu'appellerait cette fonction resterait alors "confinée" dans ce fil, qui n'est qu'un fil de calcul, et resterait sans effet sur tout ce qui ne se trouve pas inclus dans ce fil.

Dans ces conditions : seule la cellule où cette fonction est utilisée (comme formule) peut être modifiée par la valeur retournée par la fonction ...