Création d'un super Quiz Fermé

Question

Bonjour, En essayant de suivre les démarches pour la création d'un super quiz que j'ai vu dans une vidéo, une erreur me bloque:
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range) 

    If ActiveCell.Row > 11 And ActiveCell.Column = 3 Or ActiveCell.Column = 4 Or ActiveCell.Column = 5 Or ActiveCell.Column = 6 And ActiveCell.Value <> "" Then
    ' Cellule active supérieure à la ligne 11, et les colonnes C,D,E et F non vides
    Sheets("Quiz").Range("I20").Value = 0
    Sheets("Quiz").Range("L20").Value = 0
    Sheets("Quiz").Range("D9").Value = " Choisissez une matière"
    Sheets("Quiz").Range("A1").Value = 1
    Sheets("Quiz").Reponse1.Value = False
    Sheets("Quiz").Reponse2.Value = False
    Sheets("Quiz").Reponse3.Value = False
    Sheets("Quiz").Reponse4.Value = False
    Sheets("Quiz").Reponse1.Value = ClearContents
    Sheets("Quiz").Reponse2.Value = ""
    Sheets("Quiz").Reponse3.Value = ""
    Sheets("Quiz").Reponse4.Value = ""
    'Mise à jour des Quiz disponibles

 l'erreur est Sheets("Quiz").Reponse1.Value = ClearContents
Reponse1 étant la caption d'une case d'option ActiveX
Merci

Configuration: Windows / Firefox 57.0

Frenchie83 · Answer

Bonjour,
Ce n'est pas "Caption" qu'il faut effacer, mais mettre à "false" les boutons concernés, voir l'exemple ci-dessous, à adapter avec les bons numéros de boutons.
        Sheets("Quiz").Range("I20").Value = 0
        Sheets("Quiz").Range("L20").Value = 0
        Sheets("Quiz").Range("D9").Value = " Choisissez une matière"
        Sheets("Quiz").Range("A1").Value = 1
        Sheets("Quiz").OptionButton1 = False
        Sheets("Quiz").OptionButton2 = False
        Sheets("Quiz").OptionButton3 = False
        Sheets("Quiz").OptionButton4 = False

Cdlt

Création d'un super Quiz

1 réponse

Discussions similaires