Blind Dragon Perl encoder
Number of posts : 341 Age : 32 Localisation : Here, as usual Emploi : Admin. Registration date : 2007-05-13
| Subject: Chapitre 9 Tue Jul 10, 2007 5:42 am | |
| Chapitre 9 : Organisation d'un projet
Regroupons des classeurs pour creer un projet. -Cliquez Nouveau meme s'il existe deja un classeur vierge Classeur1 -Ouvrez les classeurs Prospects.xls, Regions.xls et Graphique.xls -Cliquez le menu Fenetre 4 Classeur2 -Cliquez Enregistrer puis tapez MuscleTou ↵ dans Nom de fichier
Enregistrer un environnement
Pour eviter d'ouvrir chaque classeur, il faut enregistrer l'environnement. -Cliquez le menu Fichier Enregistrer un environnement -Tapez MuscleTou ↵ dans Nom du fichier Les environnements portent l'extension .xlw. -Au besoin, cliquez Oui pour enregistrer le classeur Prospects.xls
Menu de selection
L'environnement contient quatre classeurs. Pour nous deplacer facilement entre eux, nous allons creer un menu de selection compose de boutons. -Double-cliquez l'onglet Feuil1 puis tapez Menu ↵ -Cliquez le menu Outils Macro Nouvelle macro -Tapez Prospects ↵ dans Nom de la macro -Cliquez le menu Fenetre 3 Prospects.xls -Cliquez Arreter l'enregistrement Si on enregistre maintenant une nouvelle macro, elle sera sauvee avec le classeur Prospects.xls. Revenons d'abord au classeur MuscleTou.xls. -Cliquez le menu Fenetre 4 MuscleTou.xls -Cliquez le menu Outils Macro Nouvelle macro -Tapez Regions ↵ dans Nom de la macro -Cliquez le menu Fenetre 2 Regions.xls -Cliquez Arreter l'enregistrement -Cliquez le menu Fenetre 4 MuscleTou.xls -Cliquez le menu Outils Macro Nouvelle macro -Tapez Graphique ↵ dans Nom de la macro -Cliquez le menu Fenetre 1 Graphique.xls -Cliquez Arreter l'enregistrement -Cliquez le menu Fenetre 4 MuscleTou.xls -Cliquez le menu Outils Macro Nouvelle macro -Tapez Menu ↵ dans Nom de la macro -Cliquez le menu Fenetre 4 MuscleTou.xls -Cliquez Arreter l'enregistrement Regardons les macros enregistrees. -Cliquez Visual Basic Editor dans la barre d'outils Visual Basic -Au besoin, double-cliquez Module1 dans la fenetre Projet Quand il n'y a pas de vraies actions, aucune instruction n'est enregistree. Passer du classeur MuscleTou.xls au classeur MuscleTou.xls n'est pas une action. La procedure Menu est vide. -Tapez Windows("MuscleTou.xls").Activate ↵ dans Sub Menu Nous ajouterons aussi deux boutons dans notre menu, l'un pour fermer le classeur et revenir a Excel, l'autre pour fermer Excel et revenir a Windows. -Tapez Ctrl Fin pour aller a la fin du module Module1 (Code) -Tapez Sub RetourExcel ↵ Nous devons fermer tous les classeurs. Comme la procedure se trouve dans le premier classeur, il faut fermer les classeurs en commencant par les derniers. -Tapez For i = Workbooks.Count To 1 Step -1 ↵ La methode Close ferme le classeur. Pour eviter qu'Excel demande si l'utilisateur desire enregistrer les modifications, l'argument SaveChanges doit avoir la valeur True. -Tapez Workbooks(i).Close SaveChanges:=True ↵ -Tapez Next i ↵ La procedure RetourWindows doit enregistrer les classeurs et fermer Excel. -Tapez Ctrl Fin Sub RetourWindows ↵ -Tapez For i = 1 To Workbooks.Count ↵ La methode Save sauve les modifications sans fermer le classeur. -Tapez Workbooks(i).Save ↵ -Tapez Next i ↵ La methode Quit de l'objet Application ferme Excel. -Tapez Application.Quit ↵ -Cliquez Affichage Microsoft Excel dans la barre d'outils Standard -Cliquez le carre entre la colonne A et la ligne 1 pour selectionner toutes les cellules de la feuille. -Cliquez le menu Format Cellule -Cliquez l'onglet Motifs, cliquez une couleur claire (jaune sable par exemple) puis cliquez OK -Au besoin, cliquez Dessin pour afficher la barre d'outils Dessin -Cliquez Zone de texte dans la barre d'outils Dessin -Cliquez la feuille, selectionnez votre police preferee, en 24 points et en gras -Tapez MuscleTou dans la zone de texte -Ajoutez un Bouton en-dessous du titre MuscleTou -Doubke-cliquez Prospects dans la liste Nom de la macro -Tapez Prospects dans l'intitule du bouton -Cliquez une cellule puis cliquez le bouton Prospects Excel affiche le classeur Prospects.xls. Pour revenir au classeur Menu, il faut ajouter un bouton. -Ajoutez un Bouton a cote du bouton Ajouter un prospect -Double-cliquez MuscleTou.xls!Menu dans la liste Nom de la macro -Remplacez l'intitule du bouton par Retour au menu -Cliquez avec le bouton droit la bordure hachuree du bouton puis cliquez Format de controle dans le menu contextuel -Cliquez l'onglet Proprietes, cliquez la case Ne pas deplacer... puis cliquez OK -Cliquez une cellule puis cliquez le bouton Retour au menu Excel affiche le classeur MuscleTou.xls. -Ajoutez quatre bouton attaches aux macros Regions, Graphique, RetourExcel et RetourWindows -Changez les intitules des boutons en Regions, Graphique, Excel et Windows -Cliquez le bouton de commande Regions -Ajoutez un bouton intitule Retour au menu attache a la macro MuscleTou.xls!Menu -Cliquez une cellule puis cliquez le bouton Retour au menu -Repetez les trois dernieres actions pour le bouton Graphique | |
|
Blind Dragon Perl encoder
Number of posts : 341 Age : 32 Localisation : Here, as usual Emploi : Admin. Registration date : 2007-05-13
| Subject: Re: Chapitre 9 Tue Jul 10, 2007 5:42 am | |
| Evenement Open
La procedure Open, executee a l'ouverture d'un classeur, permet de definir l'environnement (barres d'outils, taille des fenetres, etc.). -Cliquez Visual Basic Editor dans la barre d'outils Visual Basic. -Double-cliquez ThisWorkbook dans l'arborescence de VBAProject (MuscleTou.xls) -Selectionnez Workbook dans la liste Objet de la fenetre ThisWorkbook (Code) -Selectionnez Open dans la liste Procedure de la fenetre ThisWorkbook (Code) Modifions les proprietes de l'objet Application. -Tapez With Application ↵ Passons a un affichage plein ecran. -Tapez .DisplayFullScreen = True ↵ Supprimons les barres de defilement. -Tapez .DisplayScrollBars = False ↵ Supprimons la barre de formule. -Tapez .DisplayFormulaBar = False ↵ -Tapez End with ↵ Modifions les proprietes de la fenetre active. -Tapez With ActiveWindow ↵ Agrandissons la fenetre. -Tapez .WindowState = xlMaximized ↵ Supprimons les en-tetes des lignes et des colonnes. -Tapez .DisplayHeadings = False ↵ Supprimons les onglets du classeur. -Tapez .DisplayWorkbookTabs = False ↵ -Tapez End with ↵ Nous allons maintenant supprimer toutes les barres d'outils. La propriete Count de la collection d'objets Toolbars donne le nombre de barres d'outils disponibles. On utilise une boucle pour acceder a toutes les barres de la collection. -Tapez For i = 1 To Toolbars.Count ↵ Supprimons la barre d'outils pointee par la variable i. -Tapez Toolbars(i).Visible = False ↵ -Tapez Next i ↵ pour fermer la boucle For
Evenement BeforeClose
Apres la fermeture du classeur, Excel reste dans l'etat defini par la procedure Workbook_Open. Il faut donc creer une macro pour remettre les "lieux" dans l'etat d'origine. Il existe une procedure evenementielle BeforeClose mais elle n'est pas executee si le classeur est ferme par VB et c'est le cas ici. -Selectionnez les lignes a l'interieur de la procedure Workbook_Open puis tapez Ctrl C pour les copier -Double-cliquez Module1 dans l'arborescence de VBAProject (MuscleTou.xls) -Tapez Sub Fermer ↵ -Tapez Ctrl V pour coller les lignes -Remplacez les mots-cles False par True et les mots-cles True par False Pour les barres d'outils, nous nous limiterons aux deux premieres, la barre Standard et la barre Format. -Remplacez For i = 1 To Toolbars.Count par For i = 1 To 2 Executons cette procedure a partir de RetourExcel et RetourWindows. -Tapez Fermer ↵ sur la ligne qui suit Sub RetourExcel() -Tapez Fermer ↵ sur la ligne qui suit Sub RetourWindows()
Lancer le projet
Notre projet etant termine, il ne reste plus qu'a le lancer a partir de Windows. -Fermez la fenetre Microsoft Visual Basic -Fermer la fenetre Microsoft Excel -Cliquez Oui pour enregistrer chaque classeur -Cliquez le bouton droit de la souris sur le fond du bureau -Cliquez Nouveau Raccourci dans le menu contextuel -Tapez "C:\Mes documents\MuscleTou.xlw" dans Ligne de commande ["C:\Mes documents\MuscleTou.xlw" est un exemple. Si le fichier est place sur un autre disque ou dans un autre dossier, vous devez modifier le chemin en consequence. N'oubliez pas les guillemets si le chemin ou le nom du fichier contient des espaces.] -Cliquez Suivant > -Tapez MuscleTou ↵ dans Selectionner un nom pour le raccourci -Cliquez le bouton droit de la souris sur l'icone du raccourci MuscleTou -Cliquez Proprietes dans le menu contextuel -Cliquez l'onglet Raccourci puis cliquez Changer d'icone -Double-cliquez l'icone de votre choix -Cliquez OK pour fermer la fenetre Proprietes de MuscleTou [La plupart des applications Windows proposent des icones. Elles sont integrees aux fichiers executables (extension .EXE) ou aux fichiers des librairies (extension .DLL). Les fichiers avec des extensions .ICO contiennent une icone. Si vous desirez des icones supplementaires, selectionnez le fichier moricons.dll du dossier Windows.] -Double-cliquez le raccourci MuscleTou Excel ouvre l'environnement MuscleTou.xlw. -Testez les trois premiers boutons de la feuille Menu Apres chaque test, vous devez revenir au menu avec le bouton Retour au menu. -Cliquez le bouton Excel dans la feuille Menu Excel ferme les classeurs. -Cliquez le menu Fichier MuscleTou.xlw pour ouvrir les classeurs [Pour que la procedure ThisWorkbook_Open ne soit pas executee, il faut maintenir la touche Shift enfoncee pendant l'ouverture des classeurs.] -Cliquez sur le bouton Windows dans la feuille Menu Excel est ferme. | |
|