Exclure Images du total

Bonjour à tous,

J'ai plusieurs images (1 par cellule).

J'ai ces 2 codes pour avoir le total des images en MsgBox.

Sub Nombre_Images()

MsgBox nbImages([A:A:Q:Q])

End Sub

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

Edit modo : merci de mettre le code entre balises SVP avec le bouton </>

J'aimerais que 2 des ces images ne soient pas prises en compte.

Existe-t-il une ligne ou un code à rajouter ?

Merci beaucoup pour vos réponses et votre aide !!

bonsoir,

Sub Nombre_Images()

     MsgBox nbImages([A:A:Q:Q])

End Sub

Function nbImages(plage As Range)
     Dim UN    As Range: Set UN = ActiveSheet.Range("A" & Rows.Count)     'une cellule très loin!!!
     For Each obj In ActiveSheet.Shapes
          If obj.Type = msoInkComment Or obj.Type = msoPicture Then
     ' msoPicture sur 2003, msoInkComment sur 2007-2013
               If Intersect(obj.TopLeftCell, UN) Is Nothing Then
                    nbImages = nbImages + 1
                    Set UN = Union(UN, obj.TopLeftCell)
               End If
          End If
     Next obj
End Function

Bonjour,

Parfait!!!! Merci beaucoup pour votre aide !!!

Bonne soirée à vous.