Aide macro : affichage image en fonction d'un chiffre sous excel

Question

Bonjour,

J'écris ici car je ne trouve rien de concluant sur le net.
J'espere que quelqu'un pourra me répondre.

J'ai un tableau excel, dont une case donne un chiffre ... ce chiffre est le pourcentage de finalisation du travail.
Pour chaque tranche de travail effectué je voudrais qu'une image différente s'affiche, ayant au choix 3 images.

Par exemple un travail est effectué a 10 %, une image que j'ai crée (un nuage orageux) s'affiche a un certain endroit de la feuille excel.
Un travail est effectué a 60 %, l'image sera un simple nuage qui s'affichera a un certain endroit de la feuille excel.
Un travail est effectué a 90 %, l'image sera un soleil qui s'affichera a un certain endroit de la feuille excel.

Comment faire ?
Quelqu'un a une idée, une page web, un lien, quelque chose m'expliquant comment développer ceci ??

Merci,

- Nothing

cs_ITALIA · Answer

Avec un If ou un Select Case tu verifie la valeur de ta Case et ensuite en fonction de la valeur tu y insére ton image :

xls.ActiveSheet.Cells[TaLigne, TaColonne].Select
xls.ActiveSheet.Pictures.Insert("C:\LeNuage.jpg")

It@li@

Arsena · Answer

Essaye ça:


Sub Macro1()
'si la cellule "A1" =10 affiche l'image 1
 If Cells(1, 1) = 10 Then
 Sheets("Feuil1").Shapes("Picture 1").Visible = True
 Else
 Sheets("Feuil1").Shapes("Picture 1").Visible = False
 End If
'si la cellule "A1" =60 affiche l'image 1
 If Cells(1, 1) = 60 Then
 Sheets("Feuil1").Shapes("Picture 2").Visible = True
 Else
 Sheets("Feuil1").Shapes("Picture 2").Visible = False
 End If
'si la cellule "A1" =90 affiche l'image 1
 If Cells(1, 1) = 90 Then
 Sheets("Feuil1").Shapes("Picture 3").Visible = True
 Else
 Sheets("Feuil1").Shapes("Picture 3").Visible = False
 End If
 'sinon n'affiche rien
End Sub


Bonne prog et A+
MD

Aide macro : affichage image en fonction d'un chiffre sous excel

2 réponses

Discussions similaires