veriti site des amis d'excel

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 ...