Renommer des images à la chaine

Pierrot93

XLDnaute Barbatruc

• 16 Mai 2011

• #2

Re : Renommer des images à la chaine

Bonsoir,

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

Code:

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
@+

 

Vote positif 0 Vote négatif

Chris57

XLDnaute Occasionnel

• 16 Mai 2011

• #3

Re : Renommer des images à la chaine

merci les amis, ça marche !!!

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 17 Mai 2011

• #4

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"...

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

bonne journée
@+

 

Vote positif 0 Vote négatif

Chris57

XLDnaute Occasionnel

• 17 Mai 2011

• #5

Re : Renommer des images à la chaine

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

 

Vote positif 0 Vote négatif