XL 2016 affichage des données d'un formulaire avec image

[hanane123456789]

Bonsoir tous le monde,

Je veux ajouter une photo pour chaque référence pour que je puisse, à chaque fois que j'effectue une recherche en fonction de la référence, le formulaire s'affiche avec les données et la photos.
Vous trouverez ci-joint le plan que j'ai pu réalisé à l'aide du vba.

je serai ravie si vous pouviez m'aider.

 

[Argos88620]

Bonjour hanane

C'est encore Argos qui si colle
Un essai avec des petites modifs dans ton code (certainement encore choses a revoir)
doubleclic sur une ref
par l'imputbox ca fonctionne pas comme ca le devrait ( a revoir, je n'ai voulu tout modifier dans ton travail)
Teste sur emplacments A. B. et ROOF

Slts

 

[hanane123456789]

Bonjour hanane

C'est encore Argos qui si colle
Un essai avec des petites modifs dans ton code (certainement encore choses a revoir)
doubleclic sur une ref
par l'imputbox ca fonctionne pas comme ca le devrait ( a revoir, je n'ai voulu tout modifier dans ton travail)
Teste sur emplacments A. B. et ROOF

Slts

Bonjour Argos

Merci beaucoup encore une fois pour votre aide précieuse, c'est ce que je voulais.
Juste un petit problème, quand je clique sur voir sur plan, la page ne s'affiche pas automatiquement. Aussi dans le formulaire à chaque fois l'image change quand je saisi la même référence, vous avez une idée sur comment je peux régler ceci?

 

[Argos88620]

Bonjour hanane,

Comme je l'ai dit dans mon 1er post (par l'imputbox ca fonctionne pas comme ca le devrait) .
Quant tu reviens sur l'onglet "recherche" au lieu de saisir une référence clique sur annuler puis fais un
doublecilck sur la ref que souhaites afficher.

Réglé : aller sur le plan

Slts

 

[hanane123456789]

Bonjour hanane,

Comme je l'ai dit dans mon 1er post (par l'imputbox ca fonctionne pas comme ca le devrait) .
Quant tu reviens sur l'onglet "recherche" au lieu de saisir une référence clique sur annuler puis fais un
doublecilck sur la ref que souhaites afficher.

Réglé : aller sur le plan

Slts

Bonjour Argos,

Merci beaucoup, je me sens un peu bête parce que je sais pas comment faire pour insérer les photos comme vous l'avez fait?

 

[Argos88620]

RE

placer les images dans un répertoire pour que ce soit plus simple de les retrouver ( le rep ou se trouve le fichier "plan outils"
par ex.) Réduire le poids des images pour ne pas faire un fichier trop gros.

dans le ruban
onglet développeur passer en mode création
insérer contrôles ActiveX >>>> image

sur l'image vide clic droit >>>> propriétés

ligne: picture (aucun) >>>> a droite ... aller chercher l'image souhaitée
ligne: PictureSizeMode>>>>>fmPictureSizeModeStretch pour remplir tout le cadre
A répéter pour chaque image bien sur

PS: On est pas bête , on apprends touts les jours et à tout age

Slts

 

[hanane123456789]

RE

placer les images dans un répertoire pour que ce soit plus simple de les retrouver ( le rep ou se trouve le fichier "plan outils"
par ex.) Réduire le poids des images pour ne pas faire un fichier trop gros.

dans le ruban
onglet développeur passer en mode création
insérer contrôles ActiveX >>>> image

sur l'image vide clic droit >>>> propriétés

ligne: picture (aucun) >>>> a droite ... aller chercher l'image souhaitée
ligne: PictureSizeMode>>>>>fmPictureSizeModeStretch pour remplir tout le cadre
A répéter pour chaque image bien sur

PS: On est pas bête , on apprends touts les jours et à tout age

Slts

Bonjour Argos,
ça marche, merci beaucoup. J'ai un petit problème : les photos que je veux coller ne sont pas détecter parce qu'elles sont trop petites je pense ?

 

[Argos88620]

Bonjour hanane,

C'est peut-être du au format de tes images tout simplement (format .jpg par exmple est tès bien accepté)

De toutes manière cette façon de faire est ingérable, hé oui !, je n'avais pas percuté que tu avais quasiment 800
références. Quel boulot !, sans parler de la taille du fichier.

Cette proposition te permetra de d'avoir une seule image et de la charger directement dans le répertoire
J'espère que tu n'as pas passé ton temps sur la 1ère façon qui est bonne a condition d'avoir que quelques images

Slts

 

[hanane123456789]

Bonjour hanane,

C'est peut-être du au format de tes images tout simplement (format .jpg par exmple est tès bien accepté)

De toutes manière cette façon de faire est ingérable, hé oui !, je n'avais pas percuté que tu avais quasiment 800
références. Quel boulot !, sans parler de la taille du fichier.

Cette proposition te permetra de d'avoir une seule image et de la charger directement dans le répertoire
J'espère que tu n'as pas passé ton temps sur la 1ère façon qui est bonne a condition d'avoir que quelques images

Slts

j'ai essayé et ça marche pas de, pourriez vous m'expliquer comment je peux faire pour télécharger tous les fichiers ? mais le problème est que comment je peux affecter chaque image à sa référence ?

 

[Argos88620]

Bonnjour hanane,

Voici un fichier un peu modifié qui fonctionne.

Slts

 

[hanane123456789]

Bonnjour hanane,

Voici un fichier un peu modifié qui fonctionne.

Slts

Bonjour Argos,

Je ne sais pas comment vous remerciez pour votre aide,je vous remercie énormément. Si vous pouvez juste me dire comment je peux importer les images et affecter chaque image à sa référence ? ( les étapes si vous pouvez)

 

[Argos88620]

Bonjour hanane, bonjour le forum

hanane
dans le cas ou le fichier fonctionne chez toi:
Il n'y a aucune importation a faire, il faut juste que le le ficher Excel et les photos soient dans le même dossier et
les photos au format .jpg. Il n'y a pas d'autres images a rajouter dans la feuille.
Dans la colonne image entrer le nom de l'image correspondante sans l’extension.
Tester.

Le forum
Dans mon dernier post je dis que le fichier fonctionne, hors ce n'est pas tout fait le cas.
Sur 2 PC, tous les 2 sous windows7 et Excel2007, fonctionne sur l'un mais pas sur l'autre.
Je précise que l'ImputBox n'est pas totalement opérationnel.
Donc annuler et double-clic sur la référence souhaitée.
Le problème : après clic sur "Voir sur plan", à la fermeture de l'UserForm la feuille "Plan" est vidée chose qui ne se produit
pas quand je commente Unload Me mai rebelote quand on ferme l'UserForm.
J'avoue que là, je sèche. Si une bonne âme pouvait Jeter un coup d'oeuil ce serait sympa.
merci d'avance

Cordialement

 

[Argos88620]

Bonjour hanane, bonjour le forum

J'ai fini de sécher je pense.
Fichier qui cette fois-ci fonctionne sur sur mes 2 Pc
La procédure pour les images ne change pas par rapport au dernier fichier.
Ajout bouton "Rechercher une référence" fonctionnel.
Reste toute l'autre partie de ton a revoir.

Cordialement

 

[hanane123456789]

Bonjour hanane, bonjour le forum

J'ai fini de sécher je pense.
Fichier qui cette fois-ci fonctionne sur sur mes 2 Pc
La procédure pour les images ne change pas par rapport au dernier fichier.
Ajout bouton "Rechercher une référence" fonctionnel.
Reste toute l'autre partie de ton a revoir.

Cordialement

Bonjour Argos,

You are the best, ça marche très bien.
Un grand merci à vous, je vous souhaite beaucoup de bonheur et de réussite dans tous vos projets personnels et professionnels !

 

[Argos88620]

Bonjour hanane,

Merci pour le gentil message.
Je serai vraiment "the best" quand je fournirai un code qui fonctionne totalement du 1er coup ce qui n'est
pas encore le cas cette fois.
Après quelques essais d'insertion image , rebelote, effacement du plan. J'ai fini par comprendre et j'espère
avoir résolu le problème. A chaque insertion la cellule active se décale de 1 vers la droite et quand elle atteint la dernière
cellule visible : problème. pourquoi !?
Copier la ligne la ligne en gras et l'insérer à cet endroit dans le code du bouton "Voir sur plan"

'***Insertion de l'image dans le plan
Sheets("Plan").Activate
Cells(1, 1).Select
ActiveSheet.Paste

Cordialement