VBA Renommer images avec les noms d'autres cellules

[MokoyFab]

Bonjour à tous,

je souhaiterais pouvoir renommer mes images en fonction de la cellule précédente.
En effet, dans la colonne B, j'ai le nom des équipes, et dans la colonne C, les images.
Je voudrais par exemple renommer l'image contenue dans la cellule C2 avec la valeur de la cellule B2.
J'ai un bout de code fait à la va vite mais je bloque sur la sélection de l'image.

Sub Macro1()
Dim NomEquipe As String, NumLigne As Integer
    For Each Cell In Range("B2:B18")
        NomEquipe = Cell.Value
        NumLigne = Cell.Row
        ActiveSheet.Shapes.Range(Array("Image 1")).Select
        Selection.ShapeRange.Name = NomEquipe
        Selection.Name = NomEquipe
    Next
End Sub

Ci-joint le fichier pour plus de facilité.
Merci pour votre aide.

 

[PMO2]

Re : VBA Renommer images avec les noms d'autres cellules

Bonjour,

Essayez avec le code suivant

Sub aa()
Dim S As Shape
Dim R As Range
For Each S In ActiveSheet.Shapes
  If S.Type = msoPicture Then
    Set R = S.TopLeftCell
    Set R = R.Offset(0, -1)
    S.Name = R
  End If
Next S
End Sub

 

[MokoyFab]

Re : VBA Renommer images avec les noms d'autres cellules

Merci, ça fonctionne.
Je dois avouer que je ne comprends pas tout mais bon, la solution est là.
Encore merci!

 

[jeromeN95]

Bonjour,
pourrais je avoir l'adaptation pour uniquement la plage B3:B157

Les images sont en colonnes B, les noms en C svp?