Effacer une image

Bonjour à tous,

Dans un tableau de A à K, quand je clique sur une ligne dans ce tableau j'ai une image qui vient dans la cellule de la colonne L.

J'aimerais que quand je clique en dehors de mon tableau l'image s'éfface.

Ci-joint la macro AfficheImage.

Merci d'avance.

Bonsoir

Une photo c'est bien mais un exemple du fichier serait beaucoup plus utile

pour solutionner le problème.

Crdlt

Bonsoir Joco7915,

Désolé pour le retard a répondre, j'étais absent.

Ci-joint un modèle de fichier des adhérents d'un club.

J'espère qu'avec cela toi ou un autre membre pourrez m'aider.

Cordialement.

Bonjour copo15

Il faut modifier le code de la feuille

Private Sub Worksheet_SelectionChange(ByVal Target As Range)  'Procédure pour mettre en sur brillance avec une forrme conditionnelle
  If Target.Count > 1 Then Exit Sub
  If Not Intersect(Target, Range("MaPlage")) Is Nothing Then
    Range("M1").Value = Target.Row
    Call AfficheImage
  Else
    Call SupprimerImage
    Range("M1").ClearContents
  End If
End Sub

Et ajouter cette Sub dans le module

Sub SupprimerImage()
  Dim Shp As Shape
  With Sheets("Adhérents")
    For Each Shp In .Shapes
      ' Ne pas supprimer le bouton
      If Shp.Name <> "Graphic 2" Then Shp.Delete
    Next Shp
  End With
End Sub

A tester

A+

Edit : doublon qui s'est créé, supprimé

Bonjour BrunoM45,

Merci pour ta réponse, mais j'ai un petit problème : For Each Shp In .Shapes j'ai un message : erreur de compilation erreur de syntaxe.

Bonjour,

Faites donc un copier/coller plutôt que de ressaisir le code

A+

Merci BrunoM45 ça fonctionne trés bien.

Merci aux autres membres qui participent.

Bonne journée A+

Question à BrunoM45,

Pourquoi quand je saisi ton code VBA ça ne fonctionne pas

et quand je fais un copier coller ça fonctionne.

Si tu peux m'expliquer pour que je sois moins bête ce soir.

Merci A+