compter des boutons excel Résolu/Fermé

Question

Bonjour, 
J'ai créé des Commandbutton qui deviennent vert activé et rouge désactivé.
J'aimerai savoir s'il est possible de compter le nombre de bouton vert?

Merci de votre aide

Patrice33740 · Answer

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).

Patrice33740 · Answer

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/

elyha02 · Answer

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!

Compter des boutons excel

3 réponses