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

[Toubabou]

Et toujours pas possible d'insérer une photo de l'étiquette de la bouteille?
bonne soirée à vous deux
Jean-Marie

 

[JM27]

Bonsoir
Ou veut tu les mettre tes photos ?
Dans l'userform.
Dans ce cas il faut créer un répertoire au même niveau que le fichier comportant toutes les photos de étiquettes des bouteilles , on peut aussi créer un userform pour les visualiser.
C'est comme cela que tu le vois ?
pour ma part présente beaucoup de développement pour peut d’intérêt
regarde le fichier que je t'ai adapté au post#74 ( j'ai corrigé des erreurs, il peut y en avoir d'autres !😉) avec des feuilles créés représentant les casiers

 

[Toubabou]

Bonjour,
Je pensais pouvoir voir les étiquettes lors de la visualisation de la cave par exemple, au survol des casiers. Ils faudrait créer un dossier pour ces photos avec un code qui permettrait d'y avoir accès peut importe ou se trouve le dossier. Avec Thiswordpath par exemple.
Effectivement le post #74 est excellent.
Bonne journée

 

[JM27]

Bonjour
Avec photo en visualisant la cave ( clic sur la zone)
Mettre les photos sous le même répertoire que le fichier

 

[JM27]

Bonjour
@Webperegrino
Ci joint une version avec photo ( non obligatoire)
Avec photo en visualisant la cave ( clic sur la zone)
Mettre les photos sous le même répertoire que le fichier

 

[JM27]

Une petite modif

 

[Toubabou]

Bonsoir JM27
Merci encore pour votre travail. J'aurais besoin de quelques explications.
- Notamment sur la façon de procéder pour ajouter une image à plusieurs bouteille de vin.
- Est-il possible de mettre les photos dans un sous-dossier ?
Toubabou

 

[JM27]

Bonsoir
Quand tu saisi tes bouteille (rentrer en cave) tu as une zone de texte qui te permet d'inscrire le nom du fichier ( extension Jpeg) , mais il faut l'indiquer sans son extention.
Ce fichier doit être impérativement au même niveau que le fichier cave a vins. ( par soucis de simplification)
dans ton cas comme tu as déjà saisi des bouteilles , pour ne pas refaire cette saisi :

Dans la feuille données : sur la ligne des bouteilles concerné : inscrire le nom du fichier image ( sans son extension ) en colonne AG

Dans la feuille localisation : sur les ligne concernées ( une ligne par bouteille ) : inscrire le nom du fichier image ( sans son extension) en colonne X

si tu déclare une photo dans le fichier et que tu ne la met pas dans le dossier : pas de soucis : pas d'erreur.('c'est géré)

 

[Toubabou]

Super, je vais faire quelques essais et te tiens au courant.
Merci à nouveau pour ce super travail

 

[JM27]

De rien , je connais ta région , j'ai fait mon service militaire à Hettange

 

[Toubabou]

En gendarmerie ou Trans

 

[JM27]

Régiment Artillerie ( radariste)

 

[Toubabou]

J'ai terminé dans l'artillerie â Metz 39 ème EACA, au château de Mercy

 

[Webperegrino]

Bonjour,
Merci Jean-Marcel pour le fichier #80. Je vais l'étudier. Non, désolé, il ne m'était pas destiné (tout comme le #81) mais à Toubabou que je salue.

De mon côté j'ai amélioré, dans l'userform Entrée d'un vin, les dates mini et maxi qui sont proposées automatiquement selon ceci, avec la donnée du Combo Millésime :

Private Sub ComboAnnée_change()
Dim a As Integer
Dim cherche As String
cherche = ComboAnnée.Value
Dim c As Range, sh As Worksheet
    Set sh = Worksheets("Déroulants")
    Set c = sh.[AO:AO].Find(ComboRégion, LookIn:=xlValues, lookat:=xlWhole)
    TextBox1 = IIf(c Is Nothing, "", c.Offset(, 1))
    TextBox2 = IIf(c Is Nothing, "", c.Offset(, 2))
    TextBox3 = IIf(c Is Nothing, "", c.Offset(, 3))
    TextBox4 = IIf(c Is Nothing, "", c.Offset(, 4))
    TextBox5 = IIf(c Is Nothing, "", c.Offset(, 5))
    TextBox6 = IIf(c Is Nothing, "", c.Offset(, 6))
a = Sheets("Déroulants").Cells.Find(What:=cherche, LookIn:=xlValues, lookat:=xlWhole, SearchOrder:=xlNext).Row
'MsgBox a
For Each Cell In Sheets("Déroulants").[AO4:A021] ' & .Range("A65536").End(xlUp).Row)
  If ComboCouleur = "Rouge" Then
    If Cell = Me.ComboRégion And Right(Me.ComboAppellation, 9) <> "SUPERIEUR" And Cell.Offset(0, 2) = Me.ComboDésignation Then
      TxtDateMini.Value = TextBox3.Value + CDbl(cherche): TxtDateMaxi = TextBox4 + CDbl(cherche)
      TextBox1.Value = "": TextBox2.Value = "": TextBox5.Value = "": TextBox6.Value = ""
    End If
    If Cell = Me.ComboRégion And Right(Me.ComboAppellation, 9) = "SUPERIEUR" And Cell.Offset(0, 2) = Me.ComboDésignation Then
      TxtDateMini.Value = TextBox5.Value + CDbl(cherche): TxtDateMaxi = TextBox6 + CDbl(cherche)
      TextBox1.Value = "": TextBox2.Value = "": TextBox3.Value = "": TextBox4.Value = ""
    End If
    Else
    TxtDateMini.Value = TextBox1.Value + CDbl(cherche): TxtDateMaxi = TextBox2 + CDbl(cherche)
    TextBox3.Value = "": TextBox4.Value = "": TextBox5.Value = "": TextBox6.Value = ""
  End If
Next
End Sub

... avec un complément dans la feuille "Déroulant".
Je trouve cela pratique. s'il le faut, je corrige après les deux dates mini et maxi, avant de valider les saisies.
Je ne peux plus joindre mon fichier : il fait déjà 1000 ko !
Merci encore pour le partage

 

[JM27]

Bonjour
celui du #81 t'étais destiné : Cave A vins 20 lignes 20 colonnes.
essayes de poster ton fichier en l'allégeant et en le zippant.
je ne vois pas ou tu veux en venir sans voir le fichier.
a priori tu as fais un tableau indiquant les années mini et maxi par région et par couleur en fonction des appellations.
Est-ce vraiment une vérité ?, je ne suis pas un spécialiste du vin ( je n'en bois pas)
Pour moi il faudrait plutôt indiquer une date mini et maxi par appellation et par région.
en clair : il faudrait ajouter deux colonnes par appellation après chaque appellation dans la feuille déroulant indiquant ces dates , mais cela est un travail de forçat, engendrant une petite modif pour l'init des combos appellations .