Gestion de ma collection

Bonjour à tous,

Projet intéressant que voici et que je suis avec intérêt depuis le début!

Pour afficher une photo au survol de la souris : clic droit sur la cellule -> Insérer un commentaire -> reclic droit sur la cellule -> Modifier le commentaire -> clic droit sur le commentaire -> Format de commentaire -> onglet Couleurs et Traits -> dans couleur de remplissage sélectionner Motifs et textures puis aller dans Image -> sélectionner une image.

dubois a écrit :

Pour la question de ce matin, c'est revenir à la case départ, problème de liens qui ne suivent pas le tri.

Il n'y a aucun lien à mettre! Tu peux laisser la cellule vide et mettre une image en commentaire! Ils suivront parfaitement les cellules même lors d'un tri

Bonjour vba-new,

Je n'arrive pas à récupérer l'image !

elle doit être dans le fichier ou à l'extérieur ?

Fait une version Exemple en vraie grandeur, pour voir.

Amicalement

Claude.

Bonjour vba-new,

C'est simple finalement je m'en servirai pour un fichier de généalogie. faire apparaitre la personne en pointant son nom.

J'ai essayé et ca marche. J'avais presque trouvé hier mais l'effet était inversé.

Merci pour les explications

A+

Adrien

PS : souci l'extension laquelle utiliser et la moins gourmande ?

re vba-new,

Pour la version Exemple,

mets le "commentaire-photo" dans la colonne Commentaire, qu'on puisse voir en mode

normal.

Merci et bonne journée

Claude.

Bonjour à tous,

dubois a écrit :

Bonjour vba-new,

Je n'arrive pas à récupérer l'image !

elle doit être dans le fichier ou à l'extérieur ?

Fait une version Exemple en vraie grandeur, pour voir.

Amicalement

Claude.

Le fichier image doit se trouver sur ton ordi.

Voici une version test avec photo en commentaire : https://www.excel-pratique.com/~bigfiles/doc/Collection_Projet5_commentaire_photo2.zip

Pour voir les photos, placez la souris au niveau du billet de 5000 F de la France sur la colonne commentaires.

J'ai également mis les photos pour les billets de 10 et 100 Kip du Laos (Lao en anglais)

AdrienHeiser a écrit :

PS : souci l'extension laquelle utiliser et la moins gourmande ?

Je conseillerais l'utilisation du format de référence JPEG.

Bonsoir vba-new, Bonsoir Claude

Maintenant, Claude, il y a dilemme. Quel système prendre. C'est toi le programmeur donc à toi la main.

Aujourd'hui j'ai reçu 5 nouvelles coupures, des pays que je n'avais pas. J'ai créé les coupures dans les nouveaux pays. Impec. pas de soucis.

A+

Adrien.

vba-new j'ai déjà une destination pour ton système de photos à la place des commentaires. Dans ma collection de pièces (france uniquement) je pourrai zoumer sur des détails des pièces comme le signe de reconnaissance du graveur. Par exemple en 1994 il y a eu deux graveurs : Dauphin début de l'année et abeille pour la fin. Ca me permettra de mettre en évidence des détails.

A+

Adrien

Bonjour vba-new, Adrien, forum,

vba-new,

Merci pour ta proposition, très intéressante mais pas vraiment adaptée pour cette partie de projet.

• Elle a l'avantage de pointer directement l'image de la coupure au lieu du Pays (dans ma version)
• Par contre la convivialité et l'affichage sont moins bons.

et remonter en haut de page le commentaire avec ce bout de code (2ème If) de la feuille base :

en sélectionnant la coupure, le commentaire est copié en F2

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Not Application.Intersect(Target, Range("FiltrePays")) Is Nothing Then
        Range("e5") = Target.Offset(0, -1)
        Cells(5, Target.Column).Select
    End If

    If Not Application.Intersect(Target, Range("f8:f520")) Is Nothing Then
        Target.Copy
        Cells(2, Target.Column).PasteSpecial Paste:=xlPasteComments
        Application.CutCopyMode = False
    End If
End Sub

Personnellement, je préfère la version 5, et si Adrien à bien pigé l'idée du gabarit, ce sera "tip-top".

Donc je continu sur ma lancée tout en notant ta méthode pour une autre application.

Encore merci et continu à participer, tu sera toujours le bienvenu.

Adrien,

Il est bien entendu que tout ce que tu ajoute aujourd'hui, il faudra le refaire dans la version définitive !

considère que ce n'est que des tests.

J'ai créé les coupures dans les nouveaux pays.

Attention, <nouveaux pays>, tu veux dire pays qui n'étaient pas dans la liste "Drapeaux" ?

dans ce cas, n'oublie pas de les y ajouter.

Je ferais une notice explicative à ce sujet (à faire/à ne pas faire)

Me reste à voir l'histoire des macros qui ralentissent encore un peu avec le fichier "Drapeaux" ouvert

j'ai ouvert un poste pour çà, j'attends une réponse.

Bonne journée

Claude.

Bonjour Claude,

Je prends note des remarques mais comme dit plus haut j'ai du monde à la maison donc ordi en croix.

Les pays créés sont présents dans le fichier drapeaux.

Bon WE

Adrien

Bonsoir Forum, Bonsoir Claude

Le retour. aujourd'hui j'ai testé la colonne à droite de la photo. J'ai modifié le texte et pour valider j'ai fait enter. Là le pays à disparu. Je viens de retenter l'expérience idem.

Tout en écrivant j'ai pensé à une option que je viens de tester. Après modif, je valide par la barre de formules et la ca fonctionne. Mais j'ai le réflexe "enter" assez facile.

A+

Adrien

Bonjour Adrien, forum,

Version6

https://www.excel-pratique.com/~bigfiles/doc/Collection_Projet6.zip

- En essai, regarde si tu sens une amélioration dans la rapidité du filtrage (modif macro)

Nouveau :

En mode écriture,

- Liste "filtre :", permet de filtrer directement dans la base

1) Les coupures à remplacer

2) Les photos cochées (colonne N)

pour utiliser cette liste, il faut faire Afficher tout. (à tester)

• La feuille "Listes" est donc libérée du filtre, qui ne me plaisait pas.
• --------------------------------------

Je cherche une formule pour que la cote soit toujours à jour suivant la base.

Voilou, l'état d'avancement

Amicalement

Claude.

Bonsoir Forum, Bonsoir Claude

J'étudierai la v6 demain pendant les creux au boulot mais apparemment il y a un souci au niveau du filtre des coupures à remplacer. aucune réaction.

je re testerai demain. Il faut que je me penche sérieux sur le volet photos. Je vais tester un gabarit fait dans un étui plastique que l'on utilise pour le transport d'un ou deux billets.

A+

Bonne soirée

Adrien

re,

il y a un souci au niveau du filtre des coupures à remplacer. aucune réaction.

Suit les consignes, tu dois faire un "Afficher tout" (pour réactiver).

Bonne soirée

Claude.

édit: il cote combien le billet "Victoire" ? (c'est surtout pour tester)

RE

Autant pour moi chef, pas bien lu les consignes chef ! (plaisanterie). J'ai pigé l'astuce maintenant.

C'est plus convivial. Bonnes idées pour le tri.

Avec tout ça je m'aperçois que j'ai un bon quart à remplacer.

Pour le 5000 francs Victoire la fourchette de la côte va de 110 à 200 euros. Si je devais m'en séparer je ferais une mise à prix à 150.

Ce qui n'est rien par rapport à un 5000 francs Flameng que tous collectionneurs rêve d'avoir J'en ai vu un sur le Net à 6990 euros.

A+

Adrien

re,

Adrien, si tu as avancé dans ta mise à jour et pas modifier la structure, tu peux m'envoyer

ton fichier, je continuerais dessus pour la suite.

çà t'évitera de redémarrer à zéro à chaque Version.

sauf les images à cause du poids

PS: le chef aime bien aussi qu'on réponde à ses questions !

Claude.

Bonsoir Claude

Ci jointe la V6 complètée. Il n'y a pas un système pour synchroniser les nouvelles versions avec une plus ancienne ?

J'ai loupé des réponses ?

A+

Adrien

Bonjour Adrien et à tous,

Version7

https://www.excel-pratique.com/~bigfiles/doc/Collection_Projet7.zip

Pour récupérer tes données dans les nouvelles versions

1) Tu fais un Enregister Sous "Annulé".xls de ton dernier fichier

2) Les 2 fichiers doivent être ouverts ("Annulé" et ma dernière version envoyée)

3) à partir de la dernière version, tu clique sur l'encadré.

Ce que fait cette action :

• Récupère les données complètes de la base. (ton dernier fichier nommé "Annulé")
• Supprime la feuille photos et la remplace par celle de ton dernier fichier.
• Récupère le taux de change.

Là, tu as donc la nouvelle version avec tes anciennes données et images.

C'est-à-dire que tu peux coller tes images, ton fichier peut faire 20Mo, c'est pas génant pour nos échanges.

En fait, je t'envoie le programme modifié, le reste pourait être vide.

Ceci fait, tu supprime le fichier "Annulé.xls", jusqu'à la prochaine version et re-belote !

Nota: il va sans dire que la structure ne doit pas changer.

Dis-moi si le transfert se fait correctement ?

La question sans réponse était de savoir si tu sentais une amélioration sur le temps d'exécution des macros.

y'en a trois qui suivent, sur le forum !

Bonne journée

Amicalement

Claude.

édit: j'ai oublié une ligne, (Call initialise) en fin de macro "TransfertVersion"

Call initialise
        ActiveWorkbook.Save 'enregistre *****

tu corrige ou tu initialise avec le bouton.

édit2: faire l'opération de transfert avec le fichier "Drapeaux.xls" fermé

re,

J'espère qu'il n'est trop tard, ne tient pas compte de mon message précédent,

problème de noms ! , ne lance pas la version7,

Je corrige et t'envoie Version8 dans la journée.

Le principe sera le même

Claude.

re,

Version8

https://www.excel-pratique.com/~bigfiles/doc/Collection_Projet8.zip

L'erreur est corrigée, à tester quand même.

La procédure est la même que dans mon message précédent.

édit: J'ai mis la cote $US qui manquaient dans France (obligatoire pour avoir une cohérence

dans la base), maintenant la macro réécrit la formule Change sur toute la colonne.

Bonne soirée

Claude.

Bonsoir Forum, Bonsoir Claude

Je tente de regarder tout cela ce soir ou au pire demain. Actuellement un peu "naz". J'ai fait une soirée pour le départ d'un collègue qui quitte les Vosges pour un grand complexe hotelier casino au Maroc. En plus c'était mon anniversaire donc un peu mal aux cheveux.

J'ai réalisé un gabarit, je t'envoie un ex peut être ce soir

A+

Adrien

RE

Ci joint la photo d'une coupure montée sur un gabarit. Est-ce que c'est bon ? Certaines coupures de rentrerons pas mais c'est une infime partie.

https://www.excel-pratique.com/~files/doc2/20_francs_Pecheur.jpg

Adrien