Obliger à remplir des cases à cocher en vba

Bonjour à tous,

J'ai crée un fichier excel avec 10 onglets. sur chaque onglet, il y a des questions avec des cases à cocher (oui, non et aucune observation). Le nombre de questions par onglet est différente. Par exemple pour le premier onglet, il y a 7 questions. Pour le second onglet, il y a 20 questions. Au total des 10 onglets, il y a 50 questions.
Je souhaites obliger les utilisateurs à remplir aux moins 25 questions sur les 50 questions mais je ne sais pas comment faire?
Si quelqu'un pouvait m'aider?

merci et bonne journée

Bonjour,

Quelles sont les cases à cocher? c'est une cellule où il faut mettre un X, c'est un controle formulaire ou activeX?

Alors c'est des cases rondes à cocher (case d'option), du contrôles formulaires.

bonjour,

Code:

---

1 2 3 4 5 6 7 8 9

Private Sub Valider_Click() Dim ps As Integer For i = 0 To Me.Controls.Count - 1 If TypeName(Me.Controls(i)) = "OptionButton" Then If UCase(Me.Controls(i).Caption) = "OUI" Then ps = ps + Me.Controls(i) End If Next If Abs(ps) < 25 Then MsgBox "<25" End Sub

---

Merci pour la réponse mais il me faut 25 de "Oui" et de "Non"....

Code:

---

1 2 3 4 5 6 7 8 9 10

Private Sub Valider_Click() Dim ps As Integer For i = 0 To Me.Controls.Count - 1 If TypeName(Me.Controls(i)) = "OptionButton" Then 'If UCase(Me.Controls(i).Caption) = "OUI" Then ps = ps + Me.Controls(i) End If Next If Abs(ps) < 25 Then MsgBox "<25" End Sub

---

et oui mais là c'est plus bon car j'ai 3 cases à cocher, "oui", "non" et "peut être"....désolé

Code:

---

1 2 3 4 5 6 7 8 9

Private Sub Valider_Click() Dim ps As Integer For i = 0 To Me.Controls.Count - 1 If TypeName(Me.Controls(i)) = "OptionButton" Then If UCase(Me.Controls(i).Caption) <> "peut être" Then ps = ps + Me.Controls(i) End If Next If Abs(ps) < 25 Then MsgBox "<25" End Sub

---

Bonjour et re-merci pour le code. J'ai testé aujourd'hui et il me marque "Erreur de compilation dans le module...."

ou dans le module? quel ligne?

Il me redirige pas sur la ligne mais il m'indique juste la feuille 10, là où il y a le code....

Le probleme vient peut être du fait que les cases à cocher sont sûr les autres feuilles 1, 2, 3, etc... jusqu'à 9 alors que j'ai mis le code sur l'onglet "resultat", feuil 10