XL 2013 Insertion commantaire avec photo avec condition

[nicroq]

Bonjour a tous

Je sollicite votre aide afin de m'aider à inserer un commentaire avec une image.
Dans le fichier joint se trouve un tableau avec en ligne des dates et en colonne des taches à faire.
Je souhaiterai par VBA ajouter un commentaire à la date associé au jalon (ici le 14/06/2020) l'image du jalon que j'ai crée en cellule A5.

Cela serait il possible?
merci d'avance
Cordialement

 

[sylvanu]

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.

 

[nicroq]

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

 

[nicroq]

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

 

[nicroq]

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!

 

[nicroq]

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