Nombre controles ActiveX par type

Bonjour,

Cette macro me donne le nombre de tous les contrôles activex présent une une feuille de calcul.

Sub Compter_Controles()
 Dim Obj As OLEObject

 MsgBox ActiveSheet.OLEObjects.Count & " contrôles sur cette feuille"

 End Sub

Je voudrais connaitre le nombre par type de contrôle. Sur la feuille j'ai mis 5 Checkbox, 1 ButtonOption et 1 CommandButton qui déclenche la macro.

Le message serait: 5 Checkbox, 1ButtonOption et 1 CommandButton.

En vous remerciant.

Cordialement,

Bonsoir,

Peut-être ainsi :

Sub Compter_Controles()
Dim Obj As OLEObject
Dim NbOpt As Byte, NbChk As Byte, NbCmd As Byte
For Each Obj In ActiveSheet.OLEObjects
    If TypeOf Obj.Object Is MSForms.OptionButton Then
        NbOpt = NbOpt + 1
    ElseIf TypeOf Obj.Object Is MSForms.CheckBox Then
        NbChk = NbChk + 1
    ElseIf TypeOf Obj.Object Is MSForms.CommandButton Then
        NbCmd = NbCmd + 1
    End If
Next Obj
MsgBox "Dans cet onglet, il y a : " & Chr(10) _
        & NbOpt & " OptionsButtons" & Chr(10) _
        & NbChk & " CheckBoxs" & Chr(10) _
        & NbCmd & " CommandButtons"
End Sub

Bonne soirée

Bonsoir Cousinhub,

Je te remercie beaucoup, c'est exactement ce que je recherchais.

Cordialement,