Gestion cave a vin

Bonjour

Je cherche depuis plusieurs jours, un fichier de gestion de cave, mais avec le rangement des bouteilles dans des casiers, car je voudrais essayer de le creer pour ma cave

QQ'un peut il m'aider

Alain

Bonjour,

A tout hasard

Cdlt

Merci Jean Eric

Mais je souhaiterais avoir une solution avec excel VBA afin que je puisse creer ma cave à partir d' exemple.

Cdt

Alain

Hummmmm tu me feras goûter ?

une feuille, que des colonnes simples, avec en première ligne les titres suivants (à adapter) :

  • cru
  • nom du vin
  • année
  • date d'achat (entrée dans ta cave)
  • date à ne pas dépasser (vin à boire +/- rapidement)
  • contenance des flacons
  • nombre de flacons restant
  • lieu de conservation (si ta cave est grande=casiers)
  • note sur 20
  • tes observations au fut et à mesure des dégustations

à chaque achat tu crées une ligne nouvelle

ensuite, Exce dispose du menu Données pour te permettre de faire des tris et des filtres

Ho oui, c'est toujours convivial autour d'une bonne bouteille (à boire avec modération).

Ce que j'aurai voulu c'est que je puisse "impacter" le nombre de bouteille dans des cases figurant mes casiers, mais automatiquement.

Que je puisse visualiser mes casier.

Merci

facile

tu fais comme suggéré ci-dessus, tu fais menu Données/filtre sur la colonne "casier" (qui peut remplacer "lieu de conservation" si tu as bien lu)

et hop !

Ok merci

Je vais tester mais dans qq jours

Alain

Bonjour à tous, Salut alkacefa17

J'ai un fichier qui pourrais te plaire

A+

5'218gestion-de-cave-1-01.zip (210.98 Ko)

Bonsoir Alkacefa17 et le forum,

Je peux me joindre à vous? Car je suis aussi amateur de vin.

Voilà déjà quelque temps que j'avais proposé un fichier pour la gestion d'une cave.

Voici en PJ mon fichier.

Cdt

Henri

Bonjour Alkacefa17 et le forum,

Une petite rectif au fichier que j'ai joint hier soir.

Modifier le module TRI par ceci :

[Sub Régions()
'
' Indexation par région
' Macro enregistrée le 08/09/05 et rectifiée le 03/10/12 par Henri Le Luron
   Range([A6], [Q65536].End(xlUp)).Select
    ActiveWorkbook.Worksheets("Livre de cave").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Livre de cave").Sort.SortFields.Add Key:=Range([B6], [B65536].End(xlUp)), _
    SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Livre de cave").Sort
        .SetRange Range([A5], [Q65536].End(xlUp))
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("A1").Select
End Sub
Sub Millésimes()
'Indexation par Millésimes
   Range([A6], [Q65536].End(xlUp)).Select
    ActiveWorkbook.Worksheets("Livre de cave").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Livre de cave").Sort.SortFields.Add Key:=Range([C6], [C65536].End(xlUp)), _
    SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Livre de cave").Sort
        .SetRange Range([A5], [Q65536].End(xlUp))
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("A1").Select
End Sub
Sub Quantité()
'Indexation par Quantité restante
Range([A6], [Q65536].End(xlUp)).Select
    ActiveWorkbook.Worksheets("Livre de cave").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Livre de cave").Sort.SortFields.Add Key:=Range([D6], [D65536].End(xlUp)), _
    SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Livre de cave").Sort
        .SetRange Range([A5], [Q65536].End(xlUp))
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("A1").Select
End Sub
Sub Robe()
'Indexation par Type de vin
    Range([A6], [Q65536].End(xlUp)).Select
    ActiveWorkbook.Worksheets("Livre de cave").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Livre de cave").Sort.SortFields.Add Key:=Range([A6], [A65536].End(xlUp)), _
    SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Livre de cave").Sort
        .SetRange Range([A5], [Q65536].End(xlUp))
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("A1").Select
End Sub

Sub Appellation() 'Indexation par Appellation
    Range([A6], [Q65536].End(xlUp)).Select
    ActiveWorkbook.Worksheets("Livre de cave").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Livre de cave").Sort.SortFields.Add Key:=Range([E6], [E65536].End(xlUp)), _
    SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Livre de cave").Sort
        .SetRange Range([A5], [Q65536].End(xlUp))
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("A1").Select
End Sub

Afin de l'adapter à la version excel 2007 et plus.

cdt

Henri

Bonjour

J'ai mis en application ton fichier et Je suis en train de l'adapter à ma cave.

Merci pour votre aide

Alain

Bonjour,

Ce fichier date un peu mais il m'est très utile à condition de le maintenir à jour régulièrement.

Bonne Foire aux Vins si ce n'est déjà fait.

Cdt

Henri

AFEH a écrit :

Bonjour Alkacefa17 et le forum,

Une petite rectif au fichier que j'ai joint hier soir.

Modifier le module TRI par ceci :

[Sub Régions()
'
' Indexation par région
' Macro enregistrée le 08/09/05 et rectifiée le 03/10/12 par Henri Le Luron
   Range([A6], [Q65536].End(xlUp)).Select
    ActiveWorkbook.Worksheets("Livre de cave").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Livre de cave").Sort.SortFields.Add Key:=Range([B6], [B65536].End(xlUp)), _
    SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Livre de cave").Sort
        .SetRange Range([A5], [Q65536].End(xlUp))
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("A1").Select
End Sub
Sub Millésimes()
'Indexation par Millésimes
   Range([A6], [Q65536].End(xlUp)).Select
    ActiveWorkbook.Worksheets("Livre de cave").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Livre de cave").Sort.SortFields.Add Key:=Range([C6], [C65536].End(xlUp)), _
    SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Livre de cave").Sort
        .SetRange Range([A5], [Q65536].End(xlUp))
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("A1").Select
End Sub
Sub Quantité()
'Indexation par Quantité restante
Range([A6], [Q65536].End(xlUp)).Select
    ActiveWorkbook.Worksheets("Livre de cave").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Livre de cave").Sort.SortFields.Add Key:=Range([D6], [D65536].End(xlUp)), _
    SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Livre de cave").Sort
        .SetRange Range([A5], [Q65536].End(xlUp))
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("A1").Select
End Sub
Sub Robe()
'Indexation par Type de vin
    Range([A6], [Q65536].End(xlUp)).Select
    ActiveWorkbook.Worksheets("Livre de cave").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Livre de cave").Sort.SortFields.Add Key:=Range([A6], [A65536].End(xlUp)), _
    SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Livre de cave").Sort
        .SetRange Range([A5], [Q65536].End(xlUp))
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("A1").Select
End Sub

Sub Appellation() 'Indexation par Appellation
    Range([A6], [Q65536].End(xlUp)).Select
    ActiveWorkbook.Worksheets("Livre de cave").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Livre de cave").Sort.SortFields.Add Key:=Range([E6], [E65536].End(xlUp)), _
    SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Livre de cave").Sort
        .SetRange Range([A5], [Q65536].End(xlUp))
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("A1").Select
End Sub

Afin de l'adapter à la version excel 2007 et plus.

cdt

Henri

bonjour

vous est il possible de rentrer vos lignes dans le fichier excel et de le remettre en téléchargement svp ?

merci d'avance et encore merci pour le prg de gestion de cave

bonjour

il serai pertinent de prevoir une colonne mentionnant "avalée"

cordialement

Bonjour,

J'ai fait la Màj.

Je viens de tester la "suppression de Millésimes" qui me renvoie à une suppression de d’appellation. Je remarque que si l'appellation est entre deux autres par exemple, l’appellation est bien supprimée mais la ligne reste vide entre les deux autres!

Cdt

Alain

Bonsoir Alain

Désolé pour la réponse tardive mais j'étais absent ces jours-ci .

Personnellement je préfère utiliser le bouton "Suppression des millésimes épuisés".

Voici en P.J. un fichier issu du mien.

A tester

Cdt

Henri

164cave.xlsm (84.32 Ko)

Bjr,

Merci pour la reponse. OK

Cdt

Alain


Re-Bjr

En approfondissant, j'aurais bien voulu rajouter le "à consommer avant le" mais je n'ai pas accès au formulaire pour le rajouter. Y a t il un mot de passe ou bien peut on y acceder autrement.

Merci

Cdt

Alain

Bonjour Alain,

Voici un exemple (A consommer avant le: DEC 2019)

Cdt

Henri

110cave-v2.xlsm (85.91 Ko)

Bjr, Merci, cela me convient.

Cdt

Alain

Bonjour à tous,

A tous ceux qui ont téléchargé la version Cave_V2, vous avez surement remarqué que tout n'était pas bon.

Voici la version V2bis qui corrige les anomalies et améliore le projet.

Bon week-end

Cdt

Henri

275cave-v2bis.xlsm (94.62 Ko)
Rechercher des sujets similaires à "gestion cave vin"