MACRO VBA ajouter image en commentaires en choisissant la cellule

Version imprimable

Bonjour à tous,
Je suis un débutant en VBA et j'ai du mal à faire fonctionner la macro.
Je vous pose mon code ici :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
 
Sub Imgencommmentaire()
inputbox("Sélectionnez une cellule", Type=8)
With Application.FileDialog(msoFileDialogFilePicker)
         .AllowMultiSelect = False          'Uniquement 1 fichier
         .InitialFileName = CurDir
         .Filters.Clear
         .Filters.Add Description:="Images", Extensions:="*.jpg", Position:=1
         .Title = "Choix de l'image"
 
         If .Show = -1 Then TheFile = .SelectedItems(1) Else TheFile = 0
    End With
'No file selected
If TheFile = 0 Then
MsgBox ("J'te le dis, tu dois sélectionner une image !")
Exit Sub
End If
 
cellulechoisie = InputBox("Veuillez choisir une cellule")
'Type 8 ?
Range("cellulechoisie").AddComment
    Range("cellulechoisie").Comment.Visible = True
[cellulechoisie].Comment.Shape.Fill.UserPicture TheFile
End Sub

J'espère ne pas avoir créé de doublons, merci pour votre aide
PS: apparemment je ne sais pas comment montrer proprement mon code

27/07/2021, 16h42
laurent_ott

Bonjour.
Je ne suis pas persuadé qu'il est possible d'insérer une image en commentaire (en tout cas je n'y arrive pas avec Excel 2016).
Si vous y arrivez : enregistrez le code avec l'enregistreur de macro pour avoir la trame.
Cordialement.
27/07/2021, 21h49
mach1974

hyperlink dans le commentaire

il faut insérer un hyperlink dans le commentaire

Bonjour.
Le sujet me turlupinait (jamais utilisé ni vu cette faculté), alors j'ai fait une recherche sur le site et trouvé cette discussion qui donne un code pour insérer une image dans le commentaire de la cellule active, donc à adapter au besoin.
La taille de l'image peut être modifiée avec Height et Width (ici 250/250 pour un exemple):

Source : https://www.developpez.net/forums/d1...ire-via-macro/
Code:

1 2 3 4 5 6 7 8 9 10 11 12 Sub InsèreImageCommentaireCelluleActive() Image = Application.GetOpenFilename("Fichiers jpg,*.jpg") If Image <> False Then With ActiveCell .ClearComments .AddComment .Comment.Shape.Fill.UserPicture Image .Comment.Shape.Height = 250 .Comment.Shape.Width = 250 End With End If End Sub