automatiser intégration image Le sujet est résolu

Y compris Power BI, Power Query et toute autre question en lien avec Excel
m
mika51
Membre fidèle
Membre fidèle
Messages : 169
Inscrit le : 24 octobre 2016
Version d'Excel : 2010

Message par mika51 » 7 décembre 2017, 12:47

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
Classeur1.xlsx
(35.2 Kio) Téléchargé 7 fois
Avatar du membre
xorsankukai
Membre impliqué
Membre impliqué
Messages : 1'566
Appréciations reçues : 154
Inscrit le : 7 octobre 2014
Version d'Excel : 2010 FR

Message par xorsankukai » 7 décembre 2017, 13:41

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,
Copie de Classeur1-5.xlsm
(40.83 Kio) Téléchargé 10 fois
1 membre du forum aime ce message.
xorsankukai

La connaissance, c’est partager le savoir qui nous fait grandir.
m
mika51
Membre fidèle
Membre fidèle
Messages : 169
Inscrit le : 24 octobre 2016
Version d'Excel : 2010

Message par mika51 » 7 décembre 2017, 15:10

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
Avatar du membre
xorsankukai
Membre impliqué
Membre impliqué
Messages : 1'566
Appréciations reçues : 154
Inscrit le : 7 octobre 2014
Version d'Excel : 2010 FR

Message par xorsankukai » 7 décembre 2017, 18:22

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

Cordialement,
xorsankukai

La connaissance, c’est partager le savoir qui nous fait grandir.
m
mika51
Membre fidèle
Membre fidèle
Messages : 169
Inscrit le : 24 octobre 2016
Version d'Excel : 2010

Message par mika51 » 8 décembre 2017, 08:10

voici ce que j'aimerai obtenir
Classeur1.xlsx
(312.59 Kio) Téléchargé 15 fois
Avatar du membre
xorsankukai
Membre impliqué
Membre impliqué
Messages : 1'566
Appréciations reçues : 154
Inscrit le : 7 octobre 2014
Version d'Excel : 2010 FR

Message par xorsankukai » 8 décembre 2017, 12:11

Bonjour,

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

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,
xorsankukai

La connaissance, c’est partager le savoir qui nous fait grandir.
m
mika51
Membre fidèle
Membre fidèle
Messages : 169
Inscrit le : 24 octobre 2016
Version d'Excel : 2010

Message par mika51 » 11 décembre 2017, 08:02

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.
m
mika51
Membre fidèle
Membre fidèle
Messages : 169
Inscrit le : 24 octobre 2016
Version d'Excel : 2010

Message par mika51 » 12 décembre 2017, 08:32

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,
Répondre Sujet précédentSujet suivant
  • Sujets similaires
    Réponses
    Vues
    Dernier message