Cave à vins ( avec macro) 2018-03-08

[JM27]

Bonsoir
une petite adaptation pour aller dans ton sens
Comme ce fichier a été réalisé il y a une dizaine d'années , il aurait besoin d'un bon nettoyage.

 

[Toubabou]

Bonjour JM27,
J'aurais bien aimé profiter de vos modifications. Pouvez-vous me dire quel UF je doit modifier chez moi, sans être obligé de changer ma présentation?
Merci Beaucoup.
Jean-Marie

 

[JM27]

Bonsoir
attends un peu , je penses qu'il y aura d'autre modifications , si j'ai un peu de courage.
Il y a plusieurs modifs , module de classe et Userform rentrer un vin, et suppression de l'userform graphiques qui A des api windows et qui n'apportent pas grand chose ( et qui pose pb pour les excel 64 bit) et suppression du module paste picture.
Je penses qu'il faudra que tu postes ton fichier pour que je fasses les modifs.

 

[JM27]

Bonsoir
3 versions
1/webperegino1 sans userform visualiser les graphiques sans api ( qui posait pb avec Excel 64 bit)

2/webperegino2 avec userform visualiser les graphiques avec API 64 bit ( compatible avec Excel 64 bit)

3/Toubalou avec userform visualiser les graphiques avec API 64 bit ( compatible avec Excel 64 bit et 32 bit : a tester) et avec ta présentation.
Il faut recopier tes données dans la feuille données de ce fichier , idem pour feuille localisation , attention une colonne supplémentaire à documenter à la main (colonne W)feuille localisation.
Ne prends pas en compte le post #63

A vous de tester et de me dire comment cela se comporte 😉

 

[Webperegrino]

Le Forum,
Jean-Marcel,
Quelle réactivité, j'ai du mal à suivre ! C'est très sympa de votre part de vous occuper ainsi de nos requêtes.
Je n'ai pas encore étudié les modifications du #64
Solution #61 : lors de "Visualiser la cave" l'Userform "Visualiser les casiers" me donne invariablement en ligne 1 et en ligne 2 une bouteille de 75 cl alors que les 5 bouteilles de la ligne 1 sont en 75 cl et les 4 bouteilles de la ligne 2 sont en 37,5 cl.
De plus j'essaie de voir, dans le VBA, à quel endroit se trouve la codification "Microsoft Excel - Le vin dans cette cellule - Région, Appellation, Nom, Couleur, Année, Acheteur, Code,..." et le fameux FORMAT qui va, je pense, chercher l'information en colonne W de la feuille "Localisation". Mais peut-être que c'est déjà résolu en #64, dans quel cas vous ne tiendrez pas compte de cette remarque.
Merci Jean-Marcel de vous pencher sur votre ancienne réalisation ; il est vrai que lorsqu'il faut s'y remettre on a un peu décroché dans la logique de la conception.
Cordialement,
Webperegrino

 

[Webperegrino]

Le Forum,
Jean-Marcel,
Voici Applic_Webpergrino2 : Ce fichier me convient pratiquement à 100 %, ... toutefois...
- Le survol des cases dans le casier donne parfaitement l'information : c'est génial, vous répondez parfaitement à ma requête.
- un clic sur la case falsifie l'information au niveau du format de bouteille.
Exemple sur la case A3 du Casier Haut Gauche :
- survol donne 37,5 cl : c'est VRAI
- clic souris donne 75 cl : c'est faux.
J'utilise peut-être mal le fichier ?
Webperegrino

 

[JM27]

Bonjour
Ci joint correctif pour avoir un affichage cohérent dans visualiser ma cave
A tester ; il peut rester quelques bugs

 

[Toubabou]

Bonjour JM 27, Webperegrino,

Encore une fois un grand merci pour votre travail et vos modifications. Tout fonctionne parfaitement. Je vais l'intégrer à ma suite.
Merci beaucoup.
Toubabou

 

[Webperegrino]

Le Forum,
Bonjour Jean-Marcel,
Alors là, avec la version #67 : Chapeau bas ! C'est parfait.
Je reviens vers vous pour partager avec vous tous, avec cette version, une adaptation VBA dans une nouvelle feuille "SCHÉMA DE CAVE" qui insèrerait dans chaque cellule des 'Casiers' toutes les données principales de chaque bouteille classée en feuille 'Localisation', selon I (nom du casier), J (ligne) et K (colonne). Ainsi chaque cellule affichera un contenu similaire à celui de votre votre message quand quand on clique sur les cases de l'UserformCasier. Ce sera un complément schématique d'accès visuel direct en lecture du rangement de ma cave, comme le font vos UserformCasier(s). J'ai envie de réaliser cette partie de travail pour appliquer mes (petites) connaissances en VBA.
A très vite,
Merci encore, votre travail fait plaisir,
Webperegrino

 

[JM27]

Bonjour
comme j'ai pas tout compris ce que tu souhaites faire , je te laisses agir , et me présenter ton travail , prêt à t'aider au cas ou .

 

[Webperegrino]

Le Forum,
Bonsoir JM27,
Et voilà (fichier ci-joint pour #70).
Je vais pouvoir gérer ma cave personnelle grâce à vous.
Merci pour votre patience et vos soins,
Cordialement,
Webperegrino

 

[JM27]

Bonjour
c'est pas mal , mais je n'aurais pas fait comme cela:
A la création du casier j'aurai créé une feuille pour ce casier ( a partir d'une feuille cadre) et je l'aurai adapté au format du casier.( il faut penser aux autres utilisateurs qui n'ont pas le même format de
casier)
et j'aurai fait une mise à jour automatique à la création et à la sortie des bouteilles.
mais c'est une bonne idée 😉

 

[Webperegrino]

Bonjour,
Très bonnes suggestions, vous avez raison (une feuille par casier, macros pour MàJ automatique.
En attendant d'évoluer dans ce sens, voici ce que j'ai ajouté dans la Version 4 ci-jointe.
J'ai un avertissement pour une bouteille à consommer au plus vite dans le rayonnage HAUT Droite, en case C1 ; la DLC (Date limite de consommation) ajoutée est dépassée. Très pratique pour la gestion des flux de bouteilles.

 

[JM27]

Bonjour
Voila comment je l'aurai vu.
Mais je ne détiens pas la vérité 😀

 

[Webperegrino]

Bonsoir Jean-Michel,
#74 encore mieux que la dernière version que j'avais tentée et dont voici "la finale de mes approches dans votre travail".
Avec #74 : bravo, mission accomplie ; je n'ai plus rien à soumettre en requête et je suis entièrement comblé.
Encore merci pour votre implication.
Cordialement et @+ éventuellement dans une autre discussion,
Webpergrino