Excel vous permet de créer des graphiques en couleur. Lorsque vous vous préparez à imprimer le graphique, vous pouvez demander à Excel de l’imprimer en « noir et blanc »

(sous l’onglet Graphique de la boîte de dialogue Mise en page). Vous vous demandez peut-être s’il existe un moyen d’exporter cette version « noir et blanc » du graphique, afin de pouvoir l’utiliser dans un autre programme.

La réponse est que vous ne pouvez pas faire cela, du moins pas directement. Pour comprendre pourquoi, vous devez comprendre le fonctionnement de la fonction «imprimer en noir et blanc». Cette fonction affecte uniquement ce qui est envoyé au pilote d’imprimante (à votre imprimante), elle n’affecte pas du tout le graphique réel. Même lorsque vous utilisez l’aperçu avant impression, vous ne visualisez pas votre graphique réel, mais une représentation de ce à quoi votre graphique ressemblera une fois imprimé. Ainsi, vous voyez la sortie de l’imprimante, pas le vrai graphique.

Si vous souhaitez exporter une version noir et blanc de votre graphique, il existe plusieurs façons d’accomplir la tâche. La première consiste simplement à afficher le graphique dans Aperçu avant impression et à effectuer une capture d’écran (appuyez sur Alt + Impr écran). Vous pouvez ensuite coller l’écran dans votre programme graphique préféré et le retoucher, comme vous le souhaitez.

Si vous souhaitez exporter le graphique au lieu de simplement capturer l’écran, vous devez modifier les couleurs du graphique afin qu’elles soient vraiment en niveaux de gris et contiennent les mêmes motifs que vous verriez si vous choisissez d’imprimer en noir et blanc. Cette approche modifie en fait la source du graphique, plutôt que de compter sur Excel pour effectuer une transformation du graphique lorsque vous imprimez. Une fois que vous avez terminé les modifications de mise en forme, vous pouvez même enregistrer le graphique en tant que «modèle de graphique» afin de pouvoir l’utiliser comme modèle pour d’autres graphiques que vous créez.

Si vous le souhaitez, vous pouvez également utiliser une macro pour effectuer une conversion entre la présentation des graphiques en couleurs et en niveaux de gris. Cette approche dépend fortement des couleurs que vous souhaitez utiliser dans le graphique, du type de graphique que vous utilisez et du nombre de séries de données dans le graphique. Voici un exemple de macro qui fera basculer les couleurs d’une série de données entre la couleur et le noir et blanc, pour un maximum de cinq séries de données.

Option Explicit Public bColored As Integer

Sub ColoredToBW()

Dim cht As Chart     Dim chtSC As SeriesCollection     Dim x As Integer     Dim iSeriesCount As Integer     Dim iColors(1 To 5, 0 To 1) As Integer     Dim iColor As Integer

'Set colors for BW series     iColors(1, 0) = 1 'Black     iColors(2, 0) = 56 'Gray-80%     iColors(3, 0) = 16 'Gray-50%     iColors(4, 0) = 48 'Gray-40%     iColors(5, 0) = 15 'Gray-25%

'Set colors for Color series     iColors(1, 1) = 55 'Indigo     iColors(2, 1) = 7 'pink     iColors(3, 1) = 6 'yellow     iColors(4, 1) = 8 'Turquoise     iColors(5, 1) = 13 'Violet

'Toggle Color/BW change 0 to 1 or 1 to 0     bColored = 1 - bColored

Set cht = ActiveChart

'check that a chart is selected     If cht Is Nothing Then         MsgBox ("Select a chart")

Exit Sub     End If

Set chtSC = cht.SeriesCollection

'Check for MIN of number of series or     'colors and only do the minimum     iSeriesCount = Application.WorksheetFunction.Min _       (UBound(iColors), chtSC.Count)



For x = 1 To iSeriesCount         'Define the color         iColor = iColors(x, bColored)



'Set the LINE color         chtSC(x).Border.ColorIndex = iColor

'Marker color         With chtSC(x)

.MarkerBackgroundColorIndex = xlNone             .MarkerForegroundColorIndex = iColor         End With     Next x End Sub

Cet exemple ne fonctionnera pas avec tous les types de graphiques; vous devrez le modifier pour refléter vos besoins. Il servira cependant de point de départ pour créer votre propre macro.

_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 (10447) s’applique à Microsoft Excel 2007, 2010, 2013, 2016, 2019 et Excel dans Office 365. Vous pouvez trouver une version de cette astuce pour l’ancienne interface de menu d’Excel ici:

link: / excel-Exporting_Black_and_White_Charts [Exporter des graphiques en noir et blanc].