Discussion :

[m0urad]

Bonjour,

J'aurai besoin d'une petite aide:

J'ai dans ma feuille excel une colonne ( colonne A ) avec dans chaque cellule l'adresse d'une image differente à chaque cellule, les images étant toutes contenues dans un même dossier.

Je souhaiterai dans l'immédiat que l'image s'affiche dans la colonne d'a coté n ( colonne B ) a chaque fois que je clique sur la cellule.

Est ce possible ? Si oui quel outil utiliseriez vous ?

Merci d'avance pour l'attention porté

[m0urad]

Merci pour ton aide soubichat, ton code m'a fait avancé il me reste plus qu'a resoudre quelques difficultés pour l'adapté

Voila ce que donne mon code pour l'instant:

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
 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim fichier As String
    Dim Sh As Shape
 
    If ActiveCell.Column < 2 Or ActiveCell.Column > 2 Then Exit Sub   
 
    ' Efface l'ancienne image
    For Each Sh In Worksheets("Presentation").Shapes
        If Sh.Type = msoPicture Then Sh.Delete
    Next
 
    ' Variables pour les chemins des dossiers
    fichier = Sheets("Resultat").Range("A6").Value & ".jpg"
    chemin = "T:\...\Photos\"
 
    ' Insertion de l'image
    Range("E5").Select
    ActiveSheet.Pictures.Insert(chemin & fichier).Select
        Selection.ShapeRange.LockAspectRatio = msoTrue
        Selection.ShapeRange.Height = 300
 
End Sub

Quelques questions auxquelles j'ai du mal répondre :

1) Comment changer la condition IF pour que ce ne soit pas une colonne qu'on selectionne mais une cellule ou un click sur un bouton ?

Resolu: j'ai juste copiez le code dans un userform avec click

2) Quelle serait la proprieté pour établir une taille maximum pour notre image ?

3) sur excel 2003, pas de soucis l'image se place en E5 par contre sur excel 2007 il se place n'importe ou, comment y remedier ?

Merci d'avance pour tout conseil