Renommer des images à la chaine

[Chris57]

Bonjour à tous,

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

etc...

Vous avez une idée ?

 

[Pierrot93]

Re : Renommer des images à la chaine

Bonsoir,

regarde peut être ceci, si cela peut t'aider :

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

bonne soirée
@+

 

[Chris57]

Re : Renommer des images à la chaine

merci les amis, ça marche !!!

 

[Pierrot93]

Re : Renommer des images à la chaine

Bonjour Chris, cc

à noter que l'on peut également coder comme ceci, la propriété "TopLeftCell" renvoyant un objet "range"...

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

bonne journée
@+

 

[Chris57]

Re : Renommer des images à la chaine

ah oui, excellent !! MERCI !!!!!