XL 2021 Savez-vous planter les choux ?

[Constantin]

Bonjour à tous,
A la demande d'aspsy et sur les conseils de sylvanu, j'ai repris un fichier pour le compléter façon jardinier.
J'ai ainsi ajouté (partiellement) , dans la BaseJM, l'Oca du Pérou (travail en cours)
- Problème 1 : Je n'arrive pas à importer la photo de l'Oca dans le rapport. J'ai vu que JM27 avait expliqué comment faire mais, comme à mon habitude, je n'ai pas réussi.(explications trop succinctes pour un balbutiant comme moi)
- Problème 2 : L'affichage du (des) tableaux mentionnent "Réalisation:Jean-Marcel.H"=JM27 d'XLD ?). J'aimerai placer cette annotation dans un endroit qui ne gêne pas mais je suis incapable de le voir dans l'UserForm.

Je numérote les problèmes parce qu'il y en aura d'autres à venir...
Bien à vous,

 

[JM27]

bonjour
pourquoi as tu changé la taille de l'userform?
y a t'il une raison?

 

[Constantin]

Re...
- Problème 1 : J'arrive à voir mes ocas dans ma V4. Je vais donc pouvoir supprimer dans l'UserForm les Labels "image".
- 2 non résolu...
- 3 je vais créer deux ou 3 rubriques supplémentaires Dans "BaseJM" pour renseigner nature du sol recommandé, recommandations... et les entrants (Engrais, traitements éventuels...). Le problème pour moi sera d'incrémenter les Labels correspondants. (je crois que j'aurai besoin d'aide parce qu'il y a de quoi s'y perdre...
- Problème 4 : Relié au pb 1. Il y a 426 entrées dans la BaseJM donc 426 photos (un peu moins du fait des doublons entre SI et SER). Ne serait-il pas possible d'avoir un sous-dossier pour stocker ces jpg et qui serait placé dans le même dossier que mon potager V100 (il va falloir au moins ça !)
Sinon, utiliser des raccourcis ?
Et ben non ! Le code ne veut pas !
C'est quand même bien gênant... J'ai commencé à enrichir une photothèque. Ça va être long (mais je suis à la retraite...)
A bientôt,

 

[JM27]

tu n'as pas répondu à ma question ?

 

[Constantin]

Bonjour JM...
Je n'avais pas vu ton message...
J'ai changé la taille de l'UserForm pour pouvoir insérer toutes les recommandations en terme de sol, conseils, engrais, traitements...
Je n'avais pas répondu à ta question, et je te prie d'accepter mes excuses, mais toi non plus, tu ne m'a pas répondu à
- Problème 4 : Relié au pb 1. Il y a 426 entrées dans la BaseJM donc 426 photos (un peu moins du fait des doublons entre SI et SER). Ne serait-il pas possible d'avoir un sous-dossier pour stocker ces jpg et qui serait placé dans le même dossier que mon potager V100 (il va falloir au moins ça !)
En tous cas, ton travail est super !

 

[sylvanu]

Bonjour,
Un essai en PJ en ajoutant pour l'exemple :

NomDeLaPhoto = "Oca"                    ' Partie à enrichier pour faire corrélation plante/nom image

Bien sur il faudra quelque part une liste associant légumes / photos, comme ici savoir associer Oca du Pérou et Oca.jpg.
Ce qui donne pour l'exemple :

De par le code implémenté, il faut que le fichier XL et les images soient à la même place.
Sinon modifier cette ligne :

Me.ImageLégume.Picture = LoadPicture(ThisWorkbook.Path & "\" & NomDeLaPhoto & ".jpg")
par
Me.ImageLégume.Picture = LoadPicture(ThisWorkbook.Path & "\NomDossierImages\" & NomDeLaPhoto & ".jpg")

 

[sylvanu]

Re,
Je n'avais pas vu la liste des images. Sorry.
En PJ c'est rectifié avec :

NomLégume = Me.ComboLégumes
LigneNomphoto = Application.IfError(Application.Match(NomLégume, Sheets("BaseJM").[W:W], 0), 0)
If LigneNomphoto <> 0 Then NomDeLaPhoto = Sheets("BaseJM").Cells(LigneNomphoto, "W")

 

[JM27]

bonjour a tous
@Constantin
question 4
le mode d'emploi indique que tu mets toutes tes images ( jpg) dans le même répertoire que le fichier. et comme le dit Sylvanu tu peux changer les lignes qu'il à indiqué si tu souhaite faire un sous dossier

 

[Constantin]

Non parce que si certains noms sont identiques d'autres ne seront pas les mêmes en B et W. Par exemple nom en B = Alysson maritime nom du fichier jpg = Alysson
Quand au coup de l'écran, je n'ai pas compris (ou-bien c'est toi)...

 

[JM27]

A tester

 

[JM27]

bonjour
@sylvanu
tes lignes

LigneNomphoto = Application.IfError(Application.Match(NomLégume, Sheets("BaseJM").[W:W], 0), 0)
If LigneNomphoto <> 0 Then NomDeLaPhoto = Sheets("BaseJM").Cells(LigneNomphoto, "W")

ne servent a rien car le nom de la photo est récupéré dans la procédure RechercheDateSemis

 

[Constantin]

A tester

Bonjour Jean-Marcel,
J'ai testé et c'est très bien (je dirais même plus...) ! Il faudra juste être concis pour définir que les données de la BaseJM entrent dans ces deux cellules. A moins que l'UserForm s'agrandisse en fonction du nombre de lignes ?
J'ai testé aussi les propositions de Sylvanu sur la V4_1 mais je ne sais pas vraiment faire.
Le chemin de mon dossier (qui est sur le bureau) est le suivant :"C:\Users\Pierre\Desktop\Mon potager\". Je voudrais donc placer mon V5, parce qu'est celui-là que je vais garder, est sur le bureau :"C:\Users\Pierre\Desktop\
Je dois me mélanger entre les", les & etc... Bref, ça avorte à chaque fois. Pour l'instant "Mon potager" ne comporte qu’une dizaine de fichiers.
Mais bon , je fais avec et je suis déjà bien content que tu aies "pondu" un tel projet (qui plait bcp à ma jardinière d'épouse... Vive XLD !
Merci encore

 

[Constantin]

J'ai refait un test de raccourci installé sur le bureau et qui va chercher Mon Potager V5 dans le dossier "Mon Potager". Je ne sais pas pourquoi ça ne marchait pas hier mais aujourd'hui (soleil) ça marche. Donc inutile de pondre des codes infernaux.
You know what ? I'm happy !

 

[Constantin]

Re...
Par contre, l'UserForm n'est pas extensible. Je sais que j'ai mis un peu de baratin mais, pour certaines plantes (agrumes par ex.), il faut des tonnes de recommandations. Mais faire de la place à ce Label sans toucher à la taille de l'UserForm me semble compliqué.
Avec le fichier joint (Plante = Légumes / Oca du Pérou) ce sera sans doute plus explicite...
Le problème, avec ma vue basse, c'est que toutes ces fenêtres d'UserForm sont "encapsulées" dans un même UserForm... Si tu touches à l'une, tu modifies les autres. En gros, les grands doivent faire la même hauteur que les nains (et vice-versa).
Je sais, je suis pénible...
Bien cordialement et "vale" comme on dit en latin !

 

[Constantin]

J'ai oublié la PJ...