Run time error 424 object requis

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:

---

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

Bonsoir,
que représent msotrue et msifalse?

Bonsoir,

tu as oublié de nous dire sur quelle ligne était l'erreur ..

vérifie aussi le nombre d'objet shapes dans ta feuille en rajoutant ligne 6

Code:

---

debug.print xlw.Worksheets("Sheet1").Shapes.count 'Résulatat dans fenêtre exécution (CTRL+G)

---

Bonjour,

Citation:

---

Bonsoir,
que représent msotrue et msifalse?

---

Ce sont deux constantes qui représentent chacune un nombre.

Bonjour,

Je plussois bbil en disant que ce serait utile de savoir quelle est la ligne qui est en erreur.

Ceci dit, je sais que par expérience que VBA a tendance a être frileux avec des enchaînements d'objets. Tu pourrais essayer de remplacer cette ligne:

Citation:

---

Code:

---

1 2	xlw.Worksheets("Sheet1").Shapes(2).Visible = msoFalse

---

---

Par quelque chose qui finirait par ressembler à ceci (pas testé, mais c'est au moins l'idée générale):

Code:

---

1 2 3

Dim UneBelleForme as Shape set UneBelleForme = xlw.Worksheets("Sheet1").Shapes(2) UneBelleForme.visible =msofalse

---

Bonjour, oui en effet j'ai oublié de préciser sur quelle ligne l'erreur est générée, et en lançant le programme ligne par ligne ( Step in) l'erreur est au niveau de cette ligne là

Code:

---

If CheckBox.Value = -1 Then

---

Apparement il reconnait pas le CheckBox que j'ai ajouté, mais j'ai pus contourner le problème : au début j'utilisais un CheckBox de la catégorie Form control, et je l'ai remplacé par un CheckBox de la catégorie Activex Control et magiquement ca marche, toute fois je sais pas pourquoi par Form control ca marchait pas.

bonjour,
utilise l’enregistreur de macro lui il répondra à ton problème!

Ton Checkbox s'appelle "Checkbox" ??

le problème ne vient pas du nom, genre c'est "Checkbox1" par exemple ?

Bonjour
avec ceci placer juste au dessus de la ligne defaillante

Code:

---

a = checkbox.value

---

Checkbox.value ne renvoie-t-il pas vrai ou faux, donc -1 serait inconnu

et donc

Code:

---

checkbox.value = true

---

me semble plus judicieux

Bonsoir à tous,

Je suis de l'avis de joe.levrai, il faut vérifier le "(Name)" de ce CheckBox dans les propriétés de ce contrôle ActiveX. C'est certainement CheckBox1.
A condition que ce n'est pas un contrôle de formulaire qui a été inséré.