Image en commentaire - comment faire?

Bonjour,

Voyez ce fichier,

Edit de Nad : suppression du lien ; il pointe sur un site et non sur un fichier

Comment faire pour qu'en commentaire il y ait une image?

Code :

Sub CommentImages()
  repertoire = ThisWorkbook.Path & "\"
  For Each c In Range("B2", [B65000].End(xlUp))
    c.ClearComments
    c.AddComment
    c.Comment.Text Text:=CStr(c)
    fichier = CStr(c.Value) & ".jpg"
    If Dir(repertoire & fichier) <> "" Then
       c.Comment.Shape.Fill.UserPicture repertoire & fichier
       taille = TaillePixelsImage(repertoire, fichier)
       c.Comment.Shape.Height = Val(Split(taille, "x")(1))
       c.Comment.Shape.Width = Val(Split(taille, "x")(0))
       c.Comment.Shape.ScaleHeight 0.5, msoFalse, msoScaleFromTopLeft
       c.Comment.Shape.ScaleWidth 0.5, msoFalse, msoScaleFromTopLeft
    End If
  Next
End Sub

Merci par avance.

Bonjour

Si tu en a qu'une, il te suffit de faire:

un click droit sur la cellule,

modifier le commentaire,

faire un click droit sur la bordure

format du commentaire

onglet couleurs et traits

choisir, remplissage, motif et texture

onglet image,

selectionner une image

Merci. Mais moi ça ne veut pas.

c'est grisé.

Bonjour

Je ne pense pas avoir oublié quelque chose,

Voici ton fichier