TintAndShade et graphique
Résolu/Fermé
borntobealive
Messages postés
138
Date d'inscription
jeudi 17 juillet 2014
Statut
Membre
Dernière intervention
25 février 2019
-
21 août 2014 à 08:46
borntobealive Messages postés 138 Date d'inscription jeudi 17 juillet 2014 Statut Membre Dernière intervention 25 février 2019 - 25 août 2014 à 10:27
borntobealive Messages postés 138 Date d'inscription jeudi 17 juillet 2014 Statut Membre Dernière intervention 25 février 2019 - 25 août 2014 à 10:27
A voir également:
- Tintandshade vba
- Excel compter cellule couleur sans vba - Guide
- Mkdir vba ✓ - Forum VB / VBA
- Vba range avec variable ✓ - Forum VB / VBA
- L'indice n'appartient pas à la sélection vba ✓ - Forum Programmation
- Autofill vba ✓ - Forum Excel
1 réponse
borntobealive
Messages postés
138
Date d'inscription
jeudi 17 juillet 2014
Statut
Membre
Dernière intervention
25 février 2019
7
25 août 2014 à 10:27
25 août 2014 à 10:27
voilà j'ai contourner le problème (oui je sais c'est moche)
Dim indice As Single indice = -0.1 Dec.Wk_ComptaMensuel.Worksheets("couleur").Cells(1, 1).Interior.ColorIndex = couleur For Each Po In Dec.mg.SeriesCollection(1).Points Po.Interior.Color = Dec.Wk_ComptaMensuel.Worksheets("couleur").Cells(1, 1).Interior.Color Dec.Wk_ComptaMensuel.Worksheets("couleur").Cells(1, 1).Interior.TintAndShade = indice indice = indice - 0.05 Next Po Dec.Wk_ComptaMensuel.Worksheets("couleur").Cells(1, 1).Interior.ColorIndex = 0