Autres creation d un fichier de gestion de cave a vin

mic35

XLDnaute Nouveau
Bonjour
Je souhaiterais automatiser mon fichier mais je sait pas du tout faire de vba mais j ai reussi a faire un formulaire que je souhaiterais automatiser .
Dans l’onglet « ma cave » il y a 92 cases cave droite et cave gauche .J’ai ajouter dans une cellule pour un futur bouton ajout case droite et case gauche .
Dans l’onglet liste j’ai répertorier plein de liste qui serviront de base pour les formulaires .Un onglet mouvement qui devra se remplir automatiquement grace au formulaire que j ai commencer en usuform 1
Dans l usuforme 1 il y a 4 bouton rouge
bouton nouveau millesime servira quand d’autre vin seront acheter et automatiquement cela ira remplir l onglet mouvement et l onglet ma cave et la partie aussi de l usuform 1 « quantité reel et quantitée achat prix » .Mais la partie haute de l usuform 1 recherche dans la cave servira a rechercher seulement les vin s qui sont deja dans la cave
Lusuform 1 je l ai intitule formulaire de saisie des vins .
En esperant que vous pourrez m 'aider.
pour info j ai excel 2007


Cordialement
 

Pièces jointes

  • gestion cave a vin.xlsm
    65.9 KB · Affichages: 52

JM27

XLDnaute Barbatruc
Bonjour
Je vois que tu as "pompé" sur un fichier du site.
https://www.excel-downloads.com/resources/cave-a-vins-avec-macro.1087/
Cela n'est pas interdit ;) et cela prouve que ca sert
Ton Userform est "vide"
penses tu que cela se fait tout seul : il faut un minimum de 15 jours de travail pour un connaisseur.
mais comme tu le dis:
mais je sait pas du tout faire de vba
Je crains que tu te lances dans une appli difficile!
bon courage!
Le tableau des millésimes est intéressant!( je l'intègre à mon fichier)
 
Dernière édition:

Wayki

XLDnaute Impliqué
Je complèterai le poste de @JM27 en donnant une piste :
Pour compléter un combobox, créez un tableau structuré de votre onglet liste, puis nommez le t_liste, et la macro donne ceci :
VB:
Private Sub UserForm_Initialize()
With Sheets("liste")
ComboBox2.List = .Range("t_liste[Type de vin]").Value
ComboBox5.List = .Range("t_liste[Régions]").Value
End With
End Sub
Revenez quand tout sera fait, on vous montrera comment associer une action à un bouton.
A +
 
Dernière édition:

mic35

XLDnaute Nouveau
Bonjour
Je vois que tu as "pompé" sur un fichier du site.
https://www.excel-downloads.com/resources/cave-a-vins-avec-macro.1087/
Cela n'est pas interdit ;) et cela prouve que ca sert
Ton Userform est "vide"
penses tu que cela se fait tout seul : il faut un minimum de 15 jours de travail pour un connaisseur.
mais comme tu le dis:

Je crains que tu te lances dans une appli difficile!
bon courage!
Le tableau des millésimes est intéressant!( je l'intègre à mon fichier)
Merci d avoir prit connaissance de mon sujet .De ton coté serait il possible de voir ton fichier Cordialement
 

mic35

XLDnaute Nouveau
Je complèterai le poste de @JM27 en donnant une piste :
Pour compléter un combobox, créez un tableau structuré de votre onglet liste :
VB:
Private Sub UserForm_Initialize()
With Sheets("liste")
ComboBox2.List = .Range("t_liste[Type de vin]").Value
ComboBox5.List = .Range("t_liste[Régions]").Value
End With
End Sub
Revenez quand tout sera fait, on vous montrera comment associer une action à un bouton.
A +
Je vais me lancer attention c est pas gagner mais merci quand meme je vous tiens informer de la suite
 

Discussions similaires

Réponses
3
Affichages
1 K