Excel, commentaire(s) via macro, niveau de connaissance

[an1844]

Bonjour,

Une petite question qui devrait normalement ne vous demander qu’une réponse très courte…
Dans une feuille EXCEL, peut-on générer la réalisation d’un commentaire : « IMAGE (a la condition que l'image existe dans un fichier précis, sinon rien faire) » + « encadrement (couleur/épaisseur)» + « dimensionnement (proportionnel à l’image, mais avec des limites) + « son emplacement par rapport à la case (quelques soit le filtrage en cours et les Masquer/Afficher) »….

Si c’est possible ? OUI/NON
Si NON inutile d’aller plus loin.
Si OUI… j’imagine qu’il faut créer une macro …. ? OUI/NON
Si NON, merci de me mettre sur une piste.
Si OUI, comme je suis incapable de faire une macro (honnêtement j’en suis désolé), on me propose de m’apporter une (certaine) aide, soit…à la limite de « « choisir » » quelqu’un pour m’apporter cette aide….admettons un étudiant en stage.
Mais, quel devrait être le niveau en « macro » de cette aide ? :
- Amateur averti
- Bac Prof…on ne critique pas les Bac Prof…merci
- Licence
- Ingénieur
- ….contributeur averti sur Futura Sciences
Merci de votre attention.
A+
an1844
-----

[Stan_94]

Bonjour,
Ca doit être possible, via une macros + objet "Comment" mais pour l'image, ça risque de ne pas être simple.
Exemple de code pour insérer un commentaire texte simple en C16 :

    
Range("C16").AddComment
Range("C16").Comment.Visible = False
Range("C16").Comment.Text Text:="Commentaire"

Aprés il faut voir comment jouer avec l'objet "Shape" de "Comment" pour le suite...
Bon courage.

[Ikhar84]

Avec un petit code (remis en forme mais non testé):

Sub InsèreImageCommentaireCelluleActive()
    nf = Application.GetOpenFilename("Fichiers jpg,*.jpg")
    If nf = False Then Exit Sub 
    With ActiveCell
        .ClearComments
        .AddComment
        .Comment.Shape.Fill.UserPicture nf
        .Comment.Shape.Height = 50
        .Comment.Shape.Width = 50
        .Comment.Shape.ScaleHeight 1.2, msoFalse, msoScaleFromTopLeft
    End With
End Sub

Pris là

[Stan_94]

et ça marche trés bien ce code

Y a plus qu'a adapter au besoin du primo posteur, ce qui devrait être à la porté d'un amateur averti

[A voir en vidéo sur Futura]