IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Macros et VBA Excel Discussion :

Nombre de case à cocher minimum


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre éclairé
    Homme Profil pro
    Inscrit en
    Novembre 2009
    Messages
    322
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Canada

    Informations forums :
    Inscription : Novembre 2009
    Messages : 322
    Par défaut Nombre de case à cocher minimum
    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

  2. #2
    Modérateur
    Avatar de AlainTech
    Homme Profil pro
    Consultant informatique
    Inscrit en
    Mai 2005
    Messages
    4 235
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 71
    Localisation : Belgique

    Informations professionnelles :
    Activité : Consultant informatique
    Secteur : Finance

    Informations forums :
    Inscription : Mai 2005
    Messages : 4 235
    Par défaut
    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.
    N'oubliez pas de cliquer sur quand vous avez obtenu ou trouvé vous-même la réponse à votre question.
    Si vous trouvez seul, pensez à poster votre solution. Elle peut servir à d'autres!
    Pensez aussi à voter pour les réponses qui vous ont aidés.
    ------------
    Je dois beaucoup de mes connaissances à mes erreurs!

  3. #3
    Expert confirmé
    Profil pro
    Inscrit en
    Décembre 2007
    Messages
    6 814
    Détails du profil
    Informations personnelles :
    Localisation : France, Hérault (Languedoc Roussillon)

    Informations forums :
    Inscription : Décembre 2007
    Messages : 6 814
    Par défaut
    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).

  4. #4
    Expert confirmé
    Homme Profil pro
    Inscrit en
    Août 2010
    Messages
    3 453
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations forums :
    Inscription : Août 2010
    Messages : 3 453
    Par défaut
    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é.

Discussions similaires

  1. [AC-2007] Compter le nombre de cases à cocher dans une colonne
    Par P.Flo dans le forum Modélisation
    Réponses: 5
    Dernier message: 31/03/2014, 14h08
  2. Nombre de cases à cocher cochées
    Par sam01 dans le forum Langage
    Réponses: 2
    Dernier message: 02/03/2010, 20h10
  3. Compter le nombre de case à cocher
    Par solaar dans le forum VBA Access
    Réponses: 2
    Dernier message: 03/11/2009, 16h57
  4. QCheckBox->limité nombres de cases à cocher
    Par theory23 dans le forum Qt
    Réponses: 2
    Dernier message: 30/04/2009, 09h43
  5. [Etat] Compter nombre de case à cocher = vrai
    Par skeut dans le forum VBA Access
    Réponses: 7
    Dernier message: 17/06/2008, 22h56

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo