Lier une image à une ligne d'une feuille excel

Résolu/Fermé

Jalalrid Messages postés 50 Date d'inscription mercredi 16 juillet 2014 Statut Membre Dernière intervention 31 mars 2020 - Modifié par Jalalrid le 29/06/2015 à 10:35
Jalalrid Messages postés 50 Date d'inscription mercredi 16 juillet 2014 Statut Membre Dernière intervention 31 mars 2020 - 8 juil. 2015 à 10:51

Bonjour,
j'aimerais insérer plusieurs photos sur une feuille excel par exemple la feuille 1 (ça je sais le faire).
Je voudrais lier chacune de ces photos à une ligne particulière dans la feuille 2 de telle sorte que si je clique sur la photo je vais à l'information correspondante dans la feuille 2 à la ligne concernée. Serait il possible de le faire?
Si oui comment? Aussi cela peut il être automatique c'est à dire que si à chaque fois que j'ajoute une photo, et que je clique sur celle ci elle me renvoie à ligne suivante.
Merci d'avance pour votre aide.

A voir également:

Lier une image à une ligne d'une feuille excel
Aller à la ligne excel - Guide
Créer une liste déroulante excel - Guide
Déplacer une colonne excel - Guide
Figer une ligne excel - Guide
Comment agrandir une image - Guide

8 réponses

Réponse 1 / 8

cs_Le Pivert Messages postés 7903 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 11 mars 2024 728
29 juin 2015 à 19:03

Bonjour,

Voir ceci:

http://boisgontierjacques.free.fr/pages_site/lesimages.htm#InsertionImage

Jalalrid Messages postés 50 Date d'inscription mercredi 16 juillet 2014 Statut Membre Dernière intervention 31 mars 2020
30 juin 2015 à 16:16

Merci pour votre réponse.
Je ne suis pas vraiment un as de la programmation, Pourriez vous m'indiquer quel code
fera mon bonheur.
Merci à vous!

Réponse 2 / 8

cs_Le Pivert Messages postés 7903 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 11 mars 2024 728
30 juin 2015 à 17:33

Faire Alt F11 pour accéder a l'éditeur, ensuite sélectionner la feuille qui recevra les images.
Mettre ce code:

Option Explicit
Dim Image, nomimage As String
Dim a, c
Sub ImportImage()
  Image = Application.GetOpenFilename("Fichiers Gif ou Jpg ,*.gif;*.jpg")
  If Image <> False Then
    a = Split(Image, "\")
    nomimage = a(UBound(a))
    Set c = ActiveCell
    With ActiveSheet
      .Pictures.Insert(Image).Name = nomimage
      .Shapes(nomimage).Height = c.Height
      .Shapes(nomimage).Width = c.Width
      .Shapes(nomimage).Left = c.Left
      .Shapes(nomimage).Top = c.Top
      .Shapes(nomimage).LockAspectRatio = msoTrue
    End With
  End If
End Sub
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
ImportImage
End Sub

A chaque double clic sur une cellule une boite de dialogue demandera de choisir une image pour l'insérer sur la cellule sélectionnée.

Ensuite il ne restera qu' a faire un clic droit sur l'image:
Lien Hypertexte
Emplacement dans ce document

Voilà

Jalalrid Messages postés 50 Date d'inscription mercredi 16 juillet 2014 Statut Membre Dernière intervention 31 mars 2020
30 juin 2015 à 18:37

Merci pour ce code.
Il fonctionne que quand je clique sur la flèche exécuter sub/userform de la fenêtre de vba. Le double clic ne fonctionne pas. Serait il possible de remplacer le double clic par un raccourci clavier comme ctrl+d

Réponse 3 / 8

cs_Le Pivert Messages postés 7903 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 11 mars 2024 728
30 juin 2015 à 18:46

Il ne faut pas mettre ce code dans une UserForm!
Sélectionner la feuille concernée en haut à gauche dans l'éditeur
En haut s'affiche General, cliquez sur Worksheet
A droite sélectionner: BeforeDoubleClick et mettre ce code:

Option Explicit
Dim Image, nomimage As String
Dim a, c, position
Sub ImportImage()
  Image = Application.GetOpenFilename("Fichiers Gif ou Jpg ,*.gif;*.jpg")
  If Image <> False Then
    a = Split(Image, "\")
    nomimage = a(UBound(a))
    Set c = ActiveCell
    With ActiveSheet
      .Pictures.Insert(Image).Name = nomimage
      .Shapes(nomimage).Height = c.Height
      .Shapes(nomimage).Width = c.Width
      .Shapes(nomimage).Left = c.Left
      .Shapes(nomimage).Top = c.Top
      .Shapes(nomimage).LockAspectRatio = msoTrue
      .Shapes(nomimage).Select
   End With
   End If
End Sub
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
position = Target.Address
ImportImage
ActiveSheet.Hyperlinks.Add Anchor:=Selection.ShapeRange.Item(1), Address:= _
        "", SubAddress:="Feuil2!" & position
End Sub

j'ai ajouter le lien hypertexte automatique

Réponse 4 / 8

cs_Le Pivert Messages postés 7903 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 11 mars 2024 728
30 juin 2015 à 19:11

[http://static.commentcamarche.net/www.commentcamarche.net/pictures/QzhrOtPJLUR1p1GprZBfpsJdOJimK0nn3ZLtXCIuk5je1JjCbeJuWMTHIRW0aZJL-capture.png [image:http://st

atic.commentcamarche.net/www.commentcamarche.net/pictures/QzhrOtPJLUR1p1GprZBfpsJdOJimK0nn3ZLtXCIuk5je1JjCbeJuWMTHIRW0aZJL-capture-s-.png|1024px||center]|fancy]

Jalalrid Messages postés 50 Date d'inscription mercredi 16 juillet 2014 Statut Membre Dernière intervention 31 mars 2020
30 juin 2015 à 19:29

Merci. Ce code est super. y a t il la possibilité de remplacer le double clic par un raccourci clavier (ctrl+d) (car j'utilise le double clic pour rentrer les données dans une cellule lors de la saisie) et faire en sorte que même si je ne choisis pas de fichier le code ne se plante pas (ça marque "erreur d'exécution 483" quand je ne choisis pas de fichier)
Merci pour ce coup de main.

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question

Réponse 5 / 8

cs_Le Pivert Messages postés 7903 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 11 mars 2024 728
30 juin 2015 à 20:46

Je vois cela demain pour le raccourci.
Pour l'erreur "erreur d'exécution 483" en attendant

Mets ceci:

Sub ImportImage()
On Error Resume Next 'ajouter cela
  Image = Application.GetOpenFilename("Fichiers Gif ou Jpg ,*.gif;*.jpg")
  If Image <> False Then
    a = Split(Image, "\")
    nomimage = a(UBound(a))
    Set c = ActiveCell
    With ActiveSheet
      .Pictures.Insert(Image).Name = nomimage
      .Shapes(nomimage).Height = c.Height
      .Shapes(nomimage).Width = c.Width
      .Shapes(nomimage).Left = c.Left
      .Shapes(nomimage).Top = c.Top
      .Shapes(nomimage).LockAspectRatio = msoTrue
      .Shapes(nomimage).Select
   End With
   End If
End Sub

Réponse 6 / 8

cs_Le Pivert Messages postés 7903 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 11 mars 2024 728
1 juil. 2015 à 08:19

Pour le raccourci clavier changer:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
position = Target.Address
ImportImage
ActiveSheet.Hyperlinks.Add Anchor:=Selection.ShapeRange.Item(1), Address:= _
        "", SubAddress:="Feuil2!" & position
End Sub

Private Sub Insererimage()
On Error Resume Next  
position = Target.Address
ImportImage
ActiveSheet.Hyperlinks.Add Anchor:=Selection.ShapeRange.Item(1), Address:= _
        "", SubAddress:="Feuil2!" & position
End Sub

Ensuite le raccourci clavier, il va falloir te le faire en consultant ce site.
Tu le mets pour la macro: Insererimage

http://www.info-3000.com/vbvba/raccourciclavier.php

cs_Le Pivert Messages postés 7903 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 11 mars 2024 728
1 juil. 2015 à 08:57

J'ai oublié une chose la position de la cellule cliquée:
mettre ceci:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
position = Target.Address
End Sub

et changer ceci:

Private Sub Insererimage()
On Error Resume Next
ImportImage
ActiveSheet.Hyperlinks.Add Anchor:=Selection.ShapeRange.Item(1), Address:= _
        "", SubAddress:="Feuil2!" & position
 End Sub

cs_Le Pivert Messages postés 7903 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 11 mars 2024 728
1 juil. 2015 à 10:44

J'ai testé la manip pour le raccourci, il faut mettre:

Sub Insererimage()
On Error Resume Next
ImportImage
ActiveSheet.Hyperlinks.Add Anchor:=Selection.ShapeRange.Item(1), Address:= _
        "", SubAddress:="Feuil2!" & position
 End Sub

pour pouvoir voir la macro

Jalalrid Messages postés 50 Date d'inscription mercredi 16 juillet 2014 Statut Membre Dernière intervention 31 mars 2020 > cs_Le Pivert Messages postés 7903 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 11 mars 2024
2 juil. 2015 à 10:22

Merci pour toutes ces macros mais je m'y perds actuellement.
Serait il possible d'avoir une seule avec toutes les dernières modifications.
Merci pour votre compréhension.

Réponse 7 / 8

cs_Le Pivert Messages postés 7903 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 11 mars 2024 728
2 juil. 2015 à 10:35

Voila un exemple avec raccourci clavier:

http://www.cjoint.com/c/EGciH7DkMkQ

Jalalrid Messages postés 50 Date d'inscription mercredi 16 juillet 2014 Statut Membre Dernière intervention 31 mars 2020
2 juil. 2015 à 10:48

Ce classeur est super génial.
Bon travail. Merci. Si possible j'aimerais aussi à programmer comme ça (c'est quoi les ressources dispo pour arriver à ce niveau en vba??))
Encore merci.

cs_Le Pivert Messages postés 7903 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 11 mars 2024 728
2 juil. 2015 à 10:56

Voici un exemple:

http://dj.joss.free.fr/index.htm

et pour chaque question particulière, il y a Google

Jalalrid > cs_Le Pivert Messages postés 7903 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 11 mars 2024
6 juil. 2015 à 18:03

Merci.
J'ai copié le code dans une nouvelle feuille de calcul. Mais le raccourci ne fonctionne pas sur cette nouvelle feuille. Pourrais je savoir comment je m'y prends pour insérer ce raccourci sur ma nouvelle feuille de calcul?

Réponse 8 / 8

cs_Le Pivert Messages postés 7903 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 11 mars 2024 728
6 juil. 2015 à 18:05

Je t'ai donné le lien précédemment

http://www.info-3000.com/vbvba/raccourciclavier.php

Jalalrid Messages postés 50 Date d'inscription mercredi 16 juillet 2014 Statut Membre Dernière intervention 31 mars 2020
Modifié par Jalalrid le 8/07/2015 à 10:54

J'ai saisi le code suivant pour réaliser un formulaire et le problème que j'ai c'est qu'il n'affiche pas les valeurs correctes dans les colonnes que je voudrais. Voici le lien vers cette feuille de calcul: http://www.cjoint.com/c/EGiiXVIcnlT
Pourriez vous m'aider avec ce code pour finaliser mon fichier? Serait il possible aussi d'ajouter la colonne B qui doit comporter les images à ce formulaire afin que le choix de l'image à insérer se fasse directement à partir de ce formulaire?
Merci d'avance.

Discussions similaires

Retrouver l'image originale après avoir fait des modifications ?

Discussions similaires

Newsletters