Discussion :

[cg061101]

Bonjour,
Est-il possible au sein d'une fonction de réaliser la mise à jour de la cellule cible ?

Exemple :

Code :

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

1
2
3
4
5
function MajCel(p1 as integer, p2 as integer) as integer
MajCel=p1+P2
' mettre en forme la cellule si le résultat est négatif ( fond rouge )
 
end function

Bien sur, il est possible de réaliser l'action en mettant une forme conditionnelle , mais il ne s'agit là que d'un exemple. La mise en forme pourrait bien être plus complexe ...

merci pour votre éclairage.

[tedo01]

Bonjour,
dans la fonction, la cellule concernée est identifiée par Application.Caller.
Il suffit donc d'appliquer les mises en formes à cet objet avant de quitter la fonction.

[eriiic]

Bonjour,

Théoriquement une fonction retourne une valeur et c'est tout, elle ne change jamais son environnement.

VBA pour Excel impose des limites très strictes aux fonctions appelées à l'intérieur de formules de feuilles de calcul. Leur seule attribution est de renvoyer une valeur à la cellule hôte. Ces fonctions ne peuvent effectuer aucune autre action susceptible de modifier le contenu du classeur.
En particulier, une fonction complémentaire ne peut pas modifier la valeur d'autres cellules que celles où elles ont été saisies. De même, il est impossible de renommer une feuille, déplacer une plage, changer le format d'une cellule, etc. à l'intérieur d'une fonction complémentaire. Les seules actions autorisées sont celles qui n'ont aucun effet sur le contenu du classeur, comme par exemple afficher un message par MsgBox.

Il faudrait que tu utilises l'évènement calculate pour tester si tu dois changer ta mise en forme.

eric

[Philippe Tulliez]

Bonjour,
Tu n'as pas précisé si c'était dans le but de l'utiliser comme fonction personnalisée ou pour l'utiliser dans le cadre d'une application VBA. Dans ce dernier cas, tu peux faire tout ce que tu veux avec la fonction au même titre qu'une procédure Sub.

[cg061101]

Bonjour,

Je comprends bien les limitations imposées dans une fonction personnalisée. Cependant dans le cas ci-joint, cela me parait justifié.

Je souhaite mettre en place des indicateurs statistiques de tendance calculés à partir de valeur d'un tableau. Le résultat est une flèche montante, horizontale ou descendante en fonction de la tendance ( plutôt du coef de pente de la droite ). J'utilise pour cela un caractère de la police Widdings (simple et efficace ).
En revanche la couleur de la flèche doit être calculé en fonction d'un autre facteur ( rouge en dehors des valeurs , orange : danger, vert dans la plage acceptable ).
J'ai réalisé ce tableau en utilisant un bout de code (sub) activé par un bouton. Je me posais la question s'il était possible de réaliser la même opération en utilisant une fonction personnalisée pour éviter le bouton.

exemple de résultat :
exemple final du résultat


avec les colonnes permettant le calcul




code associé (pour une flèche) :

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
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
 
Private Sub indicateur(Rge As Range, of As Variant)
Dim pente As Double
Dim dispo As Double
Dim vert, orange, rouge As Double
Dim seuil1, seuil2 As Double
 
    pente = Round(Rge.Offset(of, -1).Value * 1000, 0)
    dispo = Rge.Offset(of, -2).Value * 100
    vert = Range("VERT").Font.Color
    orange = Range("ORANGE").Font.Color
    rouge = Range("ROUGE").Font.Color
    seuil1 = Range("SEUIL1").Value
    seuil2 = Range("SEUIL2").Value
 
 
 
    If pente > 0 Then
        ret = "ì"
    ElseIf pente = 0 Then
        ret = "è"
    Else
        ret = "î"
    End If
 
    If dispo >= seuil1 Then
        Rge.Offset(of).Font.Color = vert
    ElseIf dispo < seuil1 And dispo > seuil2 Then
        Rge.Offset(of).Font.Color = orange
    Else
        Rge.Offset(of).Font.Color = rouge
 
    End If
 
    Rge.Offset(of).Value = ret
 
    Rge.Offset(of).Font.Name = "Wingdings"
 
 
End Sub

Je ne comprends pas très bien comment utiliser la fonction Application.Caller, peux-tu me fournir un exemple stp ?
Merci en tout cas pour ces premières explications

[eriiic]

Bonjour,

Je comprends bien les limitations imposées dans une fonction personnalisée. Cependant dans le cas ci-joint, cela me parait justifié.

Il faudrait le dire à MS alors ;-)
Mais dans tous les langages le rôle d'une fonction est de retourner une valeur (unique ou tableau)

Application.Caller te permet de connnaitre la cellule appelante de la fonction.
ex :

Code :

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

1
2
Debug.Print Application.Caller.Address
Debug.Print Application.Caller.Worksheet.Name

Pas sûr que tu en aies besoin ici

Ta mise en couleur peut sans doute se faire avec une MFC (mise en forme conditionnelle).
Et si tu as excel 2010 tu as des MFC qui mettent des icones en couleur directement.

Prend l'habitude de mettre un fichier réduit à ton problème. Beaucoup plus utile que des images.

eric

[Philippe Tulliez]

Bonjour Christophe,
D'abord bravo pour la présentation de ta question bien illustrée et détaillée .
Je ne peux qu'abonder dans le sens d'Eriiic quant au fait que la mise en forme conditionnelle peut répondre à tes besoins ou bien le format personnalisé d'ailleurs (limité à trois conditions).