Discussion :

[MENOT72]

Bonjour,

Je cherche à insérer une image dans une cellule en fonction du résultat obtenu dans la cellule voisine.
Sur le forum j'ai trouvé la réponse de " mercatog" de juin 2011 qui me convient parfaitement; mais je n'arrive pas à adapter ses conditions d'affichage.

Je voudrais seulement trois conditions en fonction du résultat obtenu dans ma cellule: -5%, entre -5% et +5% et supérieur à 5%.
Mon souci est que je n'arrive pas à adapter la première partie de son code.

Je vous remercie pour l'aide que vous pourriez m'apporter.

[Didier Gonard]

Bonjour,

En mettant le lien vers le sujet évoqué, en mettant la partie de code concernée et en explicitant le problème ça sera plus facile de répondre

cordialement,

Didier

[MENOT72]

Merci pour ta réponse et excuses moi pour l'oubli je suis impardonable.

Je te joins le fichier initial de "mercatog" sur le quel j'ai travaillé. Son problème était d'afficher une image en fonction de la moyenne du résultat des 5 jours précédents.

Mon problème est beaucoup plus simple, je veux afficher une image par exemple en G11, pour un résultat de calcul qui s'affiche en F11 sous la forme d'un pourcentage. J'aimerais que mon image change si ce résultat est inférieur à -5%, supérieur à +5% ou entre -5% et +5%.

J'ai donc essayé de modifier le code de mercatog ( le IF ) qui est joint au fichier, mais je n'y arrive pas.


Excuses moi mais je suis un débutant et j'essaie tous les jours de m'améliorer.

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
41
42
43
44
Sub Worksheet_Change(ByVal Target As Range)
 
Dim Fichier As String, Chemin As String
 
Dim R As Long, S As Long
 
Dim M As Double
 
 
If Target.Count = 1 And Target.Column = 2 And Target.Row > 1 Then
 
    R = Target.Row
 
    If R <= 6 Then
 
        S = 2
 
    Else
 
        S = R - 4
 
    End If
 
    'Moyenne des 5 derniers jours, si <5 jours, moyenne des jours à partir de B2
 
    M = Evaluate("AVERAGE(B" & S & ":B" & R & ")")
 
    Chemin = "C:\Documents and Settings\MENOT\Bureau\Emoti\"
 
    Select Case M
 
        Case Is <= 450: Fichier = "smiley_bon.gif"
 
        Case Is <= 500: Fichier = "smiley_egal.gif"
 
        Case Else: Fichier = "smiley_mauvais.gif"
 
    End Select
 
    Worksheets("météo").Image1.Picture = LoadPicture(Chemin & Fichier)
 
End If
 
End Sub

.

Merci de ton aide.