Comment vérifier en vba si une image existe

Bonjour à tous.

Je souhaiterai vérifier si une image existe dans la feuille active, le code ci-dessous ne fonctionne pas, pourriez-vous m'aider à le corriger.

Code:

---

1 2 3 4 5 6 7 8 9 10

Sub TestImage() Dim Ma_Forme As Shape For Each Ma_Forme In ActiveSheet.Shapes If Ma_Forme Is Nothing Then MsgBox "aucunes images" Else MsgBox "images présentes" End If Next Ma_Forme End Sub

---

Merçi d'avance.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Dim Ma_Forme As Shape Dim Cpt As Integer   For Each Ma_Forme In ActiveSheet.Shapes If Ma_Forme.Type = 13 Then Cpt = Cpt + 1 Next Ma_Forme   If Cpt = 0 Then MsgBox "Aucune image" Else MsgBox Cpt & " image(s) présente(s)" End If

---

Bonjour mercatog :)

Encore une réponse précise et rapide :ccool: et encore une fois merci.

Cordialement modus57.