XL 2010 Afficher une image en passant sur une cellule

Bentfp26 · 12 Juillet 2018

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.

Lone-wolf · 12 Juillet 2018

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.

job75 · 12 Juillet 2018

Bonjour Bentfp26, Lone-wolf,

Lone-wolf à dit:
Pour commencer, il n'existe pas d'évènement de survol d'une cellule pour afficher ou masquer une image

Allons allons, il y a des exemple sur le forum d'images insérées dans des commentaires qui s'affichent au survol de la souris.

Personnellement j'en ai fait plusieurs.

A+

Lone-wolf · 12 Juillet 2018

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.

job75 · 12 Juillet 2018

Re,

Lone-wolf à dit:
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+

Lone-wolf · 12 Juillet 2018

Re job75

@job75

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

Imagine si il y en a 1000 ou plus.

job75 · 12 Juillet 2018

Re,

Une image de pièce pèse en moyenne 16 Ko, donc pour 1000 images cela fera 16 Mo, aucun problème.

Une fois chargées dans les commentaires on peut supprimer les images sources pour éviter de doubler le poids.

A+

Lone-wolf · 12 Juillet 2018

Re job75

Ok. Dans mon exemple, il y a juste un contrôle image.

job75 · 12 Juillet 2018

Re,

Lone-wolf à dit:
Ok. Dans mon exemple, il y a juste un contrôle image.

Oui mais s'il y a 1000 images cela fera 1000 fichiers images.

Autant mettre une fois pour toutes ces images dans les commentaires, on n'en parlera plus.

A+

Lone-wolf · 12 Juillet 2018

Re job75

@job75: Pardon?? . Un contrôle image contiendra toujours une image et pas 1000.

De plus les images que lui il a, elles sont déjà dans un dossier (à mon avis) ; quel intérêt de les mettre sur une feuille??

job75 · 12 Juillet 2018

Re,

Bah j'ai parlé de 1000 fichiers images, il sont nécessaires pour ton contrôle.

Mais notre ami envisage de les supprimer puisqu'il a écrit :

Bentfp26 à dit:
Une chose que je souhaiterais également c'est que tout soit sur le même fichier

A+

Bentfp26 · 12 Juillet 2018

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 · 12 Juillet 2018

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??

job75 · 12 Juillet 2018

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 · 12 Juillet 2018

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

XL 2010 Afficher une image en passant sur une cellule

Bentfp26

XLDnaute Nouveau

Pièces jointes

Lone-wolf

XLDnaute Barbatruc

Pièces jointes

job75

XLDnaute Barbatruc

Lone-wolf

XLDnaute Barbatruc

Pièces jointes

job75

XLDnaute Barbatruc

Pièces jointes

Lone-wolf

XLDnaute Barbatruc

job75

XLDnaute Barbatruc

Lone-wolf

XLDnaute Barbatruc

job75

XLDnaute Barbatruc

Lone-wolf

XLDnaute Barbatruc

job75

XLDnaute Barbatruc

Bentfp26

XLDnaute Nouveau

Lone-wolf

XLDnaute Barbatruc

job75

XLDnaute Barbatruc

patricktoulon

XLDnaute Barbatruc

Pièces jointes

Discussions similaires