jeromeN95
XLDnaute Impliqué
Bonjour,
je souhaiterai adapté ce code :
pourrais je avoir l'adaptation pour uniquement la plage B3:B157
Les images sont en colonnes B, les noms en C svp?
je souhaiterai adapté ce code :
VB:
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
pourrais je avoir l'adaptation pour uniquement la plage B3:B157
Les images sont en colonnes B, les noms en C svp?