Icône de la ressource

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

Toubabou

XLDnaute Impliqué
Bonjour JM27,
Je viens de trouver votre fichier, Super travail, Me permettez-vous de le télécharger(c'est fait), mais surtout de l'utiliser à des fins personnels pour le rajouter à un fichier "RECETTES" que j'ai créer AVEC BEAUCOUP D'AIDE DU FORUM (merci à eux tous)?
Merci par avance
Jean-Marie
 

JM27

XLDnaute Barbatruc
bonjour
merci pour votre appréciation.
Le code est libre d'accès .
pas de soucis pour le modifier et l'adapter à votre utilisation, a partir du moment ou vous l'utilisez à des fins personnelles, sans en faire commerce ( comme certains l'on fait avec d'autres fichiers que j'ai posté)
attention : utiliser le fichier qui est sur ce post car l'autre fichier situé sur l'espace "télécharger" comporte un petit bug ( je n'arrive pas à mettre à jour ce fichier dans cet espace ????)
 

Toubabou

XLDnaute Impliqué
Bonjour JM27,
Je vous remercie beaucoup pour votre retour. effectivement il ne sera utiliser qu'a des fins personnelles. Il sera rajouté à un fichier qui me permets d'enregistrer des recettes de cuisine. Fichier réalisé grâce à l'aide du Forum.
(Le bug dont vous parlé est -il le soucis pour ajouter de nouvelle harmonie?)
Merci beaucoup.
Jean-Marie
 

JM27

XLDnaute Barbatruc
Bonjour
le bug était dans le prélèvement des vins dans les casiers.
Par contre tu as mis le doigt sur un bug que je n'avais pas vu.
effectivement la modification des harmonies ne fonctionnait plus , ( une ligne était en commentaire)
c'est corrigé.
un autre était dans la combo conditionnement
si tu en trouve d'autres merci de le dire
 

Pièces jointes

  • Les vins Q.xlsm
    316.9 KB · Affichages: 112

Toubabou

XLDnaute Impliqué
Je viens de faire le tour pas trouvé la ligne en commentaire, ni la combo conditionnement tu pourrais m'éclairer?
Merci
Perso, j'aurais essayé de rajouter une photo des bouteilles rentrées, avec la possibilité d'imprimer une fiche complète par vins, avec toutes les informations.
J'ai juste sur ton fichier:
- modifié la mise en page de la feuille "MENU",
- rajouté dans la saisie de l'adresse la possibilité de renter simplement le "CODE POSTAL", un liste déroulante s'affiche pour choisir la ville.
- protéger le bouton RAZ par un MP
Jean-Marie
 

Pièces jointes

  • Les vins Vers. essai.xlsm
    1.6 MB · Affichages: 60

JM27

XLDnaute Barbatruc
bonjour
regardes dans l'userform modifier mes données

Code:
For Compteur = 0 To UBound(Tablo)
'                 Me.Controls("ComboHarmonie" & Compteur + 1) = Tablo(Compteur)
            Next

et dans l'linitialyse de l'userform il manquait:

Code:
 For Each Cell In .Range("T2:T" & .Range("T65536").End(xlUp).Row)
            Me.ComboConditionnement.AddItem (Cell)
        Next

et dans la macro Private Sub ListBoxVin_DblClick(ByVal Cancel As MSForms.ReturnBoolean)

il manquait
Code:
Me.ComboConditionnement = .Cells(Me.ListBoxVin.ListIndex + 2, 32)
 

Toubabou

XLDnaute Impliqué
Re,
Désolé, chez moi cela ne fonctionne toujours pas malgré tes changement,
Jean-Marie
 

Pièces jointes

  • Les vins Vers. essai.xlsm
    1.6 MB · Affichages: 59

JM27

XLDnaute Barbatruc
bonsoir
sur le fichier que tu as posté, les harmonies fonctionnent ( userform modifier mes données)
par contre tes modifs , je n'ai pas regardé.
ou as tu un pb ?
 

Pièces jointes

  • Les vins Vers. essai.xlsm
    1.5 MB · Affichages: 20

JM27

XLDnaute Barbatruc
J'ai testé avec un nouveau vin et rentré 3 harmonies
et cela fonctionne
précise ton pb
dans ta feuille donnée en colonne J figure tes trois harmonie avec un séparateur -
 

Pièces jointes

  • Les vins Vers. essai.xlsm
    1.5 MB · Affichages: 105

Statistiques des forums

Discussions
311 710
Messages
2 081 781
Membres
101 817
dernier inscrit
carvajal