Transparent si pas d'image.

[Hulk]

Hello ami(e)s Excellien(ne)s

Ai un petit soucis d'affichage dans un Shape.

En gros :

Si la valeur de la cellule = "" il affiche un transparent. -> Ok

Mais si la valeur de la cellule = "Tomates" et que je n'ai pas l'image des tomates, il plante, mais je souhaiterais qu'il affiche aussi le transparent !

Le mieux est de voir le fichier joint.

Attends vos lumières

 

[TempusFugit]

Re : Transparent si pas d'image.

Bonjour


Cela semble OK ainsi

Private Sub Worksheet_Change(ByVal Target As Range)
Dim image As String
If Not Intersect(Target, Range("B7")) Is Nothing Then
If Not Len(Dir(ActiveWorkbook.Path & "\" & Target.Value & ".jpg", vbNormal)) > 0 Then
image = ActiveWorkbook.Path & "\" & "Transparent" & ".jpg"
Shapes("Rectangle 1").Fill.UserPicture image
Else
image = ActiveWorkbook.Path & "\" & Target.Value & ".jpg"
Shapes("Rectangle 1").Fill.UserPicture image
End If
End If
End Sub

 

[Hulk]

Re : Transparent si pas d'image.

Re,

Génial..

À ranger dans mon tiroir magique après l'avoir étudié

Merci infiniment Tempus !