Compter le nombre de shapes dans une feuille...

[Claudy]

Bonjour,
j'ai essayé ceci en dessous mais j'ai comme résultat
#VALUE! alors que j'ai bien 5 shapes("Nuage")


Function nombre_Nuage() As Integer
Dim sh As Shape
For Each sh In Feuil1.Shapes
If Name = "Nuage" Then nombre_Nuage = nombre_Nuage + 1
Next sh
End Function

Merci d'avance pour votre aide,
Claudy

 

[Pierrot93]

Re : Compter le nombre de shapes dans une feuille...

Bonjour,

peut être comme ceci :

Option Explicit
Function nombre_Nuage() As Integer
Dim sh As Shape
For Each sh In Feuil1.Shapes
    If sh.Name Like "*Nuage*" Then nombre_Nuage = nombre_Nuage + 1
Next sh
End Function

bonne journée
@+

 

[Claudy]

Re : Compter le nombre de shapes dans une feuille...

ok merci Pierrot...
Mais si je delete ou ajoute un shape("Nuage") le résultat reste inchangé !
A+
Merci,
Claudy

 

[Pierrot93]

Re : Compter le nombre de shapes dans une feuille...

Re,

rajoute peut être "Application.Volatile" :

Option Explicit
Function nombre_Nuage() As Integer
Dim sh As Shape
Application.Volatile
For Each sh In Feuil1.Shapes
    If sh.Name Like "*Nuage*" Then nombre_Nuage = nombre_Nuage + 1
Next sh
End Function

mais je doute fort que cela à un quelquonque effet avec les objets... A tester...

 

[Efgé]

Re : Compter le nombre de shapes dans une feuille...

Bonjour Claudy, Salut Pierrot 🙂
Surtout pour saluer Pierrot
L'ajout et la suppression de Shapes ne déclenche pas le calcul de la feuille.
Peut être en mettant quelque part sur la feuille =MAINTENANT(), le calcul se refera plus souvent...
Cordialement

 

[Claudy]

Re : Compter le nombre de shapes dans une feuille...

ok, merci à vous deux....
Etape 2: (Désolé suis gourmand! )
Si je delete un ou plusieurs nuages....comment avoir en A1 le nombre de nuage que j'ai deleté...ainsi que le prix de mon nuage (10 Euros)?
merci
A+
Claudy