Nombre de Shapes sur une feuille

L

Lolote83

XLDnaute Barbatruc

• 23 Mars 2015

• #2

Re : Nombre de Shapes sur une feuille

Salut Maval,
Dans un module standard, écrire :

Code:

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

 

Vote positif 0 Vote négatif

vgendron

XLDnaute Barbatruc

• 23 Mars 2015

• #3

Re : Nombre de Shapes sur une feuille

Bonjour

avec ceci peut etre?

nb = ActiveSheet.Shapes.Count

 

Vote positif 0 Vote négatif

BOISGONTIER

XLDnaute Barbatruc

Repose en paix

• 23 Mars 2015

• #4

Re : Nombre de Shapes sur une feuille

Bonjour,

Code:

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

 

Pièces jointes

• Nbre de Shapes.xlsm

  119.7 KB · Affichages: 40
• Nbre de Shapes.xlsm

  119.7 KB · Affichages: 36
• Nbre de Shapes.xlsm

  119.7 KB · Affichages: 32

Vote positif 0 Vote négatif

maval

XLDnaute Barbatruc

• 23 Mars 2015

• #5

Re : Nombre de Shapes sur une feuille

Bonjour Lolote83, vgendron,JB

Je vous remercie et vous souhaite une bonne journée

 

Vote positif 0 Vote négatif