1. Ce site utilise des "témoins de connexion" (cookies) conformes aux textes de l'Union Européenne. Continuer à naviguer sur nos pages vaut acceptation de notre règlement en la matière. En savoir plus.

XL 2010 Afficher une image en passant sur une cellule

Discussion dans 'Forum Excel' démarrée par Bentfp26, 12 Juillet 2018.

  1. Bentfp26

    Bentfp26 XLDnaute Nouveau

    Inscrit depuis le :
    18 Juin 2018
    Messages :
    2
    "J'aime" reçus :
    0
    Sexe :
    Masculin
    Habite à:
    Joppecourt
    Utilise:
    Excel 2013 (PC)
    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:

  2. Chargement...


  3. Lone-wolf

    Lone-wolf XLDnaute Barbatruc

    Inscrit depuis le :
    25 Mars 2010
    Messages :
    7087
    "J'aime" reçus :
    528
    Sexe :
    Masculin
    Travail/Loisirs :
    SE/Programmation (VBA Excel)
    Habite à:
    Ouest-Suisse
    Utilise:
    Excel 2013 (PC)
    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:

    Dernière édition: 12 Juillet 2018
  4. job75

    job75 XLDnaute Barbatruc

    Inscrit depuis le :
    15 Mai 2008
    Messages :
    25033
    "J'aime" reçus :
    2041
    Sexe :
    Masculin
    Habite à:
    Paris
    Utilise:
    Excel 2013 (PC)
    Bonjour Bentfp26, Lone-wolf,
    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+
     
  5. Lone-wolf

    Lone-wolf XLDnaute Barbatruc

    Inscrit depuis le :
    25 Mars 2010
    Messages :
    7087
    "J'aime" reçus :
    528
    Sexe :
    Masculin
    Travail/Loisirs :
    SE/Programmation (VBA Excel)
    Habite à:
    Ouest-Suisse
    Utilise:
    Excel 2013 (PC)
    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:

    Dernière édition: 12 Juillet 2018
  6. job75

    job75 XLDnaute Barbatruc

    Inscrit depuis le :
    15 Mai 2008
    Messages :
    25033
    "J'aime" reçus :
    2041
    Sexe :
    Masculin
    Habite à:
    Paris
    Utilise:
    Excel 2013 (PC)
    Re,
    Comment ça ?? Voyez le fichier joint et cette macro :
    Code (Text):
    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:

  7. Lone-wolf

    Lone-wolf XLDnaute Barbatruc

    Inscrit depuis le :
    25 Mars 2010
    Messages :
    7087
    "J'aime" reçus :
    528
    Sexe :
    Masculin
    Travail/Loisirs :
    SE/Programmation (VBA Excel)
    Habite à:
    Ouest-Suisse
    Utilise:
    Excel 2013 (PC)
    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.
     
  8. job75

    job75 XLDnaute Barbatruc

    Inscrit depuis le :
    15 Mai 2008
    Messages :
    25033
    "J'aime" reçus :
    2041
    Sexe :
    Masculin
    Habite à:
    Paris
    Utilise:
    Excel 2013 (PC)
    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+
     
  9. Lone-wolf

    Lone-wolf XLDnaute Barbatruc

    Inscrit depuis le :
    25 Mars 2010
    Messages :
    7087
    "J'aime" reçus :
    528
    Sexe :
    Masculin
    Travail/Loisirs :
    SE/Programmation (VBA Excel)
    Habite à:
    Ouest-Suisse
    Utilise:
    Excel 2013 (PC)
    Re job75

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

    job75 XLDnaute Barbatruc

    Inscrit depuis le :
    15 Mai 2008
    Messages :
    25033
    "J'aime" reçus :
    2041
    Sexe :
    Masculin
    Habite à:
    Paris
    Utilise:
    Excel 2013 (PC)
    Re,
    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+
     
  11. Lone-wolf

    Lone-wolf XLDnaute Barbatruc

    Inscrit depuis le :
    25 Mars 2010
    Messages :
    7087
    "J'aime" reçus :
    528
    Sexe :
    Masculin
    Travail/Loisirs :
    SE/Programmation (VBA Excel)
    Habite à:
    Ouest-Suisse
    Utilise:
    Excel 2013 (PC)
    Re job75

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

    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?? :rolleyes:
     
  12. job75

    job75 XLDnaute Barbatruc

    Inscrit depuis le :
    15 Mai 2008
    Messages :
    25033
    "J'aime" reçus :
    2041
    Sexe :
    Masculin
    Habite à:
    Paris
    Utilise:
    Excel 2013 (PC)
    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 :
    A+
     
  13. Bentfp26

    Bentfp26 XLDnaute Nouveau

    Inscrit depuis le :
    18 Juin 2018
    Messages :
    2
    "J'aime" reçus :
    0
    Sexe :
    Masculin
    Habite à:
    Joppecourt
    Utilise:
    Excel 2013 (PC)
    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
     
  14. Lone-wolf

    Lone-wolf XLDnaute Barbatruc

    Inscrit depuis le :
    25 Mars 2010
    Messages :
    7087
    "J'aime" reçus :
    528
    Sexe :
    Masculin
    Travail/Loisirs :
    SE/Programmation (VBA Excel)
    Habite à:
    Ouest-Suisse
    Utilise:
    Excel 2013 (PC)
    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: 12 Juillet 2018
  15. job75

    job75 XLDnaute Barbatruc

    Inscrit depuis le :
    15 Mai 2008
    Messages :
    25033
    "J'aime" reçus :
    2041
    Sexe :
    Masculin
    Habite à:
    Paris
    Utilise:
    Excel 2013 (PC)
    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+
     
  16. patricktoulon

    patricktoulon XLDnaute Junior

    Inscrit depuis le :
    9 Novembre 2010
    Messages :
    93
    "J'aime" reçus :
    14
    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
    [​IMG]
     

    Pièces jointes:

  17. Lone-wolf

    Lone-wolf XLDnaute Barbatruc

    Inscrit depuis le :
    25 Mars 2010
    Messages :
    7087
    "J'aime" reçus :
    528
    Sexe :
    Masculin
    Travail/Loisirs :
    SE/Programmation (VBA Excel)
    Habite à:
    Ouest-Suisse
    Utilise:
    Excel 2013 (PC)
    Bonjour Patrick, Bernard, Benoît, le Forum :)

    @patricktoulon : tu n'as pas tout suivi ;).

     
    Dernière édition: 13 Juillet 2018
  18. patricktoulon

    patricktoulon XLDnaute Junior

    Inscrit depuis le :
    9 Novembre 2010
    Messages :
    93
    "J'aime" reçus :
    14
    Bonjour lone-wolf
    re
    la base de l’apparition se fait avec le test dir donc si la pièce n'existe pas le commentaire ne sera pas créé
    le nom correspondant en colonne "I" est numeroté de 1 a X je ne vois pas trop ce que je n'aurais pas suivi

    maintenant si les noms doivent changer il adaptera , le B a BA du VBA
     
  19. Lone-wolf

    Lone-wolf XLDnaute Barbatruc

    Inscrit depuis le :
    25 Mars 2010
    Messages :
    7087
    "J'aime" reçus :
    528
    Sexe :
    Masculin
    Travail/Loisirs :
    SE/Programmation (VBA Excel)
    Habite à:
    Ouest-Suisse
    Utilise:
    Excel 2013 (PC)
    Re Patrick,

    @patricktoulon

    Les noms mis en colonne I, c'est moi qui l'ais-ai mis comme exemple, puisque notre ami n'a pas parler de noms dans son premier message.

    Pourtant mon précédent message est assez explicit (ou parlant si tu veux). Si tu aurais suivi le fil, t'aurais évité de faire tout ce travail pour rien.

    EDIT: comment tu fait pour avoir l'image gif? À moins que ce soit une video tranformée en gif.
     
    Dernière édition: 13 Juillet 2018
  20. patricktoulon

    patricktoulon XLDnaute Junior

    Inscrit depuis le :
    9 Novembre 2010
    Messages :
    93
    "J'aime" reçus :
    14
    et oui je me suis basé sur le seul exemple valide de la discussion après il faut un peu plus de précision de la part du demandeur

    mes gifs je les fait avec LICECAP c'est app gratuite et il y en a d'autre mais honnêtement pour en avoir testé plus une c'est ma préférée ;)
     
  21. job75

    job75 XLDnaute Barbatruc

    Inscrit depuis le :
    15 Mai 2008
    Messages :
    25033
    "J'aime" reçus :
    2041
    Sexe :
    Masculin
    Habite à:
    Paris
    Utilise:
    Excel 2013 (PC)
    Bonjour Bentfp26, Lone-wolf, patricktoulon,

    En l'absence de réponse à mon post #14 voici une solution très simple :
    Code (Text):
    Sub CréerCommentaires()
    Dim dossier$, fichier$, n&
    dossier = ThisWorkbook.Path & "\Images\"
    fichier = Dir(dossier & "*.jpg") '1er fichier du dossier
    Range("A2:A" & Rows.Count).Delete xlUp 'RAZ
    n = 1
    While fichier <> ""
        n = n + 1
        Cells(n, 1) = Left(fichier, Len(fichier) - 4) 'nom du fichier sans l'extension
        With Cells(n, 1).AddComment("").Shape
            .Width = 150 'dimension à adapter
            .Height = 150 'dimension à adapter
            .Fill.UserPicture dossier & fichier
        End With
        fichier = Dir 'fichier suivant
    Wend
    End Sub
    Le fichier Collection(2).xlsm est rempli uniquement avec le contenu du dossier "Images".

    Fichier (2) et dossier joints.

    A+
     

    Pièces jointes:

    DoubleZero aime votre message.

Partager cette page