A voir également:
- {Access} Comment calculer les case a coche
- Comment calculer la moyenne sur excel - Guide
- Case à cocher excel - Forum MacOS
- Raccourci clavier case à cocher - Forum Clavier
- Supprimer case à cocher excel ✓ - Forum Excel
- Acer quick access - Forum Logiciels
2 réponses
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
