Affichage d'un commentaire dans une cellule deporté

Adrien39 · 25 Mai 2018

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 · 26 Mai 2018

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 · 26 Mai 2018

Re

La macro est à adapter.

VB:

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

Affichage d'un commentaire dans une cellule deporté

Adrien39

XLDnaute Nouveau

Lone-wolf

XLDnaute Barbatruc

Lone-wolf

XLDnaute Barbatruc

Discussions similaires