Chapitre 6

Chapitre 6 : Graphiques



VB apporte aux graphiques une plus grande souplesse d'utilisation et notamment, il evite le recours aux assistants pour changer le type de graphique.


Graphique de base

-Cliquez Nouveau
-Tapez les donnees suivantes :
-A2 : Nord
-A3 : Ouest
-A4 : Sud
-B1 : 1T
-B2 : 1245
-B3 : 659
-B4 : 875
-C1 : 2T
-C2 : 1542
-C3 : 852
-C4 : 1023
-D1 : 3T
-D2 : 818
-D3 : 541
-D4 : 701
-E1 : 4T
-E2 : 1854
-E3 : 1102
-E4 : 1325
-Selectionnez la plage A1:E4
-Cliquez le menu Format Mise en forme automatique
-Cliquez Couleur 2 dans la liste Format de tableau
-Cliquez Options >>
-Deselectionnez la case Largeur/Hauteur puis cliquez OK
-Cliquez Assistant Graphique
-Cliquez Histogrammes 3D dans Sous-type de graphique
-Cliquez 2 fois Suivant >
-Au besoin, cliquez l'onglet Legende
-Au besoin, otez la coche de la case Afficher la legende
-Cliquez Fin
-Ajuster le graphique a la plage A6:E21
-Cliquez Enregistrer et tapez Graphique ↵ dans Nom du fichier


Modifier le type d'un graphique

Nous allons creer trois boutons pour passer rapidement d'un graphique 3D en Histogrammes a un graphique 3D en Aires ou en Surfaces.
-Cliquez une cellule pour deselectionner le graphique
-Cliquez le menu Outils Macro Nouvelle macro
-Tapez Aires ↵ dans Nom de la macro
-Cliquez le graphique avec le bouton droit puis cliquez Type de graphique dans le menu contextuel
-Cliquez Aires dans la liste Type de graphique
-Cliquez Aires avec effet 3D dans Sous-type de graphique
-Cliquez OK pour valider la boite Type de graphique
-Appuyez sur Echap pour deselectionner le graphique
-Cliquez Arreter l'enregistrement
-Cliquez le menu Outils Macro Nouvelle macro
-Tapez Histogramme ↵ dans nom de la macro
-Cliquez le graphique avec le bouton droit puis cliquez Type de graphique dans le menu contextuel
-Cliquez Histogramme dans la liste Type de graphique
-Cliquez Histogramme 3D dans Sous-type de graphique
-Cliquez OK pour valider la boite Type de graphique
-Appuyez sur Echap pour deselectionner le graphique
-Cliquez Arreter l'enregistrement
-Repetez les 8 dernieres actions en tapant Surface ↵ pour le Nom de la macro et en choisissant Surface pour le Type de graphique et Surface 3D pour le Sous-type de graphique
Ajoutons trois boutons pour passer d'un type a l'autre.
-Au besoin, affichez la barre d'outils Formulaires
-Cliquez Bouton dans la barre d'outils Formulaires
[Ne confondez pas Bouton de la barre d'outils Formulaires et Bouton de commande de la barre d'outils Commandes. Le premier n'a qu'une fonction d'appel de macro alors que le second est un objet avec des proprietes, des methodes et des procedures evenementielles.
-Cliquez et faites glisser la souris en-dessous et a gauche du graphique pour creer un bouton de commande
-Cliquez Histogramme dans la liste Nom de la macro puis cliquez OK
-Double-cliquez le bouton et remplacer son intitule par Histogramme
-Cliquez Bouton dans la barre d'outils Formulaires
-Cliquez et faites glisser la souris en-dessous du premier bouton
-Cliquez Aires dans la liste Nom de la macro puis cliquez OK
-Double-cliquez le bouton et remplacer son intitule par Aires
-Repetez les 4 dernieres actions en cliquant sur Surface pour le Nom de la macro et en tapant Surface pour l'intitule
-Cliquez les boutons Histogramme, Aires et Surface pour changer de type

Orienter les graphiques 3D

Excel permet d'orienter les graphiques 3D dans l'espace. Une procedure va nous permettre de modifier automatiquement l'orientation du graphique.
Trois cases a cocher definiront le type d'orientation, une barre de defilement la vitesse de l'orientation et un bouton de commande lancera la procedure.
-Cliquez Case a cocher dans la barre d'outils Commandes
-Cliquez et faites glisser a droite du bouton Histogramme
-Au besoin, cliquez Proprietes dans la barre d'outils Commandes
-Tapez Rotation dans la propriete Name
-Tapez Rotation dans la propriete Caption
-De la meme maniere, ajoutez en-dessous deux cases a cocher nommees et intitulees Perspective et Altitude
-Cliquez Defilement dans la barre d'outils Commandes
-Cliquez et faites glisser a droite de la case a cocher Rotation
-Tapez Vitesse dans la propriete Name
-Tapez 1 dans la propriete Min et 10 dans la propriete Max
-Tapez 2 dans la propriete LargeChange
-Cliquez Bouton de commande dans la barre d'outils Commandes
-Cliquez et faites glisser en-dessous de la barre de defilement Vitesse
-Tapez Demarrer dans la propriete Caption


Modifier le graphique

-Double-cliquez le bouton Demarrer pour ouvrir la procedure Click
La barre de defilement definit la vitesse du mouvement. Par exemple, pour la rotation, si la vitesse est 5, le graphique tournera de 5 degres a chaque boucle du programme. Mais arrive a la limite des 360 degres, il faut inverser le sens de rotation (-5 degres). Il faut donc conserver dans des variables le dernier sens de chaque mouvement.
-Tapez SensRotation = Vitesse ↵
-Tapez SensPerspective = Vitesse ↵
-Tapez SensAltitude = Vitesse ↵
L'objet ChartObject est un conteneur de graphique dans une feuille de calcul. Comme nous n'avons qu'un seul graphique, activons-le avec l'index 1 dans la collection ChartObjects.
-Tapez ActiveSheet.ChartObjects(1).Activate ↵
Pour modifier l'orientation d'un graphique, il faut d'abord selectionner la zone de tracage.
-Tapez ActiveChart.PlotArea.Select ↵
[Toutes ces syntaxes sont compliquees. Si vous ne retrouvez pas l'objet, la methode ou la propriete dont vous avez besoin, le plus simple est de creer une macro enregistree. Par exemple, enregistrez une nouvelle macro puis modifiez la rotation du graphique. En consultant cette macro, vous obtiendrez la syntaxe exacte.]
Pour toutes les modifications du graphique, nous faisons reference au graphique actif.
-Tapez With ActiveChart ↵
Modifions l'orientation cent fois.
-Tapez For i = 1 To 100 ↵

Rotation
Nous effectuons une rotation du graphique uniquement si la case Rotation est cochee.
-Tapez If Rotation.Value = True Then ↵
La rotation des graphiques varie de 0 a 360 degres. Il faut donc verifier que l'on ne depasse pas ces limites. Si on les depasse, il faut inverser le sens de rotation (variable SensRotation).
-Tapez If .Rotation + Vitesse > 360 Then SensRotation = -Vitesse ↵
-Tapez If .Rotation - Vitesse < 0 Then SensRotation = Vitesse ↵
Modifions maintenant la rotation en fonction du sens.
-Tapez .Rotation = .Rotation + SensRotation ↵
-Tapez End if ↵

Perspective
La perspective des graphiques varie de 0 a 100. Le programme ets le meme que pour la rotation en respectant ces limites.
-Tapez le code ci-dessous
If Perspective.Value = True Then
If .Perspective + Vitesse > 100 Then SensPerspective = -Vitesse
If .Perspective - Vitesse < 0 Then SensPerspective = Vitesse
.Perspective = .Perspective + SensPerspective
End if

Altitude
L'altitude des graphiques varie de -90 a +90 degres. Le programme est le meme que pour la rotation et la perspective en respectant ces limites.
-Tapez le code ci-dessous
If Altitude.Value = True Then
If .Elevation + Vitesse > 90 Then SensAltitude = -Vitesse
If .Elevation - Vitesse < -90 Then SensAltitude = Vitesse
.Elevation = .Elevation + SensAltitude
End if
Fermons la boucle For, l'instruction With et selectionnons une cellule.
-Tapez Next i ↵
-Tapez End With ↵
-Tapez Range("F6").Select ↵
-Cliquez x pour fermer la fenetre Microsoft Visual Basic


Modifier dynamiquement un graphique

-Cliquez Desactiver le mode creation dans la barre d'outils Commandes
-Cliquez le bouton Histogramme
-Cliquez la case Rotation pour la cocher
-Cliquez le bouton Demarrer
[Vous pouvez arreter a tout moment la procedure en appuyant sur Echap puis en cliquant le bouton Fin.]
-Cliquez le bouton Surface
-Cliquez la case Altitude pour la cocher
-Augmentez la valeur de la barre de defilement Vitesse
-Cliquez le bouton Demarrer
-Renommez la feuille Feuil1 en Graphique.


Imprimer le graphique

Ajoutons un bouton pour lancer l'impression.
-Cliquez Bouton de commande dans la barre d'outils Commandes
-Cliquez et faites glisser en-dessous du bouton Demarrer
-Au besoin, cliquez Proprietes dans la barre d'outils Commandes
-Tapez Imprimer dans la propriete Caption
-Double-cliquez le bouton Imprimer pour ouvrir la procedure Click

Options d'impression
L'objet Chart contient l'objet PageSetup qui permet de modifier l'apparence du graphique.
Activons le graphique de la feuille active.
-Tapez ActiveSheet.ChartObjects(1).Activate ↵
Modifions les proprietes ou appliquons des methodes au graphique actif.
-Tapez With ActiveChart ↵
Modifions les proprietes de l'objet PageSetup
-Tapez With .PageSetup ↵
[PageSetup est precede d'un point puisque c'est un objet contenu dans l'objet Chart defini a la ligne precedente. La syntaxe complete pour centrer horizontalement le graphique est : ActiveChart.PageSetup.CenterHorizontally.]
Centrons horizontalement et verticalement le graphique.
-Tapez .CenterHorizontally = True ↵
-Tapez .CenterVertically = True ↵
Passons en mode paysage.
-Tapez .Orientation = xlLandscape ↵
Modifions l'en-tete et le pied de page du centre.
-Tapez .CenterHeader = "Mon graphique" ↵
-Tapez .CenterFooter = "Page &P" ↵
Ajustons le graphique a la taille de la page.
-Tapez .ChartSize = xlFitToPage ↵
-Tapez End With ↵
Demandons un apercu avant impression du graphique.
-Tapez .PrintPreview ↵
[Remplacez la methode PrintPreview par Print pour imprimer directement.]
-Tapez End With ↵
-Cliquez x pour fermer la fenetre Microsoft Visual Basic

Lancer l'impression
-Cliquez Desactiver le mode creation dans la barre d'outils Commandes
-Cliquez le bouton Imprimer
-Cliquez le bouton Fermer pour fermer l'apercu avant impression
-Enregistrez et fermez le classeur.