Automatiser intégration image

Bonjour,

J'aimerai pouvoir intégrer une image en fonction du résultat dans une cellule.

Je joins un fichier pour plus d'explication

Merci

Bien cordialement,

Mika

8classeur1.xlsx (35.20 Ko)

Bonjour mika 51, le forum,

Un essai:

Private Sub Worksheet_Change(ByVal Target As Range)

    If Target.Address <> "$A$10" Then Exit Sub
    'If Target.Value < 0 Or Target.Value > 100 Then Exit Sub

    With ActiveSheet

     If Target.Value < 0 Or Target.Value > 100 Then
        .Shapes("Image 1").Visible = True
        .Shapes("Image 2").Visible = True
        .Shapes("Image 3").Visible = True
    End If

    If Target.Value >= 0 And Target.Value <= 40 Then      'VERT image3
        .Shapes("Image 1").Visible = False
        .Shapes("Image 2").Visible = False
        .Shapes("Image 3").Visible = True
    End If

    If Target.Value > 40 And Target.Value <= 60 Then     'JAUNE  image1
        .Shapes("Image 1").Visible = True
        .Shapes("Image 2").Visible = False
        .Shapes("Image 3").Visible = False
    End If

    If Target.Value > 60 And Target.Value <= 100 Then     'ROUGE  image2
        .Shapes("Image 1").Visible = False
        .Shapes("Image 2").Visible = True
        .Shapes("Image 3").Visible = False
    End If

    End With
End Sub

Cordialement,

super !!! merci beaucoup

étant donné que c'est pour mettre a plusieurs endroits sur un tableau indicateur

est il possible d'en mettre plusieurs a différents endroits ?

bien cordialement,

Mika

Re,

Il serait utile de voir ton fichier (ou un exemple ) avec ce que tu veux obtenir.... une simple MFC avec un jeu d'icônes suffirai peut-etre à répondre à tes besoins

https://www.excel-pratique.com/fr/cours/excel_mises_en_forme_conditionnelles.php

Cordialement,

voici ce que j'aimerai obtenir

17classeur1.xlsx (312.59 Ko)

Bonjour,

Je crains de ne pas pouvoir t'aider, les graphiques et moi

Quelques précisions supplémentaire si tu souhaites obtenir des réponses :

Actuellement, tu les inserts manuellement tes images sur le graphique ?

Quelle est la condition pour définir quelle image à insérer ?

Cordialement,

Bonjour,

Effectivement je les insère à la main.

Les conditions, pour tel image, cela dépend des résultats, suivant le trait VERT

en gros si on est en dessous du trait c'est l'image vert

si on est au dessus du trait c'est l'image Rouge

si on est au alentour du trait c'est l'image Jaune

Et pour la plus grande c'est la résultante des trois autres

s'il y a une rouge alors elle est rouge

s'il y a une jaune et pas de rouge alors elle est jaune

s'il ya que des vert alors elle est vert

bien cordialement.

Bonjour à tous,

Je viens d'essayer de dupliquer cela pour faire apparaitre d'autre smiley mais je n'y parviens pas.

avec ce bout de code

Private Sub Worksheet_Change(ByVal Target As Range)

    If Target.Address <> "$A$10" Then Exit Sub
    'If Target.Value < 0 Or Target.Value > 100 Then Exit Sub

    With ActiveSheet

     If Target.Value < 0 Or Target.Value > 100 Then
        .Shapes("Jaune 1").Visible = True
        .Shapes("Rouge 1").Visible = True
        .Shapes("Vert 1").Visible = True
    End If

    If Target.Value >= 0 And Target.Value <= 40 Then      'VERT image3
        .Shapes("Jaune 1").Visible = False
        .Shapes("Rouge 1").Visible = False
        .Shapes("Vert 1").Visible = True
    End If

    If Target.Value > 40 And Target.Value <= 60 Then     'JAUNE  image1
        .Shapes("Jaune 1").Visible = True
        .Shapes("Rouge 1").Visible = False
        .Shapes("Vert 1").Visible = False
    End If

    If Target.Value > 60 And Target.Value <= 100 Then     'ROUGE  image2
        .Shapes("Jaune 1").Visible = False
        .Shapes("Rouge 1").Visible = True
        .Shapes("Vert 1").Visible = False
    End If

    End With
End Sub

Quelqu'un a une solution ?

Merci

Bien cordialement,

Rechercher des sujets similaires à "automatiser integration image"