Images à supprimer cellules vides

Bonjour,

Voilà ma question :

J'ai un fichier Excel 2007 dans lequel je dois supprimer des images en fonction de certaines cellules vides. En puisant dans les explications de tout le monde, j'ai trouvé comment faire pour une seule image.

Je dois le faire autant de fois que nécessaire selon certaines cellules vides. Donc je dois faire une boucle (oups jamais fait).

En attendant de trouver mieux, j'ai cette solution mais je voudrais pouvoir l'améliorer si possible car cette action est très répétitive. Voici ce que j'ai :

Sub Suppression_Image()

If Range("D104") = "" Then

ActiveSheet.Shapes("IMG_3_G1").Delete

End if

If Range("D111") = "" Then

ActiveSheet.Shapes("IMG_3_G2").Delete

End if

If Range("D118") = "" Then

ActiveSheet.Shapes("IMG_3_G3").Delete

End If

...

End Sub

Chaque image doit être supprimée en fonction de la cellule vide correspondant.

Je ne sais pas comment définir qu'une image correspond à une cellule en particulier.

ex : D104 ==> IMG_3_G1

D 111 ==> IMG_3_G2

D118 ==> IMG_3_G3

Remarque : Les adresses sautent de 7 cellules et les noms des images se suivent (je ne sais pas si ça peut aider...).

Je voudrais par la suite pouvoir replacer les images aux mêmes endroits qu'initialement pour une utilisation ultérieure.

Je bidouille encore mais j'avance à petit pas.

Si quelqu'un peut m'expliquer comment procéder, je vous remercie d'avance.

A bientôt

Globule

Bonjour

A essayer

Sub Suppression_Image()
Dim J As Long
Dim Numero As Integer

  For J = 104 To 118 Step 7       '
    Numero = Numero + 1
    If Range("D" & J) = "" Then
      ActiveSheet.Shapes("IMG_3_G" & Numero).Visible = False
    End If
  Next J
End Sub

Les formes sont toujours présentes, il suffit de remettre la propriété Visible à True pour les voir