Les fonctionnalités graphiques d’Excel vous permettent d’ajouter un certain nombre de formes prédéfinies à un classeur. Ces formes, appelées formes automatiques, couvrent un large éventail de besoins. Si vous souhaitez ajouter des formes à la fonctionnalité Formes automatiques, cependant, vous n’avez pas de chance. Les formes sont apparemment codées en dur dans Excel et ne peuvent pas être modifiées.

Vous pouvez toutefois ajouter des formes à la bibliothèque de clips. Si vous formatez les formes sous forme de fichiers WMF, elles sont faciles à ajouter et à placer dans une feuille de calcul. Par exemple, si vous avez un certain nombre de symboles d’organigramme que vous souhaitez rendre disponibles dans Excel, tout ce que vous avez à faire est d’enregistrer chaque symbole au format WMF, puis de les importer dans Clip Gallery. (Pour enregistrer des graphiques au format WMF, vous devrez utiliser un programme graphique spécialisé, tel que Paint Shop Pro ou Corel Draw.)

Si vous ne souhaitez pas utiliser Clip Gallery pour une raison quelconque, vous pouvez simuler vos propres formes automatiques grâce à une combinaison de macros et de graphiques dans une feuille de calcul masquée. Les étapes générales suivantes expliquent comment procéder pour une série de vingt symboles d’organigramme. Les étapes supposent que vous êtes suffisamment à l’aise pour écrire des macros et personnaliser les barres d’outils.

  1. Ouvrez un classeur de modèle et assurez-vous qu’il ne contient qu’une seule feuille de calcul.

  2. Placez tous les graphiques de l’organigramme sur la feuille de calcul.

  3. Créez une nouvelle barre d’outils, nommez-la MyShapes et assurez-vous qu’elle est associée au classeur de modèle.

  4. Ajoutez vingt boutons à la barre d’outils, un pour chaque graphique d’organigramme. L’idée est que cliquer sur un bouton ajoutera la forme d’organigramme associée à la feuille de calcul active.

  5. Modifiez chaque face de bouton pour afficher le plus fidèlement possible chaque graphique de l’organigramme. (C’est la partie la plus difficile de ces étapes).

  6. Modifiez le texte de l’info-bulle pour chaque bouton, comme vous le souhaitez. Ceci est utile pour que l’utilisateur puisse comprendre le but de chaque graphique d’organigramme.

  7. À tour de rôle, sélectionnez et nommez chacun des graphiques de l’organigramme. (Vous nommez les graphiques en les sélectionnant et en entrant un nom dans la zone Nom à gauche de la barre de formule.) Pour les besoins de ces étapes, supposons que vous utilisez des noms tels que FlowObj1, FlowObj2, etc.

  8. Écrivez vingt macros (une pour chaque graphique d’organigramme) du type suivant:

Sub AddFlowObj1()

ThisWorkbook.Sheets(1).Shapes("FlowObj1").Copy     ActiveSheet.Paste End Sub

  1. Attribuez chacune des macros au bouton correspondant de la barre d’outils.

  2. Dans le module Workbook du modèle, ajoutez les procédures suivantes:

Private Sub Workbook_Open()

Application.CommandBars("MyShapes").Visible = True End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)

Application.CommandBars("MyShapes").Delete End Sub

  1. Enregistrez le modèle en tant que complément Excel.

  2. Redémarrez Excel et utilisez Outils | Compléments pour activer votre nouveau complément.

_Note: _

Si vous souhaitez savoir comment utiliser les macros décrites sur cette page (ou sur toute autre page des sites ExcelTips), j’ai préparé une page spéciale qui comprend des informations utiles.

lien: / excelribbon-ExcelTipsMacros [Cliquez ici pour ouvrir cette page spéciale dans un nouvel onglet de navigateur].

ExcelTips est votre source pour une formation Microsoft Excel rentable.

Cette astuce (1995) s’applique à Microsoft Excel 97, 2000, 2002 et 2003.