XL 2016 Quiz pour enfants

Gégé-45550

XLDnaute Accro

• 3 Décembre 2023

• #2

lynyrd à dit:

Bonjour
Est il possible de faire par VBA que lorsque l'on coche une "case à cocher",on ne puisse plus changer de réponse.
Du genre Quand une case est cochée,les 2 aures ne sont plus visibles.
Merci.

Cliquez pour agrandir...

Bonsoir,
Une proposition en PJ.
Cordialement,

 

Pièces jointes

• quiz pour enfants.xlsm

  32.8 KB · Affichages: 11

Vote positif 0 Vote négatif

lynyrd

XLDnaute Impliqué

• 3 Décembre 2023

• #3

Merci Gégé-45550
c'est nickel
A+

 

Vote positif 0 Vote négatif

lynyrd

XLDnaute Impliqué

• 3 Décembre 2023

• #4

Re
J'ai essayé de refaire la même chose avec un autre fichier ou les chekbox commencent à
checkbox1
checkbox2
checkbox3
mais ca ne marche pas
vous pouvez me dire ou j'ai fait une erreur.
Merci

 

Pièces jointes

• quiz petits.xlsm

  45.9 KB · Affichages: 6

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 3 Décembre 2023

• #5

Bonjour lynyrd, Gégé-45550,

Ces 2 macros suffisent :

VB:

Sub Init()
Dim ObjCb As CheckBox
    For Each ObjCb In Sheets("Feuil1").CheckBoxes
        ObjCb.Visible = True
        ObjCb.Enabled = True
        ObjCb = xlOff
    Next ObjCb
End Sub

Sub Masquer()
Dim ObjCb As CheckBox, lig&, Cb As CheckBox
    For Each ObjCb In Sheets("Feuil1").CheckBoxes
        If ObjCb = xlOn Then
            ObjCb.Enabled = False
            lig = ObjCb.TopLeftCell.Row
            For Each Cb In Sheets("Feuil1").CheckBoxes
                If Cb.TopLeftCell.Row = lig And Cb = xlOff Then Cb.Visible = False
            Next Cb
        End If
    Next ObjCb
End Sub

A+

 

Pièces jointes

• quiz pour enfants.xlsm

  29.1 KB · Affichages: 13

Vote positif 0 Vote négatif

lynyrd

XLDnaute Impliqué

• 3 Décembre 2023

• #6

Merci à toi job75
c'est plus epuré que le post précédant.
Merci à vous 2 dans tous les cas.
A+

 

Vote positif 0 Vote négatif

L

Lolote83

XLDnaute Barbatruc

• 3 Décembre 2023

• #7

Bonjour,
Voici un autre exemple avec un formulaire.
Les questions sont dans un tableaux structuré et il suffit de rajouter une ligne pour que les questions s'incrémentent dans le formulaire.
Bon quizzzzzz !!!!
@+ Lolote83

 

Pièces jointes

• Copie de LYNYRD - Quiz pour enfants.xlsm

  25.6 KB · Affichages: 8

Vote positif 0 Vote négatif

lynyrd

XLDnaute Impliqué

• 3 Décembre 2023

• #8

Re
Je doit avoir oublié quelque chose
Pourquoi l'onglet "Geo" ne fonctionne pas ?
Merci.
Pour la solution de Lolote83 est bien aussi mais je préfère celle de job75.

 

Pièces jointes

• quiz1.xlsm

  85.7 KB · Affichages: 5

Vote positif 0 Vote négatif

lynyrd

XLDnaute Impliqué

• 3 Décembre 2023

• #9

j'ai trouvé
il fallait affecter les check box à la nouvelle macro.

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 3 Décembre 2023

• #10

bonjour
affecter tout tes checkbox à cette même macro
+ un sub pour faire un reset

VB:

Sub Caseàcocher_Cliquer()
    If ActiveSheet.DrawingObjects(Application.Caller).Value = 1 Then
        For Each shap In ActiveSheet.Shapes
            If shap.TopLeftCell.Row = ActiveSheet.Shapes(Application.Caller).TopLeftCell.Row Then
                shap.Visible = False
            End If
        Next
    End If
End Sub

Sub visibleAll()
    For Each shap In ActiveSheet.Shapes
        shap.Visible = True
        ActiveSheet.DrawingObjects(shap.Name).Value = 0
    Next
End Sub

 

Vote positif 0 Vote négatif

lynyrd

XLDnaute Impliqué

• 3 Décembre 2023

• #11

Merci patricktoulon
Ca fonctionne nickel aussi
Je ne sait plus ou donner de la tête parmi toutes ces propositions
Merci à vous 4
A+

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 3 Décembre 2023

• #12

re
ben si tu sais plus où donner de la tête donne des coups de pieds
ok je sort

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 3 Décembre 2023

• #13

Hello Patrick,

- Il ne faut pas masquer la CheckBox qui vient d'être cochée

- par contre il faut la désactiver avec la propriété Enabled à False.

A+

 

Vote positif 0 Vote négatif

Cousinhub

XLDnaute Barbatruc

• 3 Décembre 2023

• #14

Bonsoir,
[Humour/]

lynyrd à dit:

Je ne sait plus ou donner de la tête

Cliquez pour agrandir...

Apprendre aux messins à tirer les penaltys? (2 échecs ce soir vs LOSC)
[\Humour]
Bonne soirée (et bon courage pour le FCM)

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 3 Décembre 2023

• #15

job75 à dit:

Hello Patrick,

- Il ne faut pas masquer la CheckBox qui vient d'être cochée

- par contre il faut la désactiver avec la propriété Enabled à False.

A+

Cliquez pour agrandir...

re
Bonsoir @job75 si tu veux
comme il est demandé que l'on ne puisse plus y revenir

Est il possible de faire par VBA que lorsque l'on coche une "case à cocher",on ne puisse plus changer de réponse.
Du genre Quand une case est cochée,les 2 aures ne sont plus visibles.

Cliquez pour agrandir...

perso je pense que le non visible est plus approprié ou alors faire disabled sur les 3

 

Vote positif 0 Vote négatif