Insertion images

[marcelio]

Bonjour à tous,

J’ai fait une recherche sur le forum sur l’insertion d’images
mais je n’ai pas trouvé ce que je voulais pour mon fichier

je vous le joins avec les explications de ma demande

Merci de votre aide

Marcelio

 

[vbacrumble]

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/

 

[marcelio]

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

 

[Hulk]

Re : Insertion images

Hello Marcelio, Vbacrumble,

Fichier modifié.

Bon week.

Hulk.

 

[job75]

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] :

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+

 

[Hulk]

Re : Insertion images

Re, slt Job,

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

    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

    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.

 

[BOISGONTIER]

Re : Insertion images

Bonjour,

Voir PJ

JB
Formation Excel VBA JB

 

[marcelio]

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

 

[job75]

Re : Insertion images

Re,

marcelio, et JB (que je salue 🙂) ?

Il n'est pourtant pas invisible non plus.

A+

 

[marcelio]

Re : Insertion images

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

A+