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:
Mon code est lourd et je repete autant de fois ElseIf que j ai d image.
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......
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
Partager