Affichage d'un commentaire dans une cellule deporté

[Adrien39]

Bonjour à tous !

J'ai un problème et je fais appel à vous.
Dans mon fichier ci-joint, il a une liste de photo avec en commentaire la photo correspondante.
Mon objectif est de faire apparaitre dans une autre cellule, l'image de la photo recherché.

Merci beaucoup pour votre aide

 

[Lone-wolf]

Bonjour adrien, le Forum

D'abord, titre de la demande: Affichage d'un commentaire dans une cellule.

Puis, Mon objectif est de faire apparaitre dans une autre cellule, l'image de la photo recherchée.

Dans le fichier:
FAIRE APPARAITRE ICI LE COMMENTAIRE DE LA CELLULE RECHERCHEE AVEC LE BOUTON CI-DESSUS.

Si tes photos sont dans un répertoire bien défini, il faut ajouter le chemin du répertoire dans la macro. Ensuite (et je l'éspère), si tes photos se nomment: photo1 - photo2 - photo3 et qu'elles ont la même extension (.jpg, .gif, .bmp) il faut ajouter celle-ci . Exemple

chemin: "C:\Utilisateurs\adrien\Photos\"
nom = chemin & Rep & ".jpg"

R = xxx.Find(nom)

Si tu veux faire apparaître l'image dans le commentaire, voici un lien: Jacques Boisgontier
Et changer A65000 par Range("a" & Rows.Count).

 

[Lone-wolf]

Re

La macro est à adapter.

Sub auto_open()
Dim chemin$, rep$, c As Range, cm As Comment, nom
Dim pict As IPictureDisp

    chemin = "D:\Divers\Images XLD\"    ' Adapter
    nom = InputBox("Entrer le nom de l'image recherchée")
    rep = chemin & nom & ".gif"
    If nom <> 0 And Dir(rep) <> "" Then
       Set pict = LoadPicture(rep)
        Set c = ActiveCell
        c.ClearComments
        c.AddComment
        Set cm = c.Comment.Shape.Parent
        cm.Shape.Name = nom
        c.Offset(0, 1) = cm.Shape.Name  ' c.Offset(0, 1) à changer
        c.Comment.Shape.Fill.UserPicture rep
        c.Comment.Shape.Height = pict.Height / 45
        c.Comment.Shape.Width = pict.Width / 55
    End If
End Sub