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

JM27 · 29 Juillet 2020

Bonjour
est ce que tu as mis les photos sous "C:\Users\djodj\Dropbox\Recettes\Compléments\Photos vins\"
Liée à ce fichier ( comme demandé au post #91)
Par contre le message de photo non trouvé n'était pas correct.
Pour info: je ne suis pas partisan d'avoir un chemin écrit en dur dans la macro ( si tu change de micro ou de répertoire tu auras des pb) a toi de voir.
Je préfère mettre mes photo sous le même répertoire que le fichier

Toubabou · 29 Juillet 2020

JM27 à dit:
Bonjour
est ce que tu as mis les photos sous "C:\Users\djodj\Dropbox\Recettes\Compléments\Photos vins\"
Liée à ce fichier ( comme demandé au post #91)
Par contre le message de photo non trouvé n'était pas correct.
Pour info: je ne suis pas partisan d'avoir un chemin écrit en dur dans la macro ( si tu change de micro ou de répertoire tu auras des pb) a toi de voir.
Je préfère mettre mes photo sous le même répertoire que le fichier

Bonjour.
Tout à fait d'accord avec toi pour le chemin en dur. Mais je ne sais pas faire correctement. Oui les photos sont aux bonnes endroits

JM27 · 29 Juillet 2020

bonsoir peux tu faire une capture d'écran pour voir ?

Toubabou · 29 Juillet 2020

Je n'arrive plus à ouvrir mon fichier/
message d'erreur

JM27 · 29 Juillet 2020

Bonsoir
je te proposes de reprendre ton dernier fichier qui fonctionnait à l'origine

Toubabou · 29 Juillet 2020

Oui je pense que c'est ce que je vais faire. Je voulais adopter le poste #130 de Webperegrino mais j'ai dû beugger à quelques part
Bonne soirée

JM27 · 30 Juillet 2020

Bonjour
si il y a plusieurs pilotes dans l'avion et qu'ils ne prennent pas la même direction, forcément cela se passe mal.
malgré tout, toutes les propositions d'amélioration sont bonnes a prendre.
Après analyses , je peux essayer de les intégrer à mon appli.( ou pas) par exemple : T°C , date de consommation, potentiel de conservation ,photo , etc.
pour ceux qui souhaites apporter des modifs sur le programme , il le peuvent , mais en cas de pb , a eux d'y remédier.

Toubabou · 3 Août 2020

Bonsoir à vous deux
JM27, pourriez-vous contrôler le code suivant j''ai un problème de fonctionnement avec comme erreur:

Code:

Sub GestionDesFeuillesCasiers()
    Dim Cell As Range
    Dim cellule As Range
    With Sheets("Déroulants")
         For Each Cell In .Range("I2:I" & .Range("I1000").End(xlUp).Row)
            Sheets(Cell.Value).Range("B4:T23") = ""
            Sheets(Cell.Value).Range("B4:T23").Interior.Pattern = xlNone
         Next
    End With
           With Sheets("Localisation")
          
         For Each cellule In .Range("A2:A" & .Range("A" & Rows.Count).End(xlUp).Row)

                      .Cells(cellule.Offset(0, 10) + 3, cellule.Offset(0, 11) + 1) = _
                                cellule & Chr(10) & _
                                cellule.Offset(0, 1) & " - " & cellule.Offset(0, 3) & " de " & cellule.Offset(0, 4) & Chr(10) & _
                                cellule.Offset(0, 2) & Chr(10) & _
                                "Acheteur : " & cellule.Offset(0, 19) & Chr(10) & _
                                "Cote : " & cellule.Offset(0, 20) & Chr(10) & _
                                cellule.Offset(0, 23) & " - DLC : " & cellule.Offset(0, 6) & Chr(10) & _
                                cellule.Offset(0, 14)

                    
          
                For Each cellule In .Range("A2:A" & .Range("A" & Rows.Count).End(xlUp).Row)
                    If .Range("A2") = "" Then Exit Sub
                    With Sheets(cellule.Offset(0, 9).Value) '*********** Bug !
                      ' .Unprotect
                      .Cells(cellule.Offset(0, 10) + 3, cellule.Offset(0, 11) + 1) = _
                                cellule & Chr(10) & _
                                cellule.Offset(0, 1) & " - " & cellule.Offset(0, 3) & " de " & cellule.Offset(0, 4) & Chr(10) & _
                                cellule.Offset(0, 2) & Chr(10) & _
                                "Acheteur : " & cellule.Offset(0, 19) & Chr(10) & _
                                "Cote : " & cellule.Offset(0, 20) & Chr(10) & _
                                cellule.Offset(0, 23) & " - DLC : " & cellule.Offset(0, 6) & Chr(10) & _
                                cellule.Offset(0, 14)
                        If cellule.Offset(0, 6) <= Year(Date) Then
                            .Cells(cellule.Offset(0, 10) + 3, cellule.Offset(0, 11) + 1).Interior.Color = 255
                        End If
                     '  .Protect
                    End With
                Next
           End With
End Sub

Merci par avance
Toubabou

Webperegrino · 4 Août 2020

Le Forum, Toubalou,
Une proposition...,
Cordialement,
Webperegrino

JM27 · 4 Août 2020

Bonjour

Toubabou · 4 Août 2020

Webperegrino à dit:
Le Forum, Toubalou,
Une proposition...,
Cordialement,
Webperegrino

Bonjour Webperigrino,
Merci beaucoup, je serai dans l'attente de vos modifications
Bonne journée

Toubabou · 4 Août 2020

JM27 à dit:
Bonjour

Bonjour JM27
Merci beaucoup, Juste une question:
Est-il possible que l'image dans l'UserForm "Visualiser mes casiers" s'adapte automatiquement aux dimensions de cette UserForm, qui changent en fonction du nombre de lignes et colonnes?
Merci
Bonne journée
Toubabou

JM27 · 4 Août 2020

Bonjour
@Toubabou
Pas tout compris
Cela voudrait dire que si tu as un casier de 2X2 (oui j'exagère)
que ta photo serais au format d'un casier de 2X2 ( toute petite image) ?
C'est cela ?

Toubabou · 4 Août 2020

JM27 à dit:
Bonjour
@Toubabou
Pas tout compris
Cela voudrait dire que si tu as un casier de 2X2 (oui j'exagère)
que ta photo serais au format d'un casier de 2X2 ( toute petite image) ?
C'est cela ?

Euh oui si c'est possible

JM27 · 4 Août 2020

Bonsoir
Après avoir regardé avec attention: beaucoup de pb de réalisation pour un résultat qui risque de poser beaucoup d'anomalies , c'est réalisable mais est-ce que le jeu en vaut la chandelle.
je n'ai pas envie de m'y risquer .
de plus j'ai réfléchi pour avoir des casiers en 3 dimensions( profondeur à ajouter) : beaucoup de pb pour afficher les casiers, ainsi que la feuille associé à ceux ci : pb de représentations des casiers.
en plus de la complexité pour ranger les bouteilles dans les casiers.

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

JM27

XLDnaute Barbatruc

Toubabou

XLDnaute Impliqué

JM27

XLDnaute Barbatruc

Toubabou

XLDnaute Impliqué

JM27

XLDnaute Barbatruc

Toubabou

XLDnaute Impliqué

JM27

XLDnaute Barbatruc

Toubabou

XLDnaute Impliqué

Pièces jointes

Webperegrino

XLDnaute Accro

Pièces jointes

JM27

XLDnaute Barbatruc

Pièces jointes

Toubabou

XLDnaute Impliqué

Toubabou

XLDnaute Impliqué

JM27

XLDnaute Barbatruc

Toubabou

XLDnaute Impliqué

JM27

XLDnaute Barbatruc

Discussions similaires

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

XLDnaute Barbatruc

XLDnaute Impliqué

XLDnaute Barbatruc

XLDnaute Impliqué

XLDnaute Barbatruc

XLDnaute Impliqué

XLDnaute Barbatruc

XLDnaute Impliqué

Pièces jointes

XLDnaute Accro

Pièces jointes

XLDnaute Barbatruc

Pièces jointes

XLDnaute Impliqué

XLDnaute Impliqué

XLDnaute Barbatruc

XLDnaute Impliqué

XLDnaute Barbatruc

Discussions similaires

Privacy & Transparency

Privacy & Transparency