Excell 2007, image au survol de cellule ?

Fermé
Lazyblacksheep26 Messages postés 1 Date d'inscription vendredi 9 décembre 2011 Statut Membre Dernière intervention 9 décembre 2011 - Modifié par Lazyblacksheep26 le 9/12/2011 à 15:40
 Alban - 30 juil. 2012 à 22:21
Bonjour,

Je recherche un moyen d'afficher une image lors du survol avec la souris d'une cellule spécifique, comme sur certain sites internet. En fait mon but est de réaliser une liste de végétaux pour un devis sur excel, en permettant aux utilisateurs d'avoir un aperçu de la plante en question avant de l'inclure dans le devis.

Je ne sais pas s'y j'ai bien réussi à expliquer ma requête en tous cas je l'espère ^^, je précise également que je possède des notions d'Excel extrêmement basique.

En vous remerciant d'avance pour votre aide.



LazyBlackSheep

1 réponse

michel_m Messages postés 16593 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 23 mars 2023 3 292
Modifié par michel_m le 9/12/2011 à 17:43
Bonjour

à créer avec une petite macro macros
https://www.cjoint.com/?3LjrLHPNwrL

le code à adapter
Sub creer_image_survol() 
For cptr = 1 To 5 
      localisation = "B" & cptr + 2 
     image = Range(localisation) & ".jpg" 
     image_dans_commentaire localisation, image 
Next 
End Sub 

Sub image_dans_commentaire(adresse, photo) 
  Range(adresse).AddComment 
  With Range(adresse).Comment 
        chemin = ThisWorkbook.Path & "\" ' chemin à adapter 
        .Shape.Fill.UserPicture chemin & photo 
  End With 
End Sub 

Nota: il faut télécharger la pièce et non l'ouvrir directement

Michel
0
Bonjour,jr viens de tomber sur votre post et j'ai deux questions : que doit-on modifier pour mettre la bonne image et est-il possible (j'imagine que oui) d'affecter une image différente pour chaque case ? Merci.
0