Création d'un super Quiz
Talibouilmine1
-
Frenchie83 Messages postés 2240 Date d'inscription Statut Membre Dernière intervention -
Frenchie83 Messages postés 2240 Date d'inscription Statut Membre Dernière intervention -
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
Reponse1 étant la caption d'une case d'option ActiveX
Merci
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 site web - Guide
- Création d'un compte google - Guide
- Media creation tool - Télécharger - Systèmes d'exploitation
1 réponse
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.
Cdlt
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