XL 2010 Afficher une image en passant sur une cellule

Bentfp26

XLDnaute Nouveau
Bonjour à tous,

Je suis nouveau sur le forum et pas très à l'aise avec les "us et coutumes" des forums en général......

donc je vais essayer de bien faire, tant en matière de présentation que pour exposer mon problème...

46 ans, chauffeur de direction et aussi président d'une asso loi 1901, je maîtrise moyennement excel mais je suis curieux, (ça c'est pour la présentation, sommaire, je vous l'accorde !).

Mon problème ( ou plutôt ce que je n'arrive pas à réaliser):
voilà, donc j'ai fait un petit tableau ( très simple, j'en conviens) pour la gestion de la collection de pièces de 2€ commémoratives que j'ai commencée avec le fiston ( bon c'est vrai que lui est nettement moins assidu que moi!!!) et j'ai un fichier d'images par année et par pays des pièces de 2 €.
J'aimerais avoir la possibilité d'afficher une image de la pièce quand je passe sur la cellule correspondante, sans avoir à cliquer et que cette image s’efface quand je ne suis plus sur la cellule....
Une chose que je souhaiterais également c'est que tout soit sur le même fichier, c'est à dire que je puisse me balader avec ma clé USB, ou partager mon fichier sans avoir a envoyer plusieurs documents pour que ça fonctionne.... ( je ne sais pas si je me suis bien fait comprendre.....)

J'ai effectuer plusieurs recherches mais je dois avouer que je n'ai pas compris grand chose à ce qui était expliqué et aux solutions proposées....

Si quelqu'un a une solution à me proposer ( et surtout la patience de m'expliquer car le but étant que je comprenne un minimum ce que je fais) je l'attend avec impatience !!!
Donc je mets en pièces jointes mon tableau (pour le dossier "images" je n'arrive pas à le téléverser!!)

Un grand merci par avance pour votre aide.
 

Pièces jointes

  • 2EUROS COMMEMO.xlsx
    131.4 KB · Affichages: 37

Lone-wolf

XLDnaute Barbatruc
Bonjour Bentfp26 et bienvenue sur XLD :), bonjour le Forum :)

Pour commencer, il n'existe pas d'évènement de survol d'une cellule pour afficher ou masquer une image, il faudra cliquer sur une cellule. Ensuite, vu les doublons, il faut ajouter une colonne supplémentaire et lister le nom des images. Mais avant cela, si celles-ci sont du même format(.gif, .jpg, .bmp, etc.) ok, sinon il faudra les modifier. Ensuite, il faudra les renommées, ce sera beaucoup plus éfficace. Un exemple, dans la feuille "Ma collection" tu as ceci:

Allemagne - A = pièce1
Allemagne - A = pièce2
Allemagne - D = pièce3
Allemagne - D = pièce4
Allemagne - F = pièce5
Allemagne - F = pièce6
Allemagne - G = pièce7
Allemagne - G = pièce8
Allemagne - J = pièce9
Allemagne - J = pièce10

Et comme dit plus haut, en colonne I par exemple, tu inscris celles-ci (pièces1 - pièce2 - pièce3 etc.).
Comme ici on est gentils ;), j'ai déjà créé la colonne avec le nom des images.
 

Pièces jointes

  • 2EUROS COMMEMO-1.xlsx
    127.6 KB · Affichages: 48
Dernière édition:

Lone-wolf

XLDnaute Barbatruc
Bonjour job75 :)

Oui, avec les commentaires pas de soucis, j'avais pensé à ça; mais il y à déjà plus de 300 lignes(images), perso, c'est pas joli à voir.

Dans le fichier joint, un exemple en cliquant sur les 3 premières cellules (colonne I) correspondantes pour les afficher,
pour masquer > clic en colonne K ou L.
 

Pièces jointes

  • Pièces Euro Commémoratives.zip
    172.5 KB · Affichages: 44
Dernière édition:

job75

XLDnaute Barbatruc
Re,
j'avais pensé à ça; mais il y à déjà plus de 300 lignes(images), perso, c'est pas joli à voir.
Comment ça ?? Voyez le fichier joint et cette macro :
Code:
Sub CréerCommentaires()
Dim i&, s As Shape
With [A1].CurrentRegion.Columns(1)
    .ClearComments 'RAZ
    For i = 2 To .Rows.Count
        Set s = Feuil2.Shapes(.Cells(i))
        s.CopyPicture
        With s.Parent.ChartObjects.Add(0, 0, s.Width, s.Height).Chart
            .Paste
            .Export ThisWorkbook.Path & "\MonImage.gif", "GIF"
            .Parent.Delete 'supprime le graphique temporaire
        End With
        With .Cells(i).AddComment("").Shape
            .Width = s.Width
            .Height = s.Height
            .Fill.UserPicture ThisWorkbook.Path & "\MonImage.gif"
        End With
    Next
End With
Kill ThisWorkbook.Path & "\MonImage.gif" 'supprime le fichier gif
End Sub
Les images de la feuille "Images" ont été renommées pour être facilement retrouvées.

Noter que comme demandé tout tient dans un seul fichier.

A+
 

Pièces jointes

  • Collection(1).xlsm
    60.5 KB · Affichages: 60

Lone-wolf

XLDnaute Barbatruc
Re job75

@job75

Pour le moment sur le fichier original il y a 319 images à mettre sur la feuille.

collection.gif


Imagine si il y en a 1000 ou plus.
 

Bentfp26

XLDnaute Nouveau
Bonjour à tous et déjà merci pour l'intérêt que vous avez témoigné à mon post.

Je vais apporter quelques précisions à ma demande:
1-le fichier excel que j'ai posté est une ébauche et je l'ai donc mis comme tel, le but étant, au final de pouvoir voir à quoi ressemble la pièce.

2- le nombre d'images n'est pas le même que le nombre de pièces ( en effet, pour les allemandes je ne mettrai qu'une image pour chaque séries de pièces, une série étant composée de 5 pièces A, D, F, G, J, et il y a des pièces dont la face est commune à chaque pays, mais j'imagine que c'est juste un détail pour vous).

3- j'ai regardé vos fichiers, ils semblent correspondre à ce que je cherche ( et pour ça merci!) surtout la première feuille du fichier de job75 mais je ne comprends pas:
-a/ la méthode que vous utilisez,
-b/ où vous notez le code
-c/ comment utiliser le bouton "créer les commentaires" ou comment ajouter des lignes à ce fichier ou, mieux, le transposer au mien....
y aurait-il une âme charitable pour me décrire cette méthode pas-à-pas (je sais c'est fastidieux, mais je dois être un peu benêt, benêt n'étant pas très loin de Benoît, il doit y avoir un lien de causalité !!!) ???

Pour les images, effectivement elles sont toutes au même format ( JPG) et font entre 16 et 40 ko) et sont dans un dossier, par année sous le format nom de fichier: année - pays-nom de la pièce .jpg

4- le fichier de job75 implique t-il que je dois mettre et renommer les images une par une manuellement? (auquel cas, existe-il un moyen de "standardiser" la taille?


Encore merci
 

Lone-wolf

XLDnaute Barbatruc
Re Benoît

dans mon fichier exemple au post #5, les images sont dans un dossier. Mais ce que tu dis n'est pas clair.

1.- Combiens d'images en tout tu as dans le dossier?

2.- Tu dit ceci: sous le format nom de fichier: année - pays - nom de la pièce .jpg

Mais dans ton fichier exemple, dans la colonne des noms tu as des zéros.
Ce qui veux dire qu'il n'y a pas de nom (donc pas d'image), What'is?? :rolleyes:
 
Dernière édition:

job75

XLDnaute Barbatruc
Re,

Mon fichier aussi était une ébauche.

Pour avancer il faut que vous déposiez sur ce fil :

- le fichier Excel définitif avec une liste de 10 ou 20 pièces

- le dossier zippé des quelques images JPEG à afficher dans le fichier précédent.

A+
 

patricktoulon

XLDnaute Barbatruc
bonsoir
ouvre lance la mise a jour et passe sur les cellules "piece1,2,etc...
il faut que le dossier image soit dans le même dossier que le classeur sinon il faudra adapter
 

Pièces jointes

  • demo.gif
    demo.gif
    382 KB · Affichages: 309
  • 2 EUROS COMMEMO.xlsm
    178.8 KB · Affichages: 48

Discussions similaires