Question pour une image

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é :)

Bonjour,

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

Code:

---

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

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

Voila ce que donne mon code pour l'instant:

Code:

---

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

Question 1

Code:

---

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:

---

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é

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 :ccool:

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

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