pascal21
XLDnaute Barbatruc
Code:
Private Sub Worksheet_Calculate()
If Range("f5") <> "" Then
repertoire = ThisWorkbook.Path & "\"
For Each c In Range("f5")
c.ClearComments
c.AddComment
c.Comment.Text Text:=c.Value
c.Comment.Shape.Fill.UserPicture repertoire & c.Value & ".jpg"
c.Comment.Shape.Height = 200
c.Comment.Shape.Width = 200
c.Comment.Shape.ScaleHeight 1.2, msoFalse, msoScaleFromTopLeft
Next c
End If
ce code de Mr Boisgontier (merci à lui), permet d'afficher une image dans un commentaire en fonction du contenu de la cellule (ici F5)
j'aimerais modifier pour que la macro ne se déclenche pas si F5 contient un x ou est vide
je ne trouve pas la syntaxe
je ne peux mettre un fichier exemple car pour fonctionner il faut créer un dossier contenant les images et le classeur
merci pour votre aide