{Access} Comment calculer les case a coche

Salut,

En vba, tu utilises une boucle For each qui parcoure l'ensemble des controles presents. Pour chaque controle tu vérifies son type. Si type = case à cocher, tu vérifies si elle est cochée. Si oui, tu incrémentes un compteur

Function CompteChkbx() As Integer

Dim ceCtrl

'initialise le compteur
CompteChkbx = 0

For Each ceCtrl In ActiveForm.Controls
'Vérifie si le controle est une case à cocher
If ceCtrl.ControlType = acCheckBox Then
'Vérifie si la case est cochée
If ceCtrl.Checked = True Then
'incrémente le compteur
CompteChkbx = CompteChkbx + 1
End If
End If
Next
End Function

pour utiliser cette fonction :

utilise cette instruction à mettre à l'endroit où tu veux récupérer le total :

total = CompteChkbx
msgbox total

J'espère que cela fera ton affaire. Je n'ai pas testé ce code.

A+

IC

Ou sinon tu fais une requête de sélection de toutes les cases non cochées et tu fais fais la somme