Discussion :

[vbavba]

voici donc le lien de ce que je suis en train de réaliser.
Je bute à l'étape 7.
VBA m'indique que j'ai fait une erreur sur le ";" que While Ligne < = NbLignes +10.
Je vous décris mon tableau avec les questions. J'ai commencé à noter mes questions en A11 comme indiqué sur le document, j'aurais bien voulu commencer avant d'ailleurs. Si vous pouvez m'expliquer comment procéder, ça serait sympa.
A11 à A17, j'ai mes questions.
B11 à B17, j'ai les réponses à mes questions sous forme de chiffre par rapport à leur emplacement.
C11 à F17, j'ai les possibilités de réponses à mes questions (3 réponses possibles + un je ne sais pas).
G11 à G17, réponses choisies par le candidat.
H11 à H17, j'ai les résultats. J'ai appliqué à la lettre le document.
J'ai réalisé ma fenêtre avec mes 6 boutons. J'ai noté le code pour chaque bouton. J'arrive donc à l'étape 7. J'ai compris l'utilité de Selection.end(xlDown).select mais ensuite comment noter mes réponses et mes questions, je bloque.

Autre petit bug, je ne trouve plus ma petite fenêtre avec les objets (textbox, etc) dans visual basic, puis-je savoir pourquoi ?

Si vous avez des petits fichiers avec vos exemples, ça serait super. Je débute dans les macros, je veux juste apprendre à savoir faire un questionnaire de 18 à 20 questions.

Je vous remercie d'avance pour vos réponses.

[SfJ5Rpw8]

Bonsoir,

poste le code posant problème directement dans ton message entre balise de code [Code] Ton Code [/code]

Pour les Userform , un peu de lecture : http://excel.developpez.com/cours/?page=prog#userform
,pense aussi à sauver ton fichier excel 2007 ou + en .xlsm s'il contient du code ou des userform.

[vbavba]

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
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
 Private Sub TxtQuestion_Change()
End Sub
 
Private Sub Btn1_Click()
MaReponse = 1
Frm_QCM.Hide
 
End Sub
 
Private Sub Btn2_Click()
MaReponse = 2
Frm_QCM.Hide
 
End Sub
 
Private Sub Btn3_Click()
MaReponse = 3
Frm_QCM.Hide
 
End Sub
 
Private Sub Btn4_Click()
MaReponse = 4
Frm_QCM.Hide
 
End Sub
 
Private Sub BtnAnnule_Click()
End
 
End Sub
 
Private Sub BtnNeSaitPas_Click()
MaReponse = -1
 
End Sub
 
 
Private Sub Name_Click()
 
End Sub

Voici donc mon premier code pour les boutons Réponses.
.....

Code :

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

1
2
3
 Select.End(xlDown).Select
While Ligne < NbLignes + 10
'Ensuite je ne comprends pas en sachant que le ; ne passe pas

Code inscrit dans Module.
........

Code :

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

1
2
3
4
 Private Sub Workbook_Open()
QCM.Show
 
End Sub

Code dans ThisWorkBook
........
Mon but est bien d'afficher une fenêtre qui reprend mes questions une par une. J'ai ma fenêtre avec les boutons, il me manque juste à comprendre comment entrer mes questions et mes réponses dans le code.
Et enfin savoir comment faire pour débuter directement à A2. J'ai compris qu'il fallait faire une soustraction mais je n'arrive pas à saisir le sens de ceci : Ligne &lt

Merci

[SfJ5Rpw8]

il semble s'agir d'un défaut d'affichage sur ton site Web, &lt; correspond au caractère inférieur : <

voir :

http://gdumas.developpez.com/article...eres-speciaux/

et ta boucle while est donc effectué tant que ton compteur de ligne (variable ligne) est inférieur au nombre de ligne + 10 ..

[vbavba]

Ok, merci Bbil.
Dans le document, il est noté "Cliquez sur l'outil Zone de texte". Je pense que je dois créer non pas une zone de texte mais d'un Intitulé.
Comment faire pour que mes questions défilent dans l'espace Intitulé et que ma macro reconnaisse la bonne réponse pour donner une note à la fin ?

J'ai tout essayé, mettre les références de mes réponses dans Caption comme par exemple : feuil1 !C12 : F17

Merci.