Menu

Compter des boutons excel [Résolu]

- - Dernière réponse : elyha
Messages postés
8
Date d'inscription
jeudi 3 juillet 2008
Dernière intervention
15 février 2019
- 15 févr. 2019 à 14:11
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
Afficher la suite 

Votre réponse

3 réponses

Meilleure réponse
Messages postés
7632
Date d'inscription
dimanche 13 juin 2010
Dernière intervention
22 février 2019
1641
1
Merci
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/

Dire « Merci » 1

Heureux de vous avoir aidé ! Vous nous appréciez ? Donnez votre avis sur nous ! Evaluez CommentCaMarche

CCM 56247 internautes nous ont dit merci ce mois-ci

SUPER!
C'est génial!
Merci beaucoup!
Commenter la réponse de Patrice33740
Messages postés
7632
Date d'inscription
dimanche 13 juin 2010
Dernière intervention
22 février 2019
1641
0
Merci
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).
Merci pour votre réponse il s'agit de bouton activeX dont voici le code :
Private Sub CommandButton1_Click()
If
CommandButton1.BackColor = &HFF& Then
CommandButton1.BackColor = &HFF00&
Else
CommandButton1.BackColor = &HFF&
End If

End Sub
Commenter la réponse de Patrice33740
0
Merci
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!
elyha
Messages postés
8
Date d'inscription
jeudi 3 juillet 2008
Dernière intervention
15 février 2019
-
finalement j'ai réussi
Patrice33740
Messages postés
7632
Date d'inscription
dimanche 13 juin 2010
Dernière intervention
22 février 2019
1641 -
C'est comme ça qu'on progresse, félicitations.
elyha
Messages postés
8
Date d'inscription
jeudi 3 juillet 2008
Dernière intervention
15 février 2019
-
Merci :)
Commenter la réponse de elyha02