Recherche

Nos formations et livres


Accueil arrow Tutoriel Excel arrow Cours Excel - Macro commande
Cours / tutoriel de formation Excel n° 25 : enregistrer une macro-commande Suggérer par mail
Cours et didacticiels - Bureautique - Infographie - Apprendre Excel - Sommaire des cours sur Excel
Écrit par Alain MATHIEU et Dominique LEROND   
14-09-2008


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



Dernière mise à jour : ( 21-12-2008 )
 
< Précédent   Suivant >



 

Advertisement
© 2019 Formation - Création de sites web - Nancy - 54 - Lorraine
Reproduction interdite - Visitez également www.mosaique-informatique.com.