re,
quand il y a pas image ca ouvre explorer
la solution est appeller la procedure affichage image seulement si le cellule de la colonne H contient une valeur
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'on empeche de selectionner deux ligne
If Target.Count > 1 Then Exit Sub
'on declenche l 'action uniquement dans la plage selectionné
'morceau a remttre si ligne on veut la ligne complete complete ''If Not Intersect(Target, Range("T_nomenclature")) Is Nothing Then
adresse = Range("F18:G" & Cells(Rows.Count, 1).End(xlUp).Row).Address
If Not Intersect(Target, Range(adresse)) Is Nothing Then
Application.EnableEvents = False
Rows(Target.Row).Select
Application.EnableEvents = True
'on recupere le numero de la ligne selectionnner
Range("a1").Value = Target.Row
'on appelle la procedure affichage image si le cellule de la colonne H contient une valeur
If Range("F" & Target.Row) <> "" Then Call afficheimage Else Exit Sub
Else
'si non on efface la cellule de la ligne
Range("a1").ClearContents
End If
End Sub
toujours deux image qui s'affiche
étant donné qu'il est supposé avoir une seule image sur cette feuille, il faut remplacer cette ligne
.Shapes("selectionimageligne").Delete
par
.Shapes(1).Delete