Discussion :

[jiric29]

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 :

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

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

[mercatog]

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

Code :

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

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 :

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

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

[jiric29]

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

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

[Pierre Fauconnier]

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.

[ucfoutu]

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 ...