Ci-dessous, j'ai une fonction personnalisée qui me renvoie le nombre total d'images placées dans un feuille de calcul (Images commençant par le mot "pompe").
Aujourd'hui, j'aimerais y affecter un argument plage pour effectuer un décompte en bout de ligne, ça paraît simple mais je n'y arrive pas.
Code:
Function nombre_pompes() As Integer
Dim Sh As Shape
For Each Sh In Feuil1.Shapes
If Left(Sh.Name, 5) = "pompe" Then nombre_pompes = nombre_pompes + 1
Next Sh
End Function
Function NbShapes(champ, generique)
Application.Volatile
For Each s In ActiveSheet.Shapes
If Not Intersect(s.TopLeftCell, champ) Is Nothing And _
s.Name Like generique & "*" Then n = n + 1
Next s
NbShapes = n
End Function
Function NbShapes(champ, generique)
Application.Volatile
For Each s In ActiveSheet.Shapes
If Not Intersect(s.TopLeftCell, champ) Is Nothing And _
UCase(s.Name) Like UCase(generique) & "*" Then n = n + 1
Next s
NbShapes = n
End Function