en activant cette macro ...
1) on vérifie la présence d'un commentaire dans la cellule active ... si oui on supprime
2) on ouvre la boite de dialogue "Ouvrir"
3)on insère l'image dans le commentaire de la cellule active ...
Code à placer dans un module
Option Explicit
'format image autorisé
Const ImgFileFormat = "Image Files (*.bmp;*.gif;*.tif;*.jpg;*.jpeg)," & _
"*bmp;*gif;*.tif;*.jpg;*.jpeg"
Sub AjoutImage()
'VeriTi
'http://www.excel.veriti.net
Dim Image As Variant
Dim Picture As String
'on vérifie si la cellule contient un commentaire
Set Image = ActiveCell.Comment
If Not Image Is Nothing Then ActiveCell.Comment.Delete
Set Image = Nothing
'ouverture boite de dialogue
Picture = Application.GetOpenFilename(ImgFileFormat)
'on insère l'image sélectionnée
With ActiveCell
.AddComment
.Comment.Visible = False
.Comment.Shape.Fill.Transparency = 0#
.Comment.Shape.Fill.UserPicture Picture
End With
End Sub
dans cette procédure il n'y a pas de test d'erreur, ce qui ne va pas manquer d'en créer si aucune sélection d'image n'est faite ... enfin le but ici, est forcément d'en sélectionner une ...