XL 2016 Quiz pour enfants

[lynyrd]

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.

 

[Gégé-45550]

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.

Bonsoir,
Une proposition en PJ.
Cordialement,

 

[lynyrd]

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

 

[lynyrd]

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

 

[job75]

Bonjour lynyrd, Gégé-45550,

Ces 2 macros suffisent :

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+

 

[lynyrd]

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

 

[Lolote83]

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

 

[lynyrd]

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.

 

[lynyrd]

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

 

[patricktoulon]

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

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

 

[lynyrd]

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

 

[patricktoulon]

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

 

[job75]

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+

 

[Cousinhub]

Bonsoir,
[Humour/]

Je ne sait plus ou donner de la tête

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

 

[patricktoulon]

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+

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.

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