Insertion image depuis une macro liste

[Georges]

Bonjour,

J'ai une macro qui me permet de voir s'afficher un menu déroulant dans chacune des cellules repondant à mes conditions... J'aimerais qu'à partir de mon choix, une image s'affiche dans la cellule juste en dessous... Quelq'un pourrait t il m'aider à compléter mon code... Sachez aussi que mes images stockées sont dans le même repertoire...

Voici le code de ma macro :

Private Sub Worksheet_Change(ByVal Target As Range)
' Activé au changement de sélection de cellule seulement en colonne 1 et 2 et en dessous de la ligne 13

With ActiveCell.Validation
On Error Resume Next
If .InCellDropdown = True Then
Select Case .Formula1
Case '=SousMatière'
If WorksheetFunction.CountIf(Worksheets('Base').Range('Matière'), Target) = 1 Then
SendKeys '%{DOWN}'
End If
Case '=Solution'
If WorksheetFunction.CountIf(Worksheets('Base').Range('$J$1:$AV$8'), Target) = 0 Then
SendKeys '%{DOWN}'
End If
End Select
End If
End With
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
' Activé au changement de sélection de cellule seulement en colonne 1 et 2 et en dessous de la ligne 13
With ActiveCell.Validation
On Error Resume Next
If .InCellDropdown = True Then
Select Case .Formula1
Case '=SousMatière'
If WorksheetFunction.CountIf(Worksheets('Base').Range('Matière'), Target) = 0 Then
SendKeys '%{DOWN}'
End If
Case '=Solution'
If WorksheetFunction.CountIf(Worksheets('Base').Range('$J$1:$AV$8'), Target) = 0 Then
SendKeys '%{DOWN}'
End If
End Select
End If
End With
End Sub

J'ai bien essayé de joindre cette macro mais rien n'y fait :
Sub InserImage()
Dim nom$
Dim fichimg$

[A7].Select

With ActiveWindow
y = .Selection.Width
End With

On Error Resume Next
nom = Selection.Offset(0, -1).Value
fichimg = ActiveWorkbook.Path & '\\' & nom & '.jpg'
ActiveSheet.Pictures.Insert(fichimg).Select
Selection.ShapeRange.Width = y
End Sub

MERCI
MERCI
MERCI

 

[Georges]

Bonjour,

Quelqu'un peut-il m'aider s'il vous plaît ??

 

[Georges]

A l'aide

Merci

 

[Georges]

Bonjour,

Quelqu'un peut-il me donner un coup de main s'il vous plaît...

Dîtes moi au moins si je dois reformuler mon problème... Peut-être n'est t il pas assez clair...


Merci et bonne journée à tous