XL 2016 tableau avec photos

[stamarakis]

bonjour a tous
je voudrais realiser un tableau pour mon travail !
voila ce que je voudrais faire !
j ai pris des photos numerote de 1 a 100 ! je voudrais que sur la feuille 1 , lorsque je clic sur une cellule qui correspond a la photo 1 par exemple , que la photo apparaisse !
la feuille 1 prend en compte 3 niveaux de couleur : rouge , bleu et vert !
j espere etre assez clair sinon j essairais de m expliquer un peu mieux !
merci d avance

 

[job75]

Bonjour stamarakis,

Pour l'affichage de photos il suffit d'ouvrir le fichier image (.jpg, .gif...) adéquat, par lien hypertexte par exemple.

j espere etre assez clair sinon j essairais de m expliquer un peu mieux !

Ce sera nécessaire car que faut-il faire avec ça :

la feuille 1 prend en compte 3 niveaux de couleur : rouge , bleu et vert !

A+

 

[Astragor]

Hello,
Voila un petit bout de code que j'ai rédigé il y a quelques années qui correspond à peut prés à ce que tu recherche. En fait ca rajoute la photo en commentaire dans la cellule de ton tableau. Quand tu passe la souris tu la vois.

Sub Ajout_images()
'
' Ajoute des images sous forme de commentaire
'

'
 Dim C As Range, Chemin As String
    Chemin = InputBox("A quel emplacement se trouvent les images ?", "Chemin des images")
    For Each C In Selection
        If C.Value <> "" And Dir(Chemin & C.Value) <> "" Then
            C.AddComment
            C.Comment.Visible = False
            C.Comment.Shape.Fill.UserPicture Chemin + C.Value
            C.Comment.Shape.Height = 300
            C.Comment.Shape.Width = 300
        End If
    Next C
    
End Sub

Comment ca marche : tu selectionne les cellule qui contienne le nom de l'image (avec son extension) ensuite tu lance la macro. Elle va te demander le chemin des images. Tu le colle dans la boite de dialogue. Et toutes les images présentes dans le dossier vont être mis en commentaire des cellules

 

[stamarakis]

Bonjour stamarakis,

Pour l'affichage de photos il suffit d'ouvrir le fichier image (.jpg, .gif...) adéquat, par lien hypertexte par exemple.

Ce sera nécessaire car que faut-il faire avec ça :

A+

ok je vais essayer avec les liens hyper texte

merci

 

[stamarakis]

Hello,
Voila un petit bout de code que j'ai rédigé il y a quelques années qui correspond à peut prés à ce que tu recherche. En fait ca rajoute la photo en commentaire dans la cellule de ton tableau. Quand tu passe la souris tu la vois.

Sub Ajout_images()
'
' Ajoute des images sous forme de commentaire
'

'
Dim C As Range, Chemin As String
    Chemin = InputBox("A quel emplacement se trouvent les images ?", "Chemin des images")
    For Each C In Selection
        If C.Value <> "" And Dir(Chemin & C.Value) <> "" Then
            C.AddComment
            C.Comment.Visible = False
            C.Comment.Shape.Fill.UserPicture Chemin + C.Value
            C.Comment.Shape.Height = 300
            C.Comment.Shape.Width = 300
        End If
    Next C
   
End Sub

Comment ca marche : tu selectionne les cellule qui contienne le nom de l'image (avec son extension) ensuite tu lance la macro. Elle va te demander le chemin des images. Tu le colle dans la boite de dialogue. Et toutes les images présentes dans le dossier vont être mis en commentaire des cellules

alors ca c est super ! merci beaucoup
je vais essayer en suivant tes instructions
merci