Somme de cases cochées dans excel 03 Fermé

Question

Bonjour, 

Je bloque sur quelque chose de tout bête. J'ai 4 colonnes sous excel 2003 et chaque cellule contient une case à cochée. Je souhaite pour chaque colonne faire le total de cases qui sont cochées ! Comment faire ?

Travail urgent à rendre à mon patron !

J'attend vos réponses :D

Elfuerte

Configuration: Windows XP / Internet Explorer 8.0

Vaucluse · Accepted Answer

Bonjour 
*je pense qu'il s'agit de case à cocher et non de cellule, en conséquence, NB.SI ou SOMME.SI ne peut s'appliquer qu'à partir d'une colonne intermédiaire 
Exemple ci dessous à adapter: 
en colonne A, une série de cases à cocher avec dans chaque cellule A, un montant à sommer sous condition que la case soit cochée 
Pour chacune des cases à cocher: 
clic droit sur la case / Format de contrôlé / onglet contrôle 
et cellule liée: 
entrer B1 pour la case cellule A1, B2 pour la case cellule A2 etc.... 
lorsque l'on coche la case, la cellule liée affiche VRAI ou FAUX  

Il suffit alors pour faire la somme, dans une cellule hors champ: 

=SOMME.SI(B:B;VRAI;A:A) 

et pour compter le nombre de valeurs prises en compte: 
=NB.SI(B:B;VRAI) 

sauf erreur de compréhension du sujet 

crdlmnt 



Demandons nous si nous ne sommes pas seuls à comprendre ce que l'on explique?

Patrice33740 · Answer

«Je souhaite pour chaque colonne faire le total de cases qui sont cochées !» ???

Pour compter le nombre de cases cochées, utilises NB.SI()
Pour faire la somme des nombres d'un colonne en regard des cellules cochées dans une autre colonne, utilises SOMME.SI()

Mabelle60 · Answer

Bonjour
Complément sur la réponse de Patrice que je salue au passage.
Tes données en colonne A
=NB.SI(A1:A100;"x")
A1:A100 étant ta plage
"X" étant ta représentation des cases cochées
=NB.SI(A1:A100;"x")
ta représentation des cases cochées pouvant varier
=NB.SI(A1:A100;">""")

imac37 · Answer

bonjour
 pour faire plus simple et si tes autres cases sont vierges

NBVAL(A1;A100)

elfuerte · Answer

Merci pour vos réponses !  
Le problème c'est que ça ne fonctionne pas. J'ai du mal intégrer les cases à cocher. Je suis sous Excel 2003 et galère un peu, ne connaissant que Excel 2007. 
Comment bien intégrer mes cases à cocher ?

elfuerte · Answer

Quelqu'un peut-il m'envoyer son adresse e-mail pour que je lui envoie mon fichier ?

lermite222 · Answer

Bonjour tous,
Sans liaison...
Public Sub TotCheck()
Const NbColonne = 3 ' adapter au nombre de colonnes
Dim TB(NbColonne), i As Integer
Dim Total(NbColonne) As Integer
Dim Obj As OLEObject
Dim Col As Integer, L As Integer
    With Sheets("Feuil2")
    For i = 1 To NbColonne
        TB(i) = .Cells(1, i).Left
    Next i
    For Each Obj In .OLEObjects
        'verifie s'il s'agit d'une Checkbox
        If TypeOf Obj.Object Is MSForms.CheckBox Then
             Col = Obj.Left
             For i = NbColonne To 2 Step -1
                If Col > TB(i) Then Exit For
             Next i
             Total(i) = Total(i) + Abs(Obj.Object.Value)
        End If
    Next Obj
    For i = 1 To NbColonne 'adapter la ligne
        .Cells(1, i) = Total(i)
    Next i
    End With
End Sub
A+

Patrice33740 · Answer

Bonjour,

Je viens de jeter un oeil à ton fichier, utiliser une telle quantité de cases à cocher ne semble pas un bonne méthode.

En effet sur les 800 cellules L3 à P162 sont disposées 1911 cases à cocher !
Beaucoup de cellules contiennent de nombreuses cases superposées les unes sur les autres.

Il me semble plus simple d'écrire simplement un X dans la cellule, il suffit alors de compter le nombre de X avec NB.SI()

Tu peux éventuellement ajouter une macro pour écrire ou effacer automatiquement le X chaque fois que tu sélectionne une des 800 cellules :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

  If Intersect(Target, Range("L3:P162")) Is Nothing Then Exit Sub
  If Target.Count > 1 Then Exit Sub
  If Target.Formula = "" Then Target.Formula = "X" Else Target.Formula = ""

End Sub


Si tu persistes avec les cases à cocher, il faut d'abord supprimer les 1111 cases superflues. 
Ensuite la solution consiste à définir pour chacune des cases, une cellule liée située sur la même ligne (clic droit, format de contrôle) :
tu l'a fait pour la case située en L3 (case liée = R3), mais tu aurais dû lier la première des nombreuses cases situées sur la cellule L4 à la cellule R4 au lieu de R3, et ainsi de suite pour les 160 cases de cette colonne, puis lier les cases de la colonne M à celles de la colonne S ainsi de suite pour les 5 colonnes :
bon courage, il faut les faire une par une ! (à moins d'écrire une macro qui le fera à ta place)

Une fois terminé, il suffira alors de compter le nombre de VRAI de la colonne correspondante avec NB.SI()

Somme de cases cochées dans excel 03

8 réponses

Discussions similaires