affichage de petits dessins jpg

utilisateur_médiocre

XLDnaute Occasionnel
bonjour le forum

est-il possible de faire apparaître dans une cellule un petit dessin jpg choisi dans un répertoire en fonction de la valeur d'une autre cellule.

merci
 

BOISGONTIER

XLDnaute Barbatruc
Repose en paix
Re : affichage de petits dessins jpg

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("a2:b2")) Is Nothing Then
ChDir ActiveWorkbook.Path
If [A2] = 1 And [B2] <> 0 Then nomImage = "x.jpg"
If [A2] = 2 And [B2] <> 0 Then nomImage = "y.jpg"
On Error Resume Next
ActiveSheet.Shapes("monimage").Delete
Range("C2").Select
monimage = ActiveSheet.Pictures.Insert(nomImage).Select
Selection.Name = "monimage"
Target.Select
End If
End Sub

JB
 

Pièces jointes

  • Classeur1.xls
    30 KB · Affichages: 1 104
  • Classeur1.xls
    30 KB · Affichages: 1 132
  • Classeur1.xls
    30 KB · Affichages: 1 162

JCGL

XLDnaute Barbatruc
Re : affichage de petits dessins jpg

Re,

Salut mon ami Spit et merci de me rassurer arf :)

User_Médiocre as tu bien tout décompressé dans le même répertoire ?

Sinon, je ne vois pourquoi cela ne fonctionne pas si tu suis TOUTES nos indications (relis le fil...)

A+
 

Statistiques des forums

Discussions
311 708
Messages
2 081 750
Membres
101 812
dernier inscrit
trufu