Bonjour mcz29
Je vais te donner des instructions qui j'espère pourrons t'aider a bien gérer ce que tu veux accomplir.
- D'abord, tu vas dans le VBE(Visual Basic Editor) ALT + F11
Dans le Menu:
- Tu te créer un Module: Insertion/Module.
- Tu insère une procédure: Insertion/Procédure et tu lui donne un titre
- Ensuite tu met le code suivant dans cette procédure:
Dim bytColor As Long, bytPoints As Byte
Dim strNomFeuille As String
Application.ScreenUpdating = False
strNomFeuille = ActiveSheet.Name
ThisWorkbook.Sheets('Graph1').Select
With ActiveChart
On Error Resume Next
For bytPoints = 1 To .SeriesCollection(1).Points.Count
bytColor = ThisWorkbook.Sheets(strNomFeuille).Cells(bytPoints + 1, 1).Font.ColorIndex
With .SeriesCollection(1).Points(bytPoints)
.MarkerBackgroundColorIndex = bytColor
.MarkerForegroundColorIndex = bytColor
End With
Next bytPoints
On Error GoTo 0
- Tu retourne dans Excel
Dans le Menu:
- Tu vas dans Affichage/Barres d'outils/Formulaire
- Tu t'assure que tu es sur la feuille ou tu veux mettre un Bouton
- Dans cette barre d'outils tu choisis(click) sur le contrôle 'Bouton'
- Tu le pose ou dessine ensuite sur ta feuille
- Maintenant, une boite de dialogue te demande de choisir la Procédure à laquel tu désire associé ton bouton. Tu choisis celle que tu as créé vlà un moment, et le tour est joué.
Quelque trouble que j'anticipe:
- J'ai du supposer que tes couleurs de points sont toujours dans la colonne A et commenece toujours à la ligne 2
- J'ai du supposer que tu utilise toujours le même graphique( donc le même nom de feuille)
Si tu as d'autres questions tu n'hésite pas.
Bon Courage !
a+
