Images dans un USF selon condition

fanfan38

XLDnaute Barbatruc

• 18 Décembre 2014

• #2

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

 

Vote positif 0 Vote négatif

M

marcelio

XLDnaute Occasionnel

• 18 Décembre 2014

• #3

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

 

Vote positif 0 Vote négatif

P

PMO2

XLDnaute Accro

• 18 Décembre 2014

• #4

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"

Code:

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

 

Pièces jointes

• Images dans USF selon condition_pmo.xls

  93 KB · Affichages: 49

Vote positif 0 Vote négatif

M

marcelio

XLDnaute Occasionnel

• 18 Décembre 2014

• #5

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

 

Vote positif 0 Vote négatif

M

marcelio

XLDnaute Occasionnel

• 18 Décembre 2014

• #6

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

 

Vote positif 0 Vote négatif

P

PMO2

XLDnaute Accro

• 18 Décembre 2014

• #7

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.

Cliquez pour agrandir...

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é.

 

Vote positif 0 Vote négatif

M

marcelio

XLDnaute Occasionnel

• 18 Décembre 2014

• #8

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

 

Pièces jointes

• Logos.zip

  218 KB · Affichages: 45
• Logos.zip

  218 KB · Affichages: 41
• Logos.zip

  218 KB · Affichages: 34

Vote positif 0 Vote négatif

S

Si...

XLDnaute Barbatruc

• 18 Décembre 2014

• #9

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 !

 

Pièces jointes

• Liste Image dans UsF.xls

  393 KB · Affichages: 57

Vote positif 0 Vote négatif

M

marcelio

XLDnaute Occasionnel

• 18 Décembre 2014

• #10

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

 

Vote positif 0 Vote négatif

Speel

XLDnaute Occasionnel

• 19 Décembre 2014

• #11

Re : Images dans un USF selon condition

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

 

Pièces jointes

• Images dans USF selon condition.xls

  75 KB · Affichages: 41
• Images dans USF selon condition.xls

  75 KB · Affichages: 46
• Images dans USF selon condition.xls

  75 KB · Affichages: 48

Vote positif 0 Vote négatif

M

marcelio

XLDnaute Occasionnel

• 19 Décembre 2014

• #12

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

 

Vote positif 0 Vote négatif

Speel

XLDnaute Occasionnel

• 19 Décembre 2014

• #13

Re : Images dans un USF selon condition

marcelio à dit:

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

Cliquez pour agrandir...

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 ?

 

Vote positif 0 Vote négatif

M

marcelio

XLDnaute Occasionnel

• 19 Décembre 2014

• #14

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

 

Vote positif 0 Vote négatif

néné06

XLDnaute Accro

• 19 Décembre 2014

• #15

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é

 

Pièces jointes

• Fruits légumes.xlsm

  80.9 KB · Affichages: 37

Dernière édition: 19 Décembre 2014

Vote positif 0 Vote négatif