Discussion :

[Marc31]

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

[bboy-eazy]

Bonjour,

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

[Marc31]

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

[Invité]

bonjour,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Marc31]

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

[Invité]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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