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.
Merçi d'avance.
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
Partager