Discussion :

[2lester]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Theze]

Bonjour,

Et de cette façon ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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é.

[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

Merci

Au plaisir

[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)

[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é.

[2lester]

Bonjour Hervé,

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