XL 2013 Modification boucle macro insertion image

[GREGILILI]

Bonjour à tous et joyeux Noël avec un peu d'avance

J'ai une feuille excel où je renseigne en colonne A à partir de la ligne 7 des urls d'image à insérer.

J'ai une macro ci-dessous qui permet d'insérer automatiquement ces images en boucle sur la colonne A

Mon point est très simple : je voudrais supprimer cette boucle pour que l'image ne s'insère que pour la cellule active (exemple pour la cellule A123 si mon curseur est sur cette cellule)

1000 merci d'avance pour votre aide.

Gregilili

Sub InsImg()

Dim URL As Range

For Each URL In Range("A7", Cells(Rows.Count, "A").End(xlUp))
With URL.Parent.Pictures.Insert(URL.Value)
.Left = URL.Offset(0, 0).Left
.Top = URL.Offset(0, 0).Top
URL.EntireRow.RowHeight = .Height
End With
Next

End Sub

 

[STephane]

Re : Modification boucle macro insertion image

bonjour

Si je comprends bien :
1°) remplace

For Each URL In Range("A7", Cells(Rows.Count, "A").End(xlUp))

par

set URL=activecell

.
2°) et, supprime l'instruction

Next

HTH