Discussion :

[elsabio]

Bonsoir,

j 'ai cherché sur différent forums, mais je n'ai pas trouvé de réponse à ma recherche.

Sauriez-vous afficher une image dans une cellule en "F7" en fonction du résultat de la cellule "E8"?

Les images sont stockées dans la feuille "images_depenses". J'ai un exemple de fichier, en fichier joint.


Merci par avance a tout ceux qui pourraient m'aider :)


PS: "je suis Charlie"

[Invité]

Bonsoir,

Une solution possible dans le fichier joint. Le nom des images a été changé.

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
45
46
47
48
49
50
51
52
53
54
55
 
Sub TesterMettreEnPlaceImage()
 
Dim ColonneVariation As Long
Dim DerniereLigneVariation As Long
Dim I As Long
 
Dim ShEnCours As Worksheet
Dim ShapeVariation  As Shape
 
    Set ShEnCours = Sheets("Feuil1")
    ColonneVariation = 5
    With ShEnCours
         If .Shapes.Count > 0 Then
            For Each ShapeVariation In .Shapes
                Select Case ShapeVariation.Name
                       Case "En hausse", "En baisse", "Egal"
                            ShapeVariation.Delete
                End Select
            Next ShapeVariation
         End If
         DerniereLigneVariation = .Cells(.Rows.Count, ColonneVariation).End(xlUp).Row
         For I = DerniereLigneVariation To 3 Step -1
                 If .Cells(I, ColonneVariation) <> "" Then
                    MettreEnPlaceImage .Cells(I, ColonneVariation + 1), .Cells(I, ColonneVariation).Value
                 End If
         Next I
    End With
 
    Set ShEnCours = Nothing
 
End Sub
 
Sub MettreEnPlaceImage(ByVal CelluleDestination As Range, ByVal VariationkWh As Single)
 
  With Sheets("images_depenses")
        If .Shapes.Count > 0 Then
              Select Case VariationkWh
                  Case Is > 0
                      .Shapes("En hausse").Copy
                      CelluleDestination.PasteSpecial
                      Selection.Name = "En hausse"
                  Case 0
                      .Shapes("Egal").Copy
                       CelluleDestination.PasteSpecial
                      Selection.Name = "Egal"
                  Case Is < 0
                       .Shapes("En baisse").Copy
                        CelluleDestination.PasteSpecial
                      Selection.Name = "En baisse"
              End Select
        End If
  End With
 
End Sub

Cordialement.

[elsabio]

Merci Eric KERGRESSE, je vais la testé

Par contre, la solution via vba est obligatoire? ou existe t il une solution plus simple sans toucher a vba?

Encore merci pour ta réponse

[Invité]

Par contre, la solution via vba est obligatoire? ou existe t il une solution plus simple sans toucher a vba?

Bonjour,

Je ne crois pas que cela soit possible sans VBA.

Cordialement.

[vinc_bilb]

Bonjour,

en passant par un format conditionnel, vous pouvez afficher les flèches suivant les valeurs, si ça peut répondre à votre besoin de ne pas passer par du VBA .....

[elsabio]

Merci vinc_bilb,

Le problème avec ces icônes, c'est qu'ils sont dans le mauvais sens.

La flèche rouge doit être vers le haut

[Abed_H]

Bonsoir

si c'est possible sans vba voir le fichier en pièce jointe

Bonne soirée

[elsabio]

Bonsoir

si c'est possible sans vba voir le fichier en pièce jointe

Bonne soirée

Merci ca fonctionne bien, mais si je veux ajouter d 'autres lignes de données, il faut rentrer les bonnes cellules dans "gestion de formule"; on ne peut pas l'automatiser?

je suis un peu ch***t lol