Somme de cases cochées dans excel 03

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;">""")

bonjour
pour faire plus simple et si tes autres cases sont vierges

NBVAL(A1;A100)

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 ?

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

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

«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()

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+