Nombre d'images - 1

Bonjour à tous,

J'ai ce code qui me compte le nombre d'images sur la feuille.

Function nbImages(plage As Range)
    For Each obj In ActiveSheet.Shapes
        If obj.Type = msoInkComment Or obj.Type = msoPicture Then
            ' msoPicture sur 2003, msoInkComment sur 2007-2013
            If Not Intersect(obj.TopLeftCell, plage) Is Nothing Then nbImages = nbImages + 1

        End If
    Next obj
End Function

Avec un autre code j'ai une image png qui m'indique la cellule selectionnée.

Mais ce premier code compte aussi ce png. J'ai essayer de modifier nbImages + 1, ça ne fonctionne pas.

Y aurait-il une ligne à modifier ou à ajouter ?

Je vous remercie beaucoup pour votre aide !

Bonsoir,

un essai (sans fichier) :

Function nbImages(plage As Range)
    For Each obj In ActiveSheet.Shapes
        If (obj.Type = msoInkComment Or obj.Type = msoPicture) And obj.Name <>"Le_Nom_De_L_Image_sur_la_feuille" Then
            ' msoPicture sur 2003, msoInkComment sur 2007-2013
            If Not Intersect(obj.TopLeftCell, plage) Is Nothing Then nbImages = nbImages + 1
        End If
    Next obj
End Function

@ bientôt

LouReeD

Bonjour,

Pour un essaie, c'est réussi !!!

Merci beaucoup LouReeD et Bonne Année à vous !!!

Bonjour,

Merci pour votre retour et remerciement !

@ bientôt

LouReeD