Création d'un super Quiz

Fermé

Talibouilmine1 - 19 janv. 2018 à 16:25
Frenchie83 Messages postés 2240 Date d'inscription lundi 6 mai 2013 Statut Membre Dernière intervention 11 août 2023 - 20 janv. 2018 à 08:45

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

A voir également:

Création d'un super Quiz
Super copier - Télécharger - Gestion de fichiers
Creation compte gmail - Guide
Création organigramme - Guide
Media creation tool - Télécharger - Systèmes d'exploitation
Création compte google - Guide

1 réponse

Réponse 1 / 1

Frenchie83 Messages postés 2240 Date d'inscription lundi 6 mai 2013 Statut Membre Dernière intervention 11 août 2023 337
20 janv. 2018 à 08:45

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

Newsletters