Discussion :

[chamus]

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

[SfJ5Rpw8]

une simple concaténation de chaine ... du genre :

Code :

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

1
2
3

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

faudrai peu-être au préalable tester l'existence du fichier gif... par un DIR...

[chamus]

ok merci beaucoup

juste par curiosité est ce qu il existe une facon simple de coder que l insertion de ton image se face en plein milieu de ta cellule.

Dans mon cas je suis pas géné parceque meme si j ai plein d image differentes je n ai que 3 format differents different qui apparaisse ds le nom de mon image :
le nom de toutes les images au format 1 se termine par "2.gif", par "1.gif" au format 2 et "5.gif" au format 3
donc je m en sort avec le code suivant :

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
Sub test()
'
Dim reponse As String
reponse = InputBox("nom de l image ?")
 
ActiveCell.Select
ActiveSheet.Pictures.Insert( _
        "C:\DossierA\Image\" & reponse & ".gif").Select
Dim nom As String
nom = "C:\DossierA\Image\" & reponse & ".gif"
     If Right(nom, 5) = "1.gif" Then
        With Selection
         .ShapeRange.IncrementTop 49.5
         .ShapeRange.IncrementLeft 7.5
         End With
    ElseIf Right(nom, 5) = "2.gif" Then
        With Selection
        .ShapeRange.IncrementTop 15
        .ShapeRange.IncrementLeft 3
        End With
    ElseIf Right(nom, 5) = "5.gif" Then
        With Selection
        .ShapeRange.IncrementLeft 15
        .ShapeRange.IncrementTop 96
        End With
    End If
End Sub

mais si j avais eu plein de format differents j aurais eu du mal a tout centrer.

meilleurs veux,
chamus.

[SfJ5Rpw8]

tiens pour centrer inspire toi de cela :

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
 
 
Dim c As Range
Set c = ActiveCell
Dim p As Picture
Dim r As Double
Set p = c.Parent.Pictures.Insert("dvp\a5-rap.gif")
Debug.Print "bon maintenant il n'y as plus qu'as effectuer un petit calcul pour le centrage !!"
Debug.Print c.Height & " x " & c.Width
Debug.Print p.Height & " x " & p.Width
r = (c.Width / 2) - (p.Width / 2)
Debug.Print r
If r > 0 Then
  p.ShapeRange.IncrementLeft r
End If
r = (c.Height / 2) - (p.Height / 2)
Debug.Print r
If r > 0 Then
  p.ShapeRange.IncrementTop r
End If

[chamus]

Excellent !

vu l etat de mes connaissances il m en faut peut etre peu,
mais je trouve ce code génial bbil

merci bcp