Insérer image selon valeur cellule

Version imprimable

Bonjour à tous,

J'utilise le code qui suit pour insérer une image sur ma feuille suivant la valeur d'une cellule.

Il fonctionne très bien lorsque la cellule N8 contient une liste déroulante : lors de la sélection de ma valeur dans cette liste, l'image se met à jour parfaitement.

Mais je souhaite l'utiliser également avec une cellule N8 qui récupère une valeur de liste déroulante via un collage avec liaison. Et là ça ne fonctionne plus, lorsque la valeur change dans ma cellule N8 l'image ne se met pas à jour.

Que dois-je modifier dans mon code pour que ça fonctionne également dans ce cas ?

Merci par avance pour votre aide ;)
2lester
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("N8:N8")) Is Nothing Then ChDir ActiveWorkbook.Path If [N8] = 1 Then nomImage = "1erArrondissement.gif" If [N8] = 2 Then nomImage = "2eArrondissement.gif" If [N8] = 3 Then nomImage = "3eArrondissement.gif" On Error Resume Next ActiveSheet.Shapes("monimage").Delete Range("E16").Select monimage = ActiveSheet.Pictures.Insert(nomImage).Select Selection.Name = "monimage" Target.Select End If End Sub

Bonjour,

Et de cette façon ?

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
 
Sub Worksheet_Change(ByVal Target As Range)
 
    Dim Fe As Worksheet
    Dim S As Shape
    Dim nomImage As String
 
    If Target.Address(0, 0) = "N8" Then
 
        Set Fe = ActiveSheet
 
        On Error Resume Next
        Fe.Shapes("MonImage").Delete
 
        nomImage = Choose(Target.Value, "1erArrondissement.gif", "2eArrondissement.gif", "3eArrondissement.gif")
 
        Set S = Fe.Shapes.AddPicture(ThisWorkbook.Path & nomImage, _
                                     0, _
                                     -1, _
                                     Range("E16").Left, _
                                     Range("E16").Top, _
                                     200, _
                                     200)
 
        S.Name = "MonImage"
 
    End If
 
End Sub

Hervé.

15/12/2012, 18h30
patricktoulon

Bonjour,

Hervé je ne connaissais pas la fonction "choose", très intéressant pour remplacer une condition "iif" pour avoir plus de 2 choix possibles :ccool::ccool::ccool:

Merci

Au plaisir
11/01/2013, 23h42
2lester

Bonjour Hervé,

Tout d'abord je tiens à m'excuser de réagir aussi tard à ta réponse. Habituellement je reçois un mail m'indiquant que j'ai reçu une réponse et là que nenni... :(

Dans la solution que tu proposes, qu'est-ce qui lie la valeur que prendra ma cellule à l'image associée ? En d'autres mots qu'est-ce qui fait que lorsque la valeur de ma cellule sera "1" par exemple, c'est l'image "1erArrondissement.gif" qui viendra s'afficher ?

Merci encore pour ton aide (et bonne année)
12/01/2013, 11h48
Theze

Bonjour,

La fonction CHOIX (Choose) retourne la valeur indiquée par la position ordinale du premier argument c'est à dire que si la valeur de la cellule (Target.Value) est égale à 1, la fonction retourne "1erArrondissement.gif" et l'affecte à la variable "nomImage" et ainsi de suite. Il y a erreur si le premier argument est inférieur à 1 et si il est supérieur aux nombre d'arguments qui peuvent être retournés. Si la valeur contient des décimales, elles sont ignorées.

Hervé.
20/01/2013, 14h53
2lester

Bonjour Hervé,

C'est parfait ça fonctionne très bien.
Merci !!!