Discussion :

[maxime68excel]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

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

[mach1974]

il faut insérer un hyperlink dans le commentaire

[laurent_ott]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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