Insertion images

vbacrumble

XLDnaute Accro

• 15 Mai 2009

• #2

Re : Insertion images

Bonjour



J'ai cherché moi aussi

Et j'ai trouvé ce lien

https://www.excel-downloads.com/threads/recherchev-et-images.75466/

 

Vote positif 0 Vote négatif

M

marcelio

XLDnaute Occasionnel

• 15 Mai 2009

• #3

Re : Insertion images

Merci
j'ai testé le code du fichier sur le mien et cela fonctionne très bien

Mon seul souci:
J'ai des listes de validation qui doivent rester vide sans nom et aucune image doit apparaitre et la ça bug

Je vous remets mon fichier si quelqu'un à la solution à mon problème

Marcelio

 

Pièces jointes

• Images sélectionner.zip

  23 KB · Affichages: 41
• Images sélectionner.zip

  23 KB · Affichages: 40
• Images sélectionner.zip

  23 KB · Affichages: 40

Vote positif 0 Vote négatif

Hulk

XLDnaute Barbatruc

• 15 Mai 2009

• #4

Re : Insertion images

Hello Marcelio, Vbacrumble,

Fichier modifié.

Bon week.

Hulk.

 

Pièces jointes

• Images.zip

  35.2 KB · Affichages: 54
• Images.zip

  35.2 KB · Affichages: 52
• Images.zip

  35.2 KB · Affichages: 53

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 15 Mai 2009

• #5

Re : Insertion images

Bonjour marcelio, Hulk, le forum, Edit : salut vbacrumble, mince tu es invisible...

Prenons le code pour la 1ère image.

En effet, comme le fait Hulk, il faut faire un test sur [B7] :

Code:

If [B7] <> ""
'Le code existant
Else
[COLOR="Red"]Shapes("Rectangle 1").Fill.Visible = msoFalse[/COLOR]
End If

Par ailleurs, il vaut mieux, je pense, remplacer Target.Value par [B7]

A+

 

Dernière édition: 15 Mai 2009

Vote positif 0 Vote négatif

Hulk

XLDnaute Barbatruc

• 15 Mai 2009

• #6

Re : Insertion images

Re, slt Job,

En effet Marcelio, tu peux faire comme dis Job, c'est nickel aussi,

Code:

    If Not Intersect(Target, [B7]) Is Nothing Then
        If [B7] <> "" Then
            image = ActiveWorkbook.Path & "\" & Target.Value & ".jpg"
            Shapes("Rectangle 1").Fill.UserPicture image
        Else
            Shapes("Rectangle 1").Fill.Visible = msoFalse
        End If
    End If

juste que là on verra le fond de la feuille... Pas bien grave.

Ou alors donc, la version que je propose, qui est de Boigontier, si je ne me trompe, et qui consiste à mettre une autre image si vide. plus proprement ça donnerait

Code:

    If Not Intersect(Target, [B7]) Is Nothing Then
        image = ActiveWorkbook.Path & "\" & Target.Value & ".jpg"
            If [B7] = "" Then image = ActiveWorkbook.Path & "\" & "Transparent" & ".jpg"
        Shapes("Rectangle 2").Fill.UserPicture image
    End If

Ici, il s'agit d'un transparent, mais on pourrait par exemple metttre une image blanche avec marqué dessus "Pas d'image pour ce produit"... Par exemple 😀

Comme justement remarqué par Job, j'ai remplacé le target par [B7], mieux étant donné que le code se trouve dans la feuille même.

Cdt, Hulk.

 

Vote positif 0 Vote négatif

BOISGONTIER

XLDnaute Barbatruc

Repose en paix

• 15 Mai 2009

• #7

Re : Insertion images

Bonjour,

Voir PJ

JB
Formation Excel VBA JB

 

Pièces jointes

• DVImagesInternes.zip

  24.1 KB · Affichages: 41
• DVImagesInternes.zip

  24.1 KB · Affichages: 41
• DVImagesInternes.zip

  24.1 KB · Affichages: 37
• DVImagesExternes.xls

  46.5 KB · Affichages: 86

Vote positif 0 Vote négatif

M

marcelio

XLDnaute Occasionnel

• 15 Mai 2009

• #8

Re : Insertion images

Merci Hulk et job75 de vos solutions et merci aussi à Vbacrumble de m'avoir diriger vers le fichier.

Bon weekend à vous tous et au forum

Marcelio

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 15 Mai 2009

• #9

Re : Insertion images

Re,

marcelio, et JB (que je salue 🙂) ?

Il n'est pourtant pas invisible non plus.

A+

 

Vote positif 0 Vote négatif

M

marcelio

XLDnaute Occasionnel

• 15 Mai 2009

• #10

Re : Insertion images

Désolé d'avoir oublier JB
que je remercie pour ses fichiers

A+

 

Vote positif 0 Vote négatif