Excell 2007, image au survol de cellule ?

Lazyblacksheep26 Messages postés 1 Statut Membre -  
 Alban -
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

  1. michel_m Messages postés 18903 Date d'inscription   Statut Contributeur Dernière intervention   3 320
     
    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
    1. Alban
       
      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