insertion image dans cellule

mth

XLDnaute Barbatruc

• 28 Août 2011

• #2

Re : insertion image dans cellule

Bonjour Dim,

Voici un code testé sous 2007:

Code:

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count = 1 And Target.Address = "$F$11" Then
   Dim Fichier As String, Chemin As String, adresseT As Long, adresseL As Long
    On Error Resume Next
    Sheets("données").Shapes("image1").Delete
    Chemin = "C:\Users\Mon_ordi\Desktop\Emoti\"
    Select Case Target
        Case Is <= -5: Fichier = "smiley_mauvais.gif"
        Case Is > 5: Fichier = "smiley_bon.gif"
        Case Else: Fichier = "smiley_egal.gif"
    End Select
 
    adresseT = Range("G11").Top
    adresseL = Range("G11").Left
 
    Worksheets("données").Shapes.AddPicture(Chemin & Fichier, True, True, adresseL, adresseT, 50, 50).Name = "image1"
End If
End Sub

mais pas sûre que cela puisse t'aider, je crois que je n'ai pas compris ce que tu voulais faire ....
Tu auras certainement d'autres réponses


Bon après-midi,

mth

Edit: Re JC
Bise,
m

 

Dernière édition: 28 Août 2011

Vote positif 0 Vote négatif

D

DIM72

XLDnaute Nouveau

• 28 Août 2011

• #3

Re : insertion image dans cellule

Merci pour ton aide.

Je me suis mal exprimé.
J'ai deux résultats dans la même feuille en F11 et M11; Je veux accompagner chaque résultat d'une image.

Si je n'ai qu'un résultat en F11 tout va bien avec mon code; mais si j'introduis mon deuxième résultat en M11 je n'arrive pas à associer une image à ce deuxième résultat, malgré tous mes efforts de modifier mon code.

 

Vote positif 0 Vote négatif

JCGL

XLDnaute Barbatruc

• 28 Août 2011

• #4

Re : insertion image dans cellule

Bonjour à tous,
Bienvenue à Dim72 sur XLD,
Re Mimi,

Dim72 : Merci de déposer ton fichier, il sera ainsi plus facile de tenter de t'aider...

Bises Mimi
A + à tous

 

Vote positif 0 Vote négatif

D

DIM72

XLDnaute Nouveau

• 28 Août 2011

• #5

Re : insertion image dans cellule

Voici mon fichier

 

Pièces jointes

• météo2.xls

  123 KB · Affichages: 71

Vote positif 0 Vote négatif

mth

XLDnaute Barbatruc

• 28 Août 2011

• #6

Re : insertion image dans cellule

re à tous

Si j'ai bien compris (ce qui reste à voir ...) tu saisis un chiffre soit en F11 soit en M11, tu peux peut-être simplement mettre deux clauses if dans ton code?

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
 
Dim Fichier As String, Chemin As String
 
If Target.Count = 1 And Target.Address = "$F$11" Then
      'ton code actuel  
End If

If Target.Count = 1 And Target.Address = "$M$11" Then
   'Ton code similaire et terminer par:     
    Worksheets("données").Image2.Picture = LoadPicture(Chemin & Fichier)
End If
End Sub

@ +

mth

 

Vote positif 0 Vote négatif

K

kjin

XLDnaute Barbatruc

• 28 Août 2011

• #7

Re : insertion image dans cellule

Bonjour, JC et Mireille
Pour le fün
A+
kjin

 

Pièces jointes

• dim.zip

  10 KB · Affichages: 60

Vote positif 0 Vote négatif

D

DIM72

XLDnaute Nouveau

• 28 Août 2011

• #8

Re : insertion image dans cellule

Merci pour vos réponses:
Pour mth: j'avais déjà essayé et cela ne marche pas, je n'ai plus aucune image qui s'affiche;

Pour kjin: ton code me semble intéréssant mais il bloque systématiquement sur :
P.Picture = LoadPicture(Chemin & Fichier) dois-je renseigner le chemin du fichier de mes images si oui comment car j'ai essayé différentes façon sans succès.

Encore merci pour votre patience.

 

Vote positif 0 Vote négatif

mth

XLDnaute Barbatruc

• 28 Août 2011

• #9

Re : insertion image dans cellule

Bonsoir à tous Bonsoir Drill

Pendant que JC et Kjin sont en train de prendre l'apéro ...

En essayant le superbe code de kjin, as-tu bien déposé ton fichier et tes images dans le même répertoire ?
Par ailleurs, as-tu bien remarqué la façon dont sont nommées les images dans la feuille ?
(respectivement ImageF11 et ImageM11)

Bien à toi,

mth

 

Vote positif 0 Vote négatif

D

DIM72

XLDnaute Nouveau

• 28 Août 2011

• #10

Re : insertion image dans cellule

Je suis trop nul!!!!

En tous cas merci c'est super ça marche

Et bon apéro!!! Dommage que je ne sais pas où vous êtes sinon j'irai payer ma tournée.

A+ et encore merci

 

Vote positif 0 Vote négatif

JCGL

XLDnaute Barbatruc

• 28 Août 2011

• #11

Re : insertion image dans cellule

Bonjour à tous,
Re Mimi,
Salut Kjin,

mth à dit:

Pendant que JC et Kjin sont en train de prendre l'apéro ...

Cliquez pour agrandir...

Et non, j'avais des "devoirs" à envoyer ce Dimanche soir....

Bises
A++
A + à tous

 

Vote positif 0 Vote négatif

D

DIM72

XLDnaute Nouveau

• 29 Août 2011

• #12

Re : insertion image dans cellule

Bonjour,

Je suis à nouveau désespérer, je ne comprends pas pourquoi quand je remplace vos images par les miennes qui sont des smileys bien en .gif et dans le bon dossier, ce qui marchait à la perfection ne marche plus.

Le code bloc sur : Picture = LoadPicture(Chemin & Fichier)

A nouveau merci pour votre aide.

 

Vote positif 0 Vote négatif

JCGL

XLDnaute Barbatruc

• 29 Août 2011

• #13

Re : insertion image dans cellule

Boànjour à tous,

As-tu pensé à changer le nom des images dans les formules derrière le gif dans le fichier ?
Il faut mette le nom de l'image sans l'extension (sans le .gif).

A + à tous

 

Vote positif 0 Vote négatif

D

DIM72

XLDnaute Nouveau

• 29 Août 2011

• #14

Re : insertion image dans cellule

Je suis sur le c..., vraiment trop fort.

Un grand grand merci à vous, voilà une semaine qui commence bien grâce à vous.

 

Vote positif 0 Vote négatif