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 : Sélectionner tout - Visualiser dans une fenêtre à part
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.