{Access} Comment calculer les case a coche
Fermé
dalian123
-
16 sept. 2009 à 10:26
Lamp's Messages postés 54 Date d'inscription mercredi 13 mai 2009 Statut Membre Dernière intervention 24 septembre 2009 - 23 sept. 2009 à 14:59
Lamp's Messages postés 54 Date d'inscription mercredi 13 mai 2009 Statut Membre Dernière intervention 24 septembre 2009 - 23 sept. 2009 à 14:59
A voir également:
- {Access} Comment calculer les case a coche
- Comment calculer la moyenne sur excel - Guide
- Aller à la ligne dans une case excel - Guide
- Case à cocher open office - Forum LibreOffice / OpenOffice
- Comment cocher une case sans souris ✓ - Forum Windows
- Case à cocher outlook - Forum Outlook
2 réponses
incaout
Messages postés
347
Date d'inscription
lundi 8 septembre 2008
Statut
Membre
Dernière intervention
15 novembre 2012
74
16 sept. 2009 à 17:13
16 sept. 2009 à 17:13
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
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
Lamp's
Messages postés
54
Date d'inscription
mercredi 13 mai 2009
Statut
Membre
Dernière intervention
24 septembre 2009
6
23 sept. 2009 à 14:59
23 sept. 2009 à 14:59
Ou sinon tu fais une requête de sélection de toutes les cases non cochées et tu fais fais la somme
