Apparition d'une image dans un tableau excel [Fermé]

lol

Dans la fenetre vba> Feuil1 :

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
le code que je t'ai filé
End sub()

Enfin le code marche juste pour la cellule "A1", je ne sais pas si tu veux faire çà pour plusieurs cellules...

Et là çà vérifira à chaque fois qu'il y a une modification de la feuille..

bon je suis vraiment nulle
ça marche pas..
c'est pas grave je vais rester sur la solution que j'ai dit plus haut.
merci quand même.

Le code qui marche :

Private Sub Worksheet_Change(ByVal Target As Excel.Range)

Dim objFeuille As Worksheet, objPict As Picture

If Worksheets("Feuil1").Range("A4").Value >= 10 Then
Set objFeuille = ActiveSheet
Set objPict = objFeuille.Pictures.Insert("C:\Temp\signature_lotus_fichiers\image001.gif")
With objPict
.Left = Range("G2").Left
.Top = Range("G2").Top
End With
Else
Set objFeuille = ActiveSheet
Set objPict = objFeuille.Pictures.Insert("adresse_complete_de_l_image_desiree_2")
With objPict
.Left = Range("G2").Left
.Top = Range("G2").Top
End With
End If
End Sub

--> modifer l'emplacement de l'image ...
@+

Salut Clorent,

merci pour ton code, il marche très bien. en revanche en cas de modification des chiffres, il ne change pas l'image qui apparaît dans la cellule mais en rajoute une par dessus.
comment faut il faire pour que l'image affichée soit changée en cas de changement sans avoir a effacer l'image précédente afin de ne pas se retrouver avec des images superposées dans la même case?
merci encore pour ton aide

fabrice

On peut ajouter ça en début de fonction :

Set objFeuille = ActiveSheet
objFeuille.Pictures.Delete

Ca efface toutes les images de ta feuille

d'ou l'utilisation de la fonction décaler en fait

Mon problème était complexe, il ne s'agissait pas de faire apparaître 2 images différentes mais 5 et les fonctions SI c'est pénible

Donc j'ai fait un tableau dans lequel je fait des rechercheV et la fonction trouve toute seule qu'il s'agit d'interval de recherche avec l'argument Valeur proche a VRAI

Donc je lui fait me renvoyer un nombre compris entre 0 et 4 pour l'occasion qui j'incorpore dans une fonction décaler
nommée Image_selection (menu insertion > nom > définir) et du coup ça marche


Bref, plus d'explication a celui que le souhaite :p

Salut Enio...

Je fonctionne actuellement sous la version 2007 d'excel. En suivant ce topic, je reste sur ta fin =)
Oui, je ne suis pas à l'aise avec toutes ces fontions de macros... alors je me suis arrêté sur tes dernières lignes. Je suis (du moins si j'ai bien compris) dans un cas similaire au tient. Oui, je travaille sur un doc pour ma boîte sur la gestion automatic de nos confections de Lots.

Pour faire claire et simple, je prend une ref. de base: B1 et associés par 2 devient B2.
En demandant donc B2 à Excel, il me sort à la fin TOUT le listing dont j'ai besoin EXCEPTE le "sticker" que j'aimerai voir apparaître également. Je ne sais donc pas comment jongler entre les rechercheV et les images!!! Je ne sais pas s'il existe via Excel une fonction qui jointerai la RechercheV avec une image, sans "SI POSSIBLE" utiliser de macros car ce langage là dépasse de loin mes compétences sur le domaine =(

Merci en tout cas pour les lumières que tu (ou toute autre personne compétente) pourrais m'apporter!!!

Fonction décaler et images, je suis trés interressé par la fin de ton explication, comment lier une référence de cellules à une image

merci beaucoup pour ton aide