Nombre de Shapes sur une feuille

[maval]

Bonjour,

J'ai un classeur avec 100 feuilles sur chaque feuille j'ai des cartes décomposée en Shapes nommer "FreeForm 00.

J'aimerai avec un code connaitre le nombre de shapes sur ma feuille

Je vous remercie d'avance

 

[Lolote83]

Re : Nombre de Shapes sur une feuille

Salut Maval,
Dans un module standard, écrire :

Function NbShape()
    For Each s In ActiveSheet.Shapes
        If Left(s.Name, 4) = "Free" Then
            xcpt = xcpt + 1
        End If
    Next s
    NbShape = xcpt
End Function

Puis dans ta cellule jaune écrire :
=NbShape()
Cela devrait correspondre à tes attentes.
@+ Lolote83

 

[vgendron]

Re : Nombre de Shapes sur une feuille

Bonjour

avec ceci peut etre?

nb = ActiveSheet.Shapes.Count

 

[BOISGONTIER]

Re : Nombre de Shapes sur une feuille

Bonjour,

Function NbshapesChamp(champ As Range)
    f = Application.Caller.Parent.Name
    For Each s In Sheets(f).Shapes
       If Not Intersect(s.TopLeftCell, champ) Is Nothing Then n = n + 1
    Next
    NbshapesChamp = n
End Function

JB

 

[maval]

Re : Nombre de Shapes sur une feuille

Bonjour Lolote83, vgendron,JB

Je vous remercie et vous souhaite une bonne journée