Icône de la ressource
Cave à vins ( avec macro) 2018-03-08
- Initiateur de la discussion JM27
- Date de début
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
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 casiersBonjour,
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
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
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
@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
Pièces jointes
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é)
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é)
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 :
... 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
Merci Jean-Marcel pour le fichier #80.
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 :
VB:
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 SubJe 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
Pièces jointes
Dernière édition:
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 .
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 .
Dernière édition:
