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

[JM27]

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]

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]

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

 

[Toubabou]

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

 

[JM27]

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

 

[Toubabou]

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]

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]

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

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]

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

 

[JM27]

Bonjour

 

[Toubabou]

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

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

 

[Toubabou]

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]

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]

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]

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.