Recherche & référence NbActiveX

[Magic_Doctor]

Décompte du nombre d'ActiveX de même type et ayant tous le même préfixe d'une feuille donnée du classeur.

Function NbActiveX(TypeObjet$, préfixe$, hoja As Byte) As Byte
'Renvoie le nombre d'ActiveX de même type et ayant tous le même préfixe d'une feuille donnée du classeur.
'Ex : "MonCombo1","MonCombo2","MonCombo3" dans la Feuille 1 --> NbActiveX("ComboBox", "MonCombo", 1) = 3
'- TypeObjet : un ActiveX ("ComboBox", "CheckBox", "CommandButton"...)
'- préfixe   : le préfixe commun des objets en question
'- hoja      : le numéro de la feuille du classeur
'Magic_Doctor

Dim f As Worksheet, largo As Byte, o As Object, i As Byte

    Set f = Sheets(hoja)
    largo = Len(préfixe)

    For Each o In f.OLEObjects
        If TypeName(o.Object) = TypeObjet And Left(o.Name, largo) = préfixe Then i = i + 1
    Next

    NbActiveX = i
End Function