Discussion :

[DOMIMARE]

Cette macro doit me servir à progresser en paléographie
But : Avoir dans une feuille des images de mots du XVIeme et voir en infobulle son sens (sa transcription) quand on passe le curseur de la souris dessus
Dans un dossier j’ai mis des captures de mots de textes anciens. Ce sont des fichiers jpeg. J’ai mis dans les cases d’une feuille excel les noms de ces fichiers (ex dans une case il y a « sieur » ; dans le dossier des images il y a un fichier « sieur.jpg ».
Je veux deux choses principales :
1) Que la macro affecte un commentaire à la cellule de telle façon qu’en passant le curseur sur la cellule (lorsqu’elle contiendra l’image correspondante) une infobulle m’affiche la transcription (ici : « Sieur » en commentaire.)
2) Qu’elle place correctement l’image dans la cellule (Sieur.jpg dans la cellule qui contient le mot « Sieur » en adaptant l’image aux dimensions de la cellule sans la déformer.
On m’ai dé sur ce forum à faire la macro (on me l’a faite avec beaucoup de gentillesse). Elle crée bien les commentaires de chaque cellule mais elle introduit plusieurs fois les mêmes images (surtout dans les premières cellules à gauche de la zone sélectionnée ; si je sélectionne une zone de 9 cellules, (3X3)elle place 18 images dont 12 dans la première colonne ! et elle ne les dimensionne pas comme souhaitée. Si quelqu’un voit comment résoudre cela, je suis preneur.
Voilà la macro :

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
25
' cette macro insère les commentaires et les images (il faut changer le répertoire de celles-ci (adapter)
Sub versComm()
Dim X, Nom, repertoirePhoto As String
Dim Cell As Range
Dim Img As Shape
 
repertoirePhoto = "C:\Users\Dominique\Pictures\tousles mots\"   ' Adapter
 On Error Resume Next   ' pour évite l'arrêt de la macro si le nom ne correspond pas à une image valide
With ActiveSheet
  For Each Cell In Selection
    X = Cell.FormulaR1C1          ' place le contenu de la cellule dans la variable X
    Cell.AddComment               ' ajoute l'objet commentaire
    Cell.Comment.Visible = False  'le commentaire sera masqué
    Cell.Comment.Text Text:=X      'place le contenu de X dans l'objet commentaire
    Nom = X
    .Pictures.Insert(repertoirePhoto & Nom & ".jpg").Name = Nom
    .Shapes(Nom).Left = Cell.Left
    .Shapes(Nom).Top = Cell.Top
    .Shapes(Nom).LockAspectRatio =  msoTrue
    .Shapes(Nom).Height = Cell.Height
    .Shapes(Nom).Width = Cell.Width
  'Cell.Value = ""  ' à activer au besoin pour vider la cellule
  Next
End With
End Sub

Cordialement
DOMIMARE

[clementmarcotte]

On ne peut pas mettre des images dans une cellule.

[DOMIMARE]

Se placer dans une cellule puis "Insertion" et "Images"

ou plus exactement dans chaque cellule une image...
Bonne soirée
Domimare

[clementmarcotte]

On ne peut pas mettre 1, 2, 3 ... n-1. n image(s) dans une cellule.

On peut mettre 0 image dans une cellule

[DOMIMARE]

Expliquez vous car je ne vois pas en quoi ce que j'ai écrit dans le message #3 ne correspond pas zu fait de mettre une image dans une cellule
Cordialement
DOMIMARE

[clementmarcotte]

Il n'y a rien à expliquer. Excel est fait de même. Une cellule ne peut pas contenir d'image. Une feuille peut contenir une image, mais pas une cellule. Au mieux, on peut avoir une image au-dessus d'une cellule, mais pas d'image dans une cellule.

On peut zigonner sur les dimensions de l'image, de la ligne et de la colonne pour donner l'illusion d'avoir une image dans une cellule, mais on ne peut pas avoir d'image dans une cellule, ni utiliser un Objet Range (une cellule est un objet Range ) pour manipuler une image.

[DOMIMARE]

Vous avez sans doute raison! Il faudra dire à Microsoft de supprimer le "Menu Insérer image"...

DOMIMARE

[Marc-L]

Comment fallait-il que je présente mon message?

Comme indiqué dans les règles de ce forum, il y a même une animation pour les moins doués :

…

[jurassic pork]

hello,
par contre on peut mettre une image dans le commentaire d'une cellule :

You can add the image into a comment.
Right-click cell > Insert Comment > right-click on shaded (grey area) on outside of comment box > Format Comment > Colors and Lines > Fill > Color > Fill Effects > Picture > (Browse to picture) > Click OK
Image will appear on hover over.

Ami calmant, J.P