PhotosSi2

[Jouxte]

Bonjour à Toutes et tous,

J'ai trouvé sur le site d'Excelabo un fichier de J. Boisgontier (que je remercie au passage) qui comporte une macro que j'aurais souhaité intégrer à un de mes tableaux.
L'un d'entre vous aurait-il possibilité de me "traduire" la macro pour que je puisse effectuer les modifications qui me permettront de l'intégrer.


Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 And Target.Count = 1 Then
If Target = "" Then
EffaceMentShape (Target.Offset(0, 1).Address)
Else
EffaceMentShape (Target.Offset(0, 1).Address)
posnom = Application.Match(Target.Value, [Noms], 0)
If Not IsError(posnom) Then
CopyShape Cells(posnom + 1, 2).Address
Target.Offset(0, 1).Select
ActiveSheet.Paste
Selection.Left = Target.Offset(0, 1).Left + 4
Selection.Top = Target.Offset(0, 1).Top + 4
Selection.Name = Target.Row
Target.Select
End If
End If
End If
End Sub

Sub EffaceMentShape(c)
On Error Resume Next
For Each s In ActiveSheet.Shapes
If s.TopLeftCell.Address = c Then s.Delete
Next s
End Sub

Sub CopyShape(c)
On Error Resume Next
For Each s In Sheets("photos").Shapes
If s.TopLeftCell.Address = c Then s.Copy
Next s
End Sub

Sincères remerciements.