Rechercher l'emplacement de son outillage --- Suite

Bonsoir le forum, bonsoir à toutes & à tous

Le 12/07 j'ai posté une demande qui a été réalisée par 2 membres (fanfan38 & Papy Henri pour ne pas les citer) et suivie par 2695 visiteurs. A ce jour, je suis toujours en brasse coulée avec les tableaux structurés et n'ai mis les mains dans le Vba depuis un certain temps.

A partir du fichier joint, je désirerais :

- Dans la feuille2 (Base), intégrer un bouton "Raz" (présent mais inefficace) afin de remettre toutes les données (outils) en police noire.

- Dans l'Usf, lors de l'ajout d'une catégorie (l'ex TextBox4), pouvoir aller rechercher la photo depuis un dossier inclus, qui disposera de plusieurs photos afférentes à la catégorie, depuis le TextBox5.

- Tjrs dans l'Usf, lors d'un clic sur une des catégories présentes dans la ListBox1, l'image principale (voir paragraphe ci-dessus) s'affiche dans le contrôle Image1. A l'aide d'un clic sur cette image, serait-il possible que les autres photos de cette catégories, s'affichent en bas du Usf (il n'y en aura guère plus de 4 photos) ?

- Enfin, dernière question, peut-on éviter que si je presse par inadvertance la touche "Enter" des TextBox2 & 3, l'on n'ait pas le développé de tous les emplacements des outils.

Vous remerciant grandement de l'attention que vous porterez à mes demandes. @micalement Eric

Désolé mais je ne peux joindre le dossier complet qui contient le fichier et les dossiers « photos » évoquées ci-dessus.

Bonne soirée à toutes & à tous

Bonjour

Ce fichier ne ressemble pas à ma programmation...

Donc:

Ton bouton RAZ écrit les outils en noir. Pourquoi?

Sur le post précédent le problème venait des photos qui n'était pas de vrai JPG...

il nous faut au moins une photo avec le nom du dossier (chemin complet... exemple: c:\Eric\photos\marteau.jpg)

A+ François

Bonjour le forum

Bonjour François. Il est exact que j'ai retenu le fichier de Papy Henri qui était un tout en un. Ne t'inquiète pas, j'ai gardé la V3 de ton fichier qui me sert à une autre utilisation (encore merci).

1/ J'ai quelque peu modifié le fichier d'Henri pour la recherche d'outils dans la feuille2 (Base qui normalement est nommée TS2). Comme dit, je ne maîtrise pas les T.S. Donc, la sélection de l'outil m'amène sur la feuille2 et l'objet est repéré de suite car de couleur de police Rouge. A l'aide du Btn "RAZ", je désire redonné à l'outil recherché une police noire.

2/ Le problème des photos est résolu, j'ai modifié le programme pour les photos soit en Jpeg.

3/ Les sous dossiers des photos seront inclus dans le dossier principal "Recherche Outillage V2". Dans la capture jointe, il n'y a, pour l'instant, que le s/dossier Soudure qui contiendra l'image principale (Contrôle Image1 du Usf) de la catégorie "Soudure" et 2 ou 3 images, toutes en Jpeg.

Lors du clic sur le contrôle Image1, je souhaiterais qu'apparaissent en bas du Usf, les 2 ou 3 images du S/dossier Soudure. Il sera de même pour les autres catégories des sous dossiers à venir.

Le dossier et les sous dossiers se trouveront dans le disque "D".

J'espère avoir été clair dans mes propos et te (& vous) souhaite une excellente journée malgré la pluie.

Re,

Ci joint ce que j'ai fait....

J'ai pas compris ton histoire d'image...

Chaque catégorie aura son dossier avec plusieurs images?

A+ François

Re François.

Excuses moi de dire cela mais j'aurais préféré que tu modifies le fichier joint, désolé de te dire cela mais j'avais quelques repères. Avec ton fichier, il va falloir que je me replonge dedans et ce pas facile pour moi, petit joueur qui tente de jouer dans le bac à sable des Grands.

Concernant les images. Elles vont être regroupées par sous dossiers placé dans le dossier principal qui contiendra le fichier à exécuter, des explications car je ne retiens pas facilement ce qui a été fait ET ses sous dossiers , donc oui chaque catégories aura son s/dossier avec plusieurs images. Ce que je voudrais, c'est que lorsque je sélectionne une catégorie dans la ListeBox1, la première photo du s/dossier nommée "Photo1" s'affiche dans le contrôle Image1. Ensuite, si je clique dans le contrôle "Image1", les autres photos prendront placent dans des contrôles "Image" qui apparaitront en fonction du nombre d'images contenues dans le s/dossier concerné. Pas trop clair ces explications mais je ne vois rien d'autre à dire.

Sous dossier "Soudure" - Contenu : Photo1 - Pompe à dessouder - Tresse -

Sous dossier "Pinces" - Contenu : Photo1 - Pince coupante - Pince étau

Sous dossier "Divers" - Contenu : Photo1 - Marteau - Mèche

Etc

@micalement Eric

Bonjour le fil,

@Ericcool02, j'ai essayer de faire ce que j'ai pu avec la compréhension que j'avais de votre demande, sur votre fichier

Tenez-nous informé

Cordialement

Re le forum, François

Bonjour JExcel2Fr et grand Merci pour cette participation. Bon, petit à petit le fichier va prendre forme. c'est déjà un bon début pour le bouton RAZ, merci à toi ou à vous.

Par contre, comment, lorsque je clique sur l'un des articles des catégories (Ex : Soudure) du LisBox1, aller rechercher la photo de cette catégories qui se trouve dans le sous dossier "Soudure" et qui se nomme "Photo1.Jpeg" ? Déjà, est-ce faisable ?

De plus, lorsque cette image se trouve présente dans le contrôle "Image1", comment, à l'aide d'un clic sur l'image, faire apparaître les autres photos du sous dossier concerné ?

@micalement Eric

Re,

Avec un scrollbar pour changer d'image

A+ François

Re le fil

@François : Waouhhhhh ... C'est exactement ce que je désire. Je teste ce soir et te dis quoi. Beau travail de fond. Grand MERCI à toi.

Ne voyant pas les photos du s/dossier, je me suis aperçu dans le code que celui-ci recherchait des types Jpg alors que je dispose de photos jpeg. Cela est réglé.

Je vais tester ce soir en ajoutant un ou deux s/dossiers et un ajout de catégorie et te dis quoi. Beau travail car tu t'es approprié un fichier qui n'est pas de toi.

A ce soir.

Eric

Re,

De retour à la maison, voici comment je vois la chose si j'ai bien compris, mais peut-être que je me trompe

1) dans le dossier principal, des sous-dossiers pour les différentes images

2) Dans le sous-dossier Soudure (par exemple)
- une image nommée toujours pareil "_Photo1.jpeg" qui représente la catégorie sélectionnée
- des images qui portent les mêmes noms que ceux qui sont indiqués dans l'onglet base de la catégorie

Déroulement (toujours si j'ai bien compris)
1) Vous sélectionnez la catégorie, cela vous affiche "_Photo1.jpeg" = image de la catégorie
2) Vous sélectionnez l'outil, cela vous affiche "xxx.jpeg" = image de l'outil

Voici le fichier ainsi modifié

Et un petit GIF de démonstration

Je ne met pas à jour les différents Textbox, je pense que vous savez le faire

Par contre, derrière tout ca, vous allez avoir une BdD, sinon je ne vois pas l'intérêt

A+

Re le forum

Re François & JExcel2fr

Grand Merci à tous les deux pour votre haute compétence. J'aurais tendance à retenir le fichier de notre ami JExcel2fr pour la recherche intuitive des photos des s/dossier mais dès demain, je vais poursuivre mes essais.

@JExcel2fr : je ne comprend pas le sens des 2 phrases :

Je ne met pas à jour les différents Textbox, je pense que vous savez le faire

Par contre, derrière tout ca, vous allez avoir une BdD, sinon je ne vois pas l'intérêt

Quelles mises à jour faut-il effectuer ?

Je ne désire pas de BdD, où serait l'intérêt ?

Bonne soirée à toutes & à tous et encore Grand Merci à vous deux.

Je reviens demain dès que je peux.

Salut Ericcool02

Je ne met pas à jour les différents Textbox, je pense que vous savez le faire

Dans le code existant, vous remplissez différents Textbox avec par exemple, le nom du fichier, etc..
Je n'ai rien modifié à ce niveau, peut-être en avez-vous besoin, c'est tout

Je ne désire pas de BdD, où serait l'intérêt ?

Si vous n'en voyez pas, c'est que je n'ai pas compris l'utilité du fichier, désolé.

A+

Bonjour le forum

Bonjour François, JExcel2fr

Il n'y avait qu'une TextBox (4) que j'avais modifiée en "Catégorie", C'est tout. Ce fichier me sera utile car j'ai tendance à avoir beaucoup d'outils que je disperse dans des caisses (je ne suis pas organisé), donc pas besoin de BdD.

J'ai remarqué que des erreurs surviennent dans les frames : "Ajouter outillage" : J'ai créé un s/dossier "Divers" et y ait placé une photo .jpeg. Si je veux l'intégrer dans la base, j'entre marteau puis dans l'explorer qui apparaît, je tape sur marteau.jpeg. A cet instant, la photo disparaît du s/dossier qui se retrouve vide. Manuellement, je recherche la photo du marteau qui est bien présente à sa place et clique sur le bouton "Valider" qui génère une erreur "Objet spécifié introuvable" avec la ligne suivante surlignée : If Me.Controls(Arr(A))="" Then.

De même dans la frame1 "Gestion Outillage", l'outil sélectionné dans le TextBox Modifier/Supprimer n'apparaît pas. Si j'ajoute un outil, je dois renseigner la catégorie puis mettre un nouvel outil dans la TextBox Modifier/Supprimer. Lors de l'appui sur le bouton Modifier, une erreur survient "Utilisation incorrecte de Null - Ligne surlignée : Cat = Me.ListBox.Value.

Comme je l'ai dit, je ne gère pas les T.S et ne sais que modifier.

Merci à vous et bonne journée

@micalement Eric

Re le fil

Comme je l'ai dit dans le fil de 10H35, je suis mal organisé et il m'arrive souvent de chercher un outil que je possède mais j'ai mis où ??????

Afin de contrer cette tare, j'ai acheté de grandes caisses disposées sur des étagères et qui renferment "mes trésors". Par ailleurs je dispose de grands casiers et nombreux tiroirs. J'ai photographié les différents éléments de mon garage pour avoir à chaque éléments photographiés une photo de garde :

-- (_Photo1pour la catégorie du s/dossier : mécanique) puis pied à coulisse ou pointeau .... (je dis n'importe quoi pour rester dans les clous). Ensuite je photographie les 2 outils et leur attribue un nom de fichier jpeg.

-- Cependant, il peut m'arriver d'ajouter un nouvel outil dans la caisse ou tiroir ou autre. Donc je désire photographier cet outil pour l'ajouter à l'une des catégories. A l'inverse, il se peut que je désire me séparer d'un outil qui ne m'est plus utile et donc le supprimer de la catégorie ad hoc.

Selon la conception du fichier de @JExcel2fr, j'aimerais conserver le fait que l'image apparaisse lors de sa sélection dans ListBox2. Par ailleurs, au vu du code, il me semble que je doive nommer la photo, objet de la catégorie par _Photo1 pour chaque sous/dossier ? Me suis trompé ?

J'espère avoir été clair. ... Pas évident lorsque l'on est seul devant son PC pour TENTER d'expliquer ce que l'on veut.

@micament Eric -

Salut Eric,

"_Photo1" dans chaque sous-dossier permet d'afficher la catégorie du sous-dossier, par exemple la photo de quelqu'un qui soude pour la catégorie Soudure
Mais cela peut être la photo de la caisse ou du tiroir ou vont être rangés les accessoires de soudure

D'après ce que je lis, ce que j'appelle "BdD" est en fait chez toi, l'onglet Base ou chaque catégorie est inscrite avec les différents accessoires dedans

Maintenant que j'ai compris, je regarderais ce soir pour les différentes permutations ou ajout que tu peux souhaiter

A+

Re JExceL2fr. C'est sympa et je te remercie pour ton investissement qui a l'air de servir et servira à de nombreux autres utilisateurs.

Oui, j'avais bien compris qu'il fallait que je choisisse ET nomme pour chaque catégories, la photo qui la représente par (_Photo1).

Oui, c'est vrai que la BdD me sert à aller visionner rapidement l'outil dans celle-ci car sa police de caractère est "rouge". C'est aussi la raison pour laquelle tu as placé le code du bouton "RAZ", une fois ma recherche terminé.

Du travail de Pro. Grand Merci à toi ainsi qu'aux contributeurs.

Bonne fin de journée

@micalement Eric

Salut Eric,

Bon j'ai revu quelque peu ma copie... tu vas voir il y a un peu de changement j'espère que cela te conviendra !

- Nouvel outil dans la catégorie fonctionne

- Modifier/supprimer un outil, fonctionne
Pour supprimer un outil, après l'avoir sélectionné il vient s'inscrire dans le TextBox, si tu ne changes rien au libellé, c'est que tu veux le supprimer

- Ajout d'une catégorie, fonctionne
Lorsque tu vas cliquer sur le bouton [Valider] le code va te demander l'image à utiliser pour la catégorie, puis l'image à utiliser pour l'outil.
Il faudra peut-être affiner cette partie

- La recherche de l'outil fonctionne, on pourrait éventuellement se positionner dessus, mais est-ce utile

Voici le fichier

Cordialement

Re LExceL2fr

Merci de ne pas tenir compte de ma première question. Le choix de la photo de la catégorie sélectionnée apparaît bien lors de son activation. Désolé. La fatigue sans doute et certainement l'inversion de _Photo1 avec _1Photo .

Eric

Salut Eric,

Mon Pseudo c'est JExcel2Fr... pour J'excelle en Excel (un très bon livre)

Tu as juste à changer la Sub Cbn_Recherche_Click() dans ton USF par

Private Sub Cbn_Recherche_Click()
  Dim Cel As Range
  ' Chercher l'outil en question
  For Each Lc In Lo.ListColumns
    For Each Cel In Lc.DataBodyRange
      If Trim(Cel.Value) = Me.Cbx_Outils Then
        MsgBox "Cet outil se trouve dans la colonne " & Lc.Index & " ligne " & Cel.Row - 1
        Cel.Font.Color = vbRed
        Ws.Activate
        Cel.Select
      End If
    Next Cel
  Next Lc
End Sub

A+