Images dans un USF selon condition

[marcelio]

Bonjour le Forum,
Après plusieurs recherches et d’essais je ne suis pas arrivé à faire ce que maintenant je fais vous demander.
En effectuant un double clic sur la colonne Q vous ouvrez un USF.
Ce que j’aimerais c’est avoir la photo affiché dans l’USF selon le nom des colonnes H et V.
Onglet Images avec le nom et l’image qui va avec.

Merci beaucoup de votre aide
Marcelio

 

[fanfan38]

Re : Images dans un USF selon condition

Bonjour
Le plus simple c'est d'avoir dans un repertoire des images qui ont le noms des cellules concernées...
et tu ajoutes ces lignes dans ta macro
mavar1 = "C:\Users\Papa\Pictures\" & TextBox3.Value & ".jpg"
mavar2 = "C:\Users\Papa\Pictures\" & TextBox4.Value & ".jpg"
DETAIL.Image1.Picture = LoadPicture(mavar1)
DETAIL.Image2.Picture = LoadPicture(mavar2)
A+ François

 

[marcelio]

Re : Images dans un USF selon condition

Bonjour fanfan38,

Le système du répertoire je l’utilise actuellement.
Étant donnée que je n'ai pas trop d'images j'aurais préférer mettre les images dans le même fichier.
Y aurais t'il une solution pour mon problème.
A+
Merci
Marcelio

 

[PMO2]

Re : Images dans un USF selon condition

Bonjour,

Je vous avais conseillé de mettre vos images dans un dossier (https://www.excel-downloads.com/threads/images-stockee-dans-un-fichier.226598/)

Puisque vous tenez absolument à ce que vos images soient stockées dans votre classeur Excel, une piste en les stockant dans un UserForm :
1) Créez un UserForm1 avec 5 Images
2) Montez vos JPG dans ces Images et renseignez leur propriété Tag des noms exacts (respect de la casse minuscules/majuscules) qui figurent dans votre feuille Excel
3) Copiez le code suivant dans votre UserForm "DETAIL"

Private Sub UserForm_Activate()
Dim lig As Byte, Chaine_Comment As String
With Worksheets(Nom_Onglet)
  lig = .Range(AdCel).Row
  TextBox1 = .Range("Q" & lig)
  TextBox2 = .Range("S" & lig)
  TextBox3 = .Range("H" & lig)
  TextBox4 = .Range("V" & lig)
End With
'---
Dim CTL As Control
Dim PIC As IPictureDisp

For Each CTL In UserForm1.Controls
  If CTL.Tag = TextBox3 Then
    Set PIC = CTL.Picture
    Image1.Picture = PIC
  End If
  If CTL.Tag = TextBox4 Then
    Set PIC = CTL.Picture
    Image2.Picture = PIC
  End If
Next CTL
End Sub

 

[marcelio]

Re : Images dans un USF selon condition

Bonjour PM02,

Ce sont 2 posts différent.
Le 1èr pour insérer des images dans les cellules (pas tout à fait résolu) et le 2ème pour inséré des images dans un USF.
Je vais tester votre code et vous tiens au courant.
A+
Marcelio

 

[marcelio]

Re : Images dans un USF selon condition

Bonsoir le Forum,
Bonsoir PM02,

Merci pour ce code qui fonctionne bien.
Une question:
Est il possible de récupéré les images qui sont dans l'onglet "Images" pour les mettres dans l'USF.
Merci à vous.
A+
Marcelio

 

[PMO2]

Re : Images dans un USF selon condition

Est il possible de récupéré les images qui sont dans l'onglet "Images" pour les mettres dans l'USF.

On revient au problème de base, à savoir qu'il va falloir les transformer en Excel.Picture, les enregistrer dans un dossier temporaire pour les réimporter dans l'UserForm, les détruire et killer le dossier temporaire. C'est donc possible mais cela complique énormément la tâche.
Autant agir à la source. Il est préférable que vous me communiquiez votre dossier "Logos" avec toutes ses images JPG. Si problème de confidentialité, mettez le même nombre de JPG en images n'en souffrant pas (légumes, fruits, animaux, voitures, etc).
Je pourrai alors faire un programme qui construira automatiquement les contrôles "Image" dans un UserForm.
J'attends votre dossier "Logos" dans son entièreté.

 

[marcelio]

Re : Images dans un USF selon condition

Bonsoir le Forum,
Bonsoir PM02,

Je vous joint mon dossier Logos
Merci
Bonne soirée à vous et au Forum
Marcelio

 

[Si...]

Re : Images dans un USF selon condition

salut

une autre solution Si... tu disposes du contrôle ImageList.
Tu enregistres dans celui-ci tes images. Elle feront partie-intégrante du classeur donc tu pourras éviter de les trimbaler d'une machine à une autre.
Ce sont les images explicatives qui alourdissent le fichier !

 

[marcelio]

Re : Images dans un USF selon condition

Bonsoir SI.. et le Forum,

Merci pour cette nouvelle solution.
J'attends de voir le fichier de PM02.
Bonne soirée
Merci
Marcelio

 

[Speel]

Re : Images dans un USF selon condition

Bonsoir,
Une proposition ( une ébauche )... je ne sais si j'ai bien suivi 🙂

 

[marcelio]

Re : Images dans un USF selon condition

Bonjour Speel,
Bonjour le Forum,

Merci pour cette nouvelle proposition, l'idée me plait bien.
Par contre la textbox4 ne fonctionne pas.
A la fermeture du fichier est il possible de supprimer toutes les images qui se sont ajouter avec le fichier.
Merci
Bonne journée à vous et au Forum.
Marcelio

 

[Speel]

Re : Images dans un USF selon condition

Bonjour Speel,
Bonjour le Forum,

Merci pour cette nouvelle proposition, l'idée me plait bien.
Par contre la textbox4 ne fonctionne pas.
A la fermeture du fichier est il possible de supprimer toutes les images qui se sont ajouter avec le fichier.
Merci
Bonne journée à vous et au Forum.
Marcelio

Bonjour,
Le code est partiel, j'ai précisé que c'etait une ébauche .tu n'as pas envie d'essayer de compléter le code ?
Pour la suppression des images à la fermeture je pensais avoir fait le nécessaire .
Bon alors tu essayes ?

 

[marcelio]

Re : Images dans un USF selon condition

Re,

Suis arriver à faire fonctionner la textbox4.
Mais par contre pour la suppression des images si tu peux m'aider de ce coté.
Merci
Marcelio

 

[néné06]

Re : Images dans un USF selon condition

Bonjour le forum,bonjour marcelio

Je vous adresse un exemple que j'utilise pour les images.

J'ai placé la publication des images grace au dossier "Logos".
Regardes les codes qui peut-être te donnerons des pistes ?
Pour faire fonctionner le programme, placer "Logos" et "Fruits légumes" dans la même racine.

A+

René