j'ai une série d'images que je souhaiterai renommer. J'aimerai leur donner comme nom la valeur de la cellule adjacente.
Par exemple, l'image en H4 devrait avoir comme nom la valeur de la cellule G4
Il me faudrait un truc du genre :
[H4].Shapes.Name = [G4].value
[H5].Shapes.Name = [G5].value
[H6].Shapes.Name = [G6].value
Option Explicit
Sub test()
Dim s As Shape
With Sheets("feuil1")
For Each s In .Shapes
s.Name = .Range(s.TopLeftCell.Address).Offset(0, -1).Value
Next s
End With
End Sub
à noter que l'on peut également coder comme ceci, la propriété "TopLeftCell" renvoyant un objet "range"...
Code:
Option Explicit
Sub test()
Dim s As Shape
With Sheets("feuil1")
For Each s In .Shapes
s.Name = s.TopLeftCell.Offset(0, -1).Value
Next s
End With
End Sub