Icône de la ressource

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

JM27

XLDnaute Barbatruc
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.
 

Pièces jointes

  • Les vins R Sans userform graphique Pour 64 bit.xlsm
    303.9 KB · Affichages: 4
Dernière édition:

Toubabou

XLDnaute Impliqué
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

XLDnaute Barbatruc
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.
 
Dernière édition:

JM27

XLDnaute Barbatruc
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 ;)
 

Pièces jointes

  • Webperegrino1.xlsm
    284.1 KB · Affichages: 4
  • Webperegrino2.xlsm
    277 KB · Affichages: 4
  • Toubalou.xlsm
    360.1 KB · Affichages: 3
Dernière édition:

Webperegrino

XLDnaute Impliqué
Supporter XLD
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

XLDnaute Impliqué
Supporter XLD
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
 

Pièces jointes

  • applic_Webperegrino2.xlsm
    313 KB · Affichages: 2

JM27

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

Pièces jointes

  • Toubalou.xlsm
    384.7 KB · Affichages: 3
  • Webperegrino2.xlsm
    348.5 KB · Affichages: 8

Toubabou

XLDnaute Impliqué
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

XLDnaute Impliqué
Supporter XLD
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

XLDnaute Barbatruc
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

XLDnaute Impliqué
Supporter XLD
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
 

Pièces jointes

  • DV3-applic_Webperegrino2.xlsm
    294.8 KB · Affichages: 9

JM27

XLDnaute Barbatruc
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 ;)
 
Dernière édition:

Webperegrino

XLDnaute Impliqué
Supporter XLD
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.
 

Pièces jointes

  • V4-applic_Webperegrino.xlsm
    356 KB · Affichages: 5

JM27

XLDnaute Barbatruc
Bonjour
Voila comment je l'aurai vu.
Mais je ne détiens pas la vérité :D
 

Pièces jointes

  • Cave a Vin indice S.xlsm
    339.5 KB · Affichages: 7
  • Toubalou (1).xlsm
    346.4 KB · Affichages: 4

Webperegrino

XLDnaute Impliqué
Supporter XLD
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
 

Pièces jointes

  • V5-applic_Webperegrino.xlsm
    365.3 KB · Affichages: 10
Dernière édition:

Statistiques des forums

Discussions
311 733
Messages
2 082 011
Membres
101 866
dernier inscrit
XFPRO