Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
JB
Bonjour,
http://cjoint.com/?eglCgJkskb
Dim témoin Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Column = 1 And Target.Count = 1 And Not IsEmpty(Target) And Not témoin Then témoin = True ChDir ActiveWorkbook.Path On Error Resume Next ActiveSheet.Shapes("monimage").Delete Range("C1").Select monimage = ActiveSheet.Pictures.Insert(Target.Value & ".jpg").Select Selection.Name = "monimage" Target.Select témoin = False End If End Sub
Cordialement JB
Bonjour,
http://cjoint.com/?eglCgJkskb
Dim témoin
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 1 And Target.Count = 1 And Not IsEmpty(Target) And
Not témoin Then
témoin = True
ChDir ActiveWorkbook.Path
On Error Resume Next
ActiveSheet.Shapes("monimage").Delete
Range("C1").Select
monimage = ActiveSheet.Pictures.Insert(Target.Value &
".jpg").Select
Selection.Name = "monimage"
Target.Select
témoin = False
End If
End Sub
Dim témoin Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Column = 1 And Target.Count = 1 And Not IsEmpty(Target) And Not témoin Then témoin = True ChDir ActiveWorkbook.Path On Error Resume Next ActiveSheet.Shapes("monimage").Delete Range("C1").Select monimage = ActiveSheet.Pictures.Insert(Target.Value & ".jpg").Select Selection.Name = "monimage" Target.Select témoin = False End If End Sub
