|
Page 2 sur 2
|
Un petit programme en VBA
La balle est maintenant dans votre camp, vous pouvez imaginer la suite de cet exercice à votre guise.
Développer un cours sur Visual Basic dépasserait largement
le volume total de ce cours. Aussi préférons-nous ne vous donner que
les grandes lignes des manipulations. Voici quelques suggestions :
- ajoutez une macro permettant d'effacer le résultat dans la feuille Quiz ;
- Ajoutez des contrôles qui seront affichés en même temps que
le résultat et qui serviront à indiquer les réponses à chaque question.
Créez deux macros permettant d'afficher et de masquer ces contrôles
(afin de ne pas afficher les réponses pendant l'exécution du quiz) ;
- Créez, une nouvelle barre d'outils par le menu Affichage/Barres d'outils/Personnaliser, onglet Barres d'outils, bouton Nouvelle et tapez Quiz dans la zone Nom de la barre d'outils. Créez vos propres icônes au moyen de l'Editeur de boutons et affectez leur vos macro-commandes.
Pour vous aider, voici à quoi peuvent ressembler ces macros (vous pouvez accéder au code VBA des macros par le menu Outils/Macros/Modifier) :
|
Sub resultats_invisibles()
'
' resultats_invisibles Macro
' Macro enregistrée le 24/09/2001 par Administrateur
'
ActiveSheet.Shapes("Check Box 25").Visible = False
ActiveSheet.Shapes("Check Box 35").Visible = False
ActiveSheet.Shapes("Check Box 27").Visible = False
ActiveSheet.Shapes("Option Button 29").Visible = False
ActiveSheet.Shapes("Option Button 30").Visible = False
ActiveSheet.Shapes("Option Button 31").Visible = False
ActiveSheet.Shapes("List Box 32").Visible = False
ActiveSheet.Shapes("List Box 33").Visible = False
ActiveSheet.Shapes("Zone combinée 36").Visible = False
Range("I18").Select
Selection.ClearContents
End Sub
Sub resultats_visibles()
'
' resultats_visibles Macro
' Macro enregistrée le 24/09/2001 par Administrateur
'
ActiveSheet.Shapes("Check Box 25").Visible = True
ActiveSheet.Shapes("Check Box 35").Visible = True
ActiveSheet.Shapes("Check Box 27").Visible = True
ActiveSheet.Shapes("Option Button 29").Visible = True
ActiveSheet.Shapes("Option Button 30").Visible = True
ActiveSheet.Shapes("Option Button 31").Visible = True
ActiveSheet.Shapes("List Box 32").Visible = True
ActiveSheet.Shapes("List Box 33").Visible = True
ActiveSheet.Shapes("Zone combinée 36").Visible = True
Range("I18").Select
ActiveCell.FormulaR1C1 = "='Résultats 1'!R[1]C"
End Sub
<< Début < Précédente 1 2 Suivante > Fin >>
|
