double clic

Bonjour le forum
Bonjour marcopolo

Après bien des essais, ça fonctionne ;-)

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim MyCell As Range
Dim MyPicture As Picture
Dim image$
image = "c:\1\Agip.jpg" 'Tu adaptes le chemin où ta photo est stockée.
Set MyCell = ActiveCell
MyCell.Select
Set MyPicture = ActiveSheet.Pictures.Insert(image)
End Sub

@ ++ Éric C

merci à toi,

sébastien

Encore un ptit truc merci,
voila le code que j'avais pour choisir les feuille suivant la cellule, mais saurais tu me l'adapter pour ceci que je mettrai le double clic dans la colonne A

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim F1 As Range
Dim F2 As Range
Set F1 = Range("B2:b500")
Set F2 = Range("c2:c500")
If Not Application.Intersect(F1, Range(Target.Address)) _
Is Nothing Then
a = ActiveCell.Value
Sheets(a).Select
End If
If Not Application.Intersect(F2, Range(Target.Address)) _
Is Nothing Then
b = ActiveCell.Value
Sheets(b).Select
End If

End Sub