Forum Discussion
Image au survol d'une cellule
Je m'excuse pour la confusion. Vous avez raison, la méthode des commentaires n'affiche que du texte dans l'infobulle et ne permet pas d'afficher une image. Pour afficher une image en survolant une cellule, vous devrez utiliser VBA (Visual Basic for Applications), la langue de programmation intégrée d'Excel. Voici comment vous pourriez le faire :
- Appuyez sur ALT + F11 pour ouvrir l'éditeur VBA.
- Insérez un nouveau module en cliquant sur Insertion > Module.
- Collez le code VBA suivant dans le module :
Vba code:
Dim Img As Picture
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Img Is Nothing Then Img.Delete
If Target.Address = "$A$1" Then
Set Img = Me.Pictures.Insert("C:\Chemin\vers\votre\image.png") 'Remplacez par le chemin de votre image
With Img
.Top = Target.Top
.Left = Target.Left
.Width = 100 'Ajustez la largeur de l'image
.Height = 100 'Ajustez la hauteur de l'image
.Placement = 1
.PrintObject = True
End With
End If
End Sub4. Modifiez le code en remplaçant "C:\Chemin\vers\votre\image.png" par le chemin d'accès de l'image que vous souhaitez afficher.
5. Fermez l'éditeur VBA.
Maintenant, lorsque vous survolez la cellule A1, l'image que vous avez spécifiée devrait apparaître à côté de cette cellule. Vous pouvez personnaliser les coordonnées, la taille et d'autres propriétés de l'image dans le code VBA selon vos besoins.