Option button

Bonsoir a tous

dans le usf2 nous répondons (après avoir choisie le bâtiment l’étage et la pièce ) a des questions d'accessibilité pour personnes en situations de handicap en cochant des option buttons( valeur dans le tableau 0ou 1ou 2ou 3. puis en validant la saisie les valeurs se collent bien dans les bonnes colonnes et la bonne ligne . mon souci et que si j'oublie de valider dans un groupe d'option button se groupe prend la dernière valeur saisie et vient l’incrémenter dans le tableau. ya til moyen de n'avoir aucune valeur dans le tableau si option button non saisie

ps les optiobuttons concernépour le moment vontde frame 1 jusque la frame 9 "Les barres de rappel de porte sont à hauteur et dans le sens de tirage de la porte"

merci de votre aide

Bonjour

Je ne comprends pas ce que tu marques

chtimili a écrit :

si j'oublie de valider dans un groupe d'option button se groupe prend la dernière valeur saisie et vient l’incrémenter dans le tableau.

Donne un exemple clair

Car à chaque changement dans les ComboBox tous les OptionButton sont "nettoyés"

Il y aura toujours 5 groupes d'OptionButton par question ?

bonjour Banzai

deja merci parce que tu m'aide bien

oui 5 groupes 1 groupe par type de handicap

alors un exemple clair : si du choisie batiment C1 etage 2eme sous sol et couloir 1 ( j'ai une erreur sur le label "ascenseur" il faut lire Circulation) tu obtient en identifiant 33928. Maintenant si a la première question" tapis trop epais?" pour le handicap moteur tu coche "pas satisfaisant "et que tu ne coche rien pour les autres handicaps . on vois dans le tableau( ligne 6 col 5) le premier 3 et ok puisqu'il corresponds a notre choix mais tous les autres 3 a la suite ne devrait pas etre la .puisqu' on a pas cochés .dans usf

pour l'instant tres satisfaisant =0

satisfaisant =1

peu satisfaisant=2

tres satisfaisant =3

pas satisfaisant=3

Bonjour

Avec un exemple on(je) comprend mieux

Rajoute les lignes dans Private Sub CommandButton3_Click()

        For Each Ctrl In Me.Controls
          If Left(Ctrl.Name, 5) = "Frame" And Len(Ctrl.Name) = 9 Then
            qu = Val(Mid(Ctrl.Name, 6, 2))
            h = Val(Mid(Ctrl.Name, 8, 2))
            choix = -1
            For Each opt In Ctrl.Controls
              If opt.Value = True Then
                choix = Right(opt.Name, 1)
                'Debug.Print Ctrl.Name & "(qu=" & qu & ",h=" & h & ")=" & choix
              End If
            Next opt
            If choix > -1 Then
              Col = 4 + (qu - 1) * 5 + h
              .Cells(Ligne, Col).Value = choix
            End If
          End If
        Next Ctrl

Une autre façon de faire

        For Each Ctrl In Me.Controls
          If Left(Ctrl.Name, 5) = "Frame" And Len(Ctrl.Name) = 9 Then
            qu = Val(Mid(Ctrl.Name, 6, 2))
            h = Val(Mid(Ctrl.Name, 8, 2))
            For Each opt In Ctrl.Controls
              If opt.Value = True Then
                choix = Right(opt.Name, 1)
                'Debug.Print Ctrl.Name & "(qu=" & qu & ",h=" & h & ")=" & choix
                Col = 4 + (qu - 1) * 5 + h
                .Cells(Ligne, Col).Value = choix
               Exit For
              End If
            Next opt
          End If
        Next Ctrl

super