bonjour a tous,

j ai ecrit une petite macro qui insere dans les cellule de mon tableau les images de mon choix apres m avoir demandé via une inputbox le nom de celle que je veux inserer:

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
Sub image()
 
'
Dim reponse As String
reponse = InputBox("nom de l image ?")
 
If reponse = "b2" Then
ActiveCell.Select
    ActiveSheet.Pictures.Insert( _
        "D:\DossierA\image\b2.gif").Select
ElseIf reponse = "b1" Then
ActiveCell.Select
    ActiveSheet.Pictures.Insert( _
        "D:\DossierA\image\b1.gif").Select
ElseIf reponse = "a025" Then
ActiveCell.Select
    ActiveSheet.Pictures.Insert( _
        "D:\DossierA\image\a025.gif").Select
ElseIf......
Mon code est lourd et je repete autant de fois ElseIf que j ai d image.
je ne sais pas comment integrer la variable "reponse" dans l emplacement de l image

un truc du style:

ActiveCell.Select
ActiveSheet.Pictures.Insert( "D:\DossierA\image\reponse.gif").Select

me permettrait d eviter d ecrir 36 ElseIf
mais je sais pas comment integrer cette variable dans "le chemin de l image"

Comment vous faites dans ce cas la ? SVP