Afficher image

[Gaetan]

Bonjour, je suis a la recherche de quelqu'un qui pourrait m'aider a afficher des images dans un document excel selon la valeur d'une cellule.
Merci

 

[Gérard DEZAMIS]

Bonjour Gaetan

Regarde ce fil

<http://www.excel-downloads.com/html/French/forum/messages/1_84095_84095.htm>

la solution y est peut-être

@+ GD

 

[OnErrorResumeNext]

bonjour Gaëtan,

tu peux essayer ce code dans le module de la feuille "GENERAL" :

---------------------------------------------------------------------------------
Private Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = False
If Intersect(Range("A1:A3"), Target) Is Nothing Then Exit Sub

Select Case Target.Row
Case 1
If Target.Value = 1 Then
ActiveSheet.Shapes("AutoShape 118").Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 12
Target.Activate
End If
If Target.Value = 0 Then
ActiveSheet.Shapes("AutoShape 118").Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 9
Target.Activate
End If

Case 2
If Target.Value = 1 Then
ActiveSheet.Shapes("Group 141").visible = True
Else
ActiveSheet.Shapes("Group 141").visible = False
End If

Case 3
If Target.Value = 1 Then
ActiveSheet.Shapes("AutoShape 117").Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 12
Target.Activate
End If
If Target.Value = 0 Then
ActiveSheet.Shapes("AutoShape 117").Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 9
Target.Activate
End If

End Select
End Sub
---------------------------------------------------------------------------------


amicalement

 

[Gaetan]

Merci, ça marche