Bonjour JHA,
Merci pour le message.
Je pense que la macro dont j'ai besoin correspond à :
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 8 And Target.Count = 1 Then
'-- suppression
For Each s In ActiveSheet.Shapes
If s.Type = 13 Then
If s.TopLeftCell.Address = Target.Offset(0, 1).Address Then
s.Delete
End If
End If
Next s
'--
If Target <> "" Then
Sheets("Images").Shapes(Target).Copy
Target.Offset(0, 1).Select
ActiveSheet.Paste
Selection.ShapeRange.Left = ActiveCell.Left + 7
Selection.ShapeRange.Top = ActiveCell.Top + 5
Target.Select
End If
End If
End Sub
Malheureusement, je n'y connais rien en langage VBA... Pouvez-vous m'expliquer comment l'utiliser pour mon exemple et/ou comment décrypter les phrases VBA pour que je sache comment remplacer les infos pour mon exemple ?
Par ailleurs, suffit-il d'enregistrer cette macro pour qu'elle s'exécute dans le fichier ou faut-il créer un bouton ?
Merci d'avance de votre aide !
Bonne journée.
Vera
PS : Si jamais un autre internaute a une suggestion sans VBA je suis toujours preneuse ! Merci de votre aide !