Bonjour,

Je vous fait part de mon problème qui est assez fréquent car j'ai trouvé plusieurs forums et postes la dessus sans pour autant trouver la réponse à mon problème.
Je souhaite créer une sorte de formulaire avec des questions et avec celà j'ai ajouter une checkbox pour valider le choix de la réponse et ainsi afficher la réponse correcte, sauf qu'en executant mon programme je reçois un message d'erreur "Run-time error 424 object required"
voici mon code :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
Sub affichageQuestion()
 
Dim xlw As Workbook
 
Set xlw = Workbooks("quiz.xlsm")
 
xlw.Worksheets("Sheet1").Shapes(2).Visible = msoFalse
 
xlw.Worksheets("Sheet1").Range("B3") = xlw.Worksheets("Sheet2").Range("A2").Value
xlw.Worksheets("Sheet1").Range("B8") = xlw.Worksheets("Sheet2").Range("B2").Value
xlw.Worksheets("Sheet1").Range("B10") = xlw.Worksheets("Sheet2").Range("B3").Value
xlw.Worksheets("Sheet1").Range("B12") = xlw.Worksheets("Sheet2").Range("B4").Value
xlw.Worksheets("Sheet1").Range("B14") = xlw.Worksheets("Sheet2").Range("B5").Value
 
 
 
If CheckBox.Value = -1 Then
 
    xlw.Worksheets("Sheet1").Shapes(2).Visible = msoTrue
 
End If
 
 
 
End Sub
Si vous pouvez m'aider le plutôt possible merci car mon manager de stage souhaite avoir ce formulaire bientôt et comme j'avance pas il est pas vraiment content.

Merci