Discussion :

[nelbekri]

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

[Invité]

Bonsoir,
que représent msotrue et msifalse?

[SfJ5Rpw8]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[clementmarcotte]

Bonjour,

Bonsoir,
que représent msotrue et msifalse?

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

[clementmarcotte]

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:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[nelbekri]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[Invité]

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

[joe.levrai]

Ton Checkbox s'appelle "Checkbox" ??

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

[keygen08]

Bonjour
avec ceci placer juste au dessus de la ligne defaillante

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

a = checkbox.value

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

et donc

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

checkbox.value = true

me semble plus judicieux

[HopPopPop]

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é.