XL 2013 Insertion commantaire avec photo avec condition

Bonjour Nicroq,
Je réponds à coté de la plaque, mais peut être une solution beaucoup moins lourde, c'est d'utiliser la police Wingdings. Voir PJ.
Ne pas oublier qu'après avoir mis des petits drapeaux, il faudra aller les retirer.

Merci pour votre reponse sylvanu,

cependant un jalon prend toute la colonne (dans l'exemple du fichier 14*06/2020) et donc faire apparaitre une commentaire avec l'image
sur la cellule 14/06/2020 conviendrai mieux à ce que je souhaite pouvoir observer sur un GANT qui est relativement long.
merci

Voila un code trouver sur boisgontierjacques

Sub InsèreImageCommentaireCelluleActive()
nf = Application.GetOpenFilename("Fichiers jpg,*.jpg")
If nf = False Then Exit Sub
ech = Application.InputBox("Echelle?", Type:=1, Default:=1)
If ech = 0 Then Exit Sub
With ActiveCell
.ClearComments
.AddComment
.Comment.Shape.Fill.UserPicture nf
p = InStrRev(nf, "\")
repertoire = Left(nf, p)
fichier = Mid(nf, p + 1)
taille = TaillePixelsImage(repertoire, fichier)
.Comment.Shape.Height = Val(Split(taille, "x")(1))
.Comment.Shape.Width = Val(Split(taille, "x")(0))
.Comment.Shape.ScaleHeight ech, msoFalse, msoScaleFromTopLeft
.Comment.Shape.ScaleWidth ech, msoFalse, msoScaleFromTopLeft
End With
End Sub

Function TaillePixelsImage(repertoire, fichier)
Set myShell = CreateObject("Shell.Application")
Set myFolder = myShell.Namespace(repertoire)
Set myFile = myFolder.Items.Item(fichier)
TaillePixelsImage = myFolder.GetDetailsOf(myFile, 26)
End Function

Cependant est ce possible de l'adapter pour que lorsque la date d'une cellule en E3 et Q3 est egale à la date du jalon, fasse apparaitre l'image dans le commentaire de la cellule K3 dans l'exmple.

Merci pour votre aide!

Re bonjour, je bloque car je n'arrive pas d'idée pour afficher le commentaire uniquement au cellule egale à la date du jalon...
Merci de votre soutien