Discussion :

[dlight]

Bonjour à tous.

Une fois de plus, j'ai besoin de votre aide.

À l'intérieur d'un Userform, j'ai plusieurs questions avec des cases à coché "oui" et "non".
Si dans le userform il y a 10 questions, il devra obligatoirement y avoir 10 réponses avant de passer au prochain userform avec une autre série de questions

Est-il possible que lors de l'utilisation du bouton, que le code valide qu'il y a 10réponses?

Merci à l'avance

Dlight

[AlainTech]

Bonjour,

Fais une boucle sur les cases à cocher et compte (dans une variable) celles qui sont cochées.

Euh... Je me pose une question.
As-tu pensé au cas où un utilisateur coche le Oui et le Non d'une même question?
J'aurais plutôt utilisé des paires d'Option buttons.

[el_slapper]

En même temps, avec ça, l'utilisateur distrait va oublier de répondre à certaines questions. Sa conception est futée fonctionellement. Evidemment, d'un point de vue technique, ça complique les choses.

Pour moi, il faut créer, pour chaque bouton, un évènement quand il change, qui appelle une procédure commune de vérification, qui vérifie pour chaque paire, que l'une seule est cochée. Si chacune des paires est OK(1 seule réponse cochée), alors on active le bouton de validation, sinon on le desactive. Pas mal de boulot, donc.

Sinon, avec des option buttons, on peut n'activer le premier, puis attendre un clic pour activer le second, etc.....jusqu'au dernier qui active le bouton de validation. Je n'ai pas tester, si c'est à oui et qu'on clique sur oui, je suppose que ça déclenche l'evenement click(à vérifier avant de faire, je ne suis pas sur).

[Theze]

Bonjour,

Crée autant de cadres que tu as de questions et pose des OptionsButtons (1 pour Oui et 1 pour Non) et laisse leurs propriétés "Value" à False. Le Caption des cadres doivent être les questions puis teste ce code à l'affectant au Click du bouton de validation. Adapte :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
Private Sub CommandButton1_Click()
 
    Valider
 
End Sub
 
Private Sub Valider()
 
    Dim Cadre As Control
    Dim Opt As Control
    Dim NomCadre As String
    Dim Choix As Boolean
    Dim Question As String
 
    'boucle sur les contrôles à la recherche des Frames
    For Each Cadre In Me.Controls
 
        If TypeName(Cadre) = "Frame" Then
 
            'mémorise le nom du cadre et
            'son titre (qui représente la question)
            NomCadre = Cadre.Name
            Question = Cadre.Caption
 
            Choix = False
 
            'boucle à nouveau sur les contrôles à la recherche
            'des boutons d'option
            For Each Opt In Me.Controls
 
                'si un choix a été fait, mets la variable à true
                If Opt.Parent.Name = NomCadre Then
 
                    If Opt.Value = True Then Choix = True
 
                End If
 
            Next Opt
 
            'si aucun choix n'a été, message et fin de procédure
            If Choix = False Then
                MsgBox "Vous devez répondre à la question " & Question
                Exit Sub
            End If
 
        End If
 
    Next Cadre
 
    'ici ton code pour la suite du traîtement...
    MsgBox "Bravo ! vous avez répondu à toutes les questions ;o))"
 
End Sub

Hervé.