Compter des boutons excel

Re,

Avec :

Option Explicit
Const vert& = &HFF00&
Const rouge& = &HFF&

Private Sub CommandButton4_Click()
Dim nbR As Integer
Dim nbV As Integer
  nbV = CompteBoutons(vert)
  nbR = CompteBoutons(rouge)
  MsgBox nbV & " Boutons verts" & vbCrLf & _
         nbR & " Boutons rouges"
End Sub

Private Function CompteBoutons(Couleur As Long) As Integer
Dim obj As OLEObject              'Objet OLE de la feuille
Dim btn As MSForms.CommandButton  'Bouton
Dim n As Integer
  
  For Each obj In Me.OLEObjects
    If TypeName(obj.Object) = "CommandButton" Then
      Set btn = obj.Object
      If btn.BackColor = Couleur Then n = n + 1
    End If
  Next obj
  CompteBoutons = n

End Function

Exemple : https://mon-partage.fr/f/MXWKPnxw/

Bonjour,

Oui, il y a plusieurs méthode selon le cas.
Il faut déjà savoir si ce sont des boutons de formulaire ou des boutons activeX.
Il suffit de boucler sur chaque formulaire et de tester sa couleur, à condition que ce soit exactement la même à chaque fois (il existe de très nombreuses nuances de vert).

Bonjour,

J'ai de nouveau besoin de vos lumières.....
J'aimerai intégrer de nouveau boutons rouges qui s'activerait en bleu. et le bouton compteur devra compter le nombre de rouge,de vert et de bleu est ce que cela vous semble réalisable?
Merci!
Vous êtes mon sauveur!