Compter des boutons excel
Résolu
elyha02
-
elyha Messages postés 8 Date d'inscription Statut Membre Dernière intervention -
elyha Messages postés 8 Date d'inscription Statut Membre Dernière intervention -
A voir également:
- Compter des boutons excel
- Liste déroulante excel - Guide
- Word et excel gratuit - Guide
- Déplacer colonne excel - Guide
- Si ou excel - Guide
- Excel compter cellule couleur sans vba - Guide
3 réponses
Re,
Avec :
Exemple : https://mon-partage.fr/f/MXWKPnxw/
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).
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).
C'est génial!
Merci beaucoup!