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é

[soubichat]

Bonjour,

je te propose ce code à coller dans le code de la feuille en question :

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    'exit sub
    Dim fichier, chemin As String
    If ActiveCell.Column > 1 Then Exit Sub
    fichier = ActiveCell.Value
    If fichier = "" Then Exit Sub
    chemin = "C:\" 'à modifier
    ActiveCell.Offset(0, 1).Select
    ActiveSheet.Pictures.Insert(chemin & fichier).Select
End Sub

Je ne sais pas pourquoi tu veux ajouter des images, mais si tu veux faire un trombinoscope dans excel 2003, ne te casse pas la tête. Tu peux télécharger trombi facile...
http://trombinoscopefacile.jimdo.com

[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

[Krovax]

Question 1

Code :

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

If ActiveCell.Column < 2 Or ActiveCell.Column > 2 Then Exit Sub

Tu comprend le test?
on regarde le numéro de la colonne
Un autre teste pour une cellule et en utilisant target (qui est la pour ca)

Code :

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

if intersect(Target,range("Taplage")) is nothing then exit sub

Pour le clique sur un bouton pas moyen de changer le if.
Ta macro se déclanche quand on change la selection. Si tu veux la déclencher lors du clique sur un bouton il faut la mettre dans le code du bouton.


Taille maximale tu parles de quel taille?


Pour 2007 jamais importer d'image et pas de version sous la main pour tester désolé

[m0urad]

Pour la taille c'est celle de l'image, je souhaiterai , que lorsque ma macro va inserer l'image celle-ci ne depasse pas une hauteur et une largeur maximale.

Merci pour ton aide

[Krovax]

Tu ne veux pas la redimentionner ? pouravoir les dimention regarde les propriété Width et Height.

[m0urad]

Merci pour ton aide j'ai rajouter ce qu'il me manquait.
A bientot pour un autre soucie ....