nbr de checkbox cochés

Pierrot93

XLDnaute Barbatruc

• 29 Décembre 2010

• #2

Re : nbr de checkbox cochés

Bonjour,

regarde ceci, en espérant que cela puisse t'aider, car sans plus de détails... code à utiliser dans le module de la feuille concernée...

Code:

Option Explicit
Sub test()
Dim c As OLEObject, i As Integer
For Each c In Me.OLEObjects
    If TypeName(c.Object) = "CheckBox" And c.Object.Value = True _
        And c.Object.Caption = "Homme" Then
        i = i + 1
    End If
Next c
Range("A1").Value = i
End Sub

bonne journée
@+

 

Vote positif 0 Vote négatif

phlaurent55

Nous a quittés en 2020

Repose en paix

• 29 Décembre 2010

• #3

Re : nbr de checkbox cochés

Bonjour ouzal, Pierrot, le forum

un essai en pièce jointe.....sans CheckBox

à+
Philippe

 

Pièces jointes

• 111.xls

  24.5 KB · Affichages: 110
• 111.xls

  24.5 KB · Affichages: 117
• 111.xls

  24.5 KB · Affichages: 124

Vote positif 0 Vote négatif

O

ouzal

Guest

• 29 Décembre 2010

• #4

Re : nbr de checkbox cochés

merci énormément les amis.
Pierrot, je suis nul en VBA, donc je connai meme pas le "module de feuille " là ou je dois copier le code
Phlaurent la solution proposé donne le meme resultat que je cherche, sauf que je ne peu pas l'appliquer parceque la feuille contenant les checkbox m'est imposé (je serai interessé par comment améliorer les cases H/F pour ajouter un 3éme etat ni homme ni femme equivalent à "aucune checbox n'est coché).

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 30 Décembre 2010

• #5

Re : nbr de checkbox cochés

Bonjour,

pour copier le code dans le module de feuille, click droit sur l'onglet => visualiser le code => et tu colles dans la fenêtre qui s'ouvre....

bonne journée
@+

 

Vote positif 0 Vote négatif

phlaurent55

Nous a quittés en 2020

Repose en paix

• 30 Décembre 2010

• #6

Re : nbr de checkbox cochés

Re bonjour à tous,

je serai interessé par comment améliorer les cases H/F pour ajouter un 3éme etat ni homme ni femme equivalent à "aucune checbox n'est coché

Cliquez pour agrandir...

voir en pièce jointe pour le 3ème état
( ni homme ni femme ............ extra-terrestre peut-être 😕😕😕 )

à+
Philippe

 

Pièces jointes

• 111.xls

  36 KB · Affichages: 90
• 111.xls

  36 KB · Affichages: 97
• 111.xls

  36 KB · Affichages: 104

Vote positif 0 Vote négatif

O

ouzal

Guest

• 11 Janvier 2011

• #7

Re : nbr de checkbox cochés

bonjour tout le monde
J'ai reussi à resoudre le probléme, il suffit d'assigner des cellules de controle pour chaque checkbox en faisant click droit sur le checkbox et puis choisir (FORMAT DE CONTROL)
j'ai mit toute les format de control pour les (HOMME) dans une seule colonnes, et celles de (FEMME) dans une autre.
pour obtenir le nombre d'homme ou de femmes, il suffit de calculer le nombre des (VRAIS) sur la colonne correspondante, en utilisant la formule " NB.SI(..)" equivalente à COUNTIF(...)

 

Vote positif 0 Vote négatif