Mise à jour graphique

[florent]

bonjour à tous

Je commence à arriver au bout de mon projet mais je bloque sur une mise à jour des graphiques inseré dans chaque onglet. J'ai une erreur qui se produit et je n'arrive pas à la résoudre faute à ma grande incompetence en programmation VBA.


Ci joint le fichier pour que quelqun puisse m'aider

merci d'avance

Florent

 

[David Guy]

Salut Florent
j'ai rajouté un test sur ta macro pour le cas ou il n'y a pas de couleur :la valeur de color index passe à -4000 et des poussières
Sub Colorie_Bulles1()
'
Dim nbval, a, col As Integer

'Sélectionne le "Graphique 1"
ActiveSheet.ChartObjects("Graphique 4").Activate
'Définis le nombre de points dans la collection
nbval = ActiveChart.SeriesCollection(1).Points.Count

' Sélectionne chacun des points et lui attribue
' la couleur de la cellule lui correspondant.
For a = 1 To nbval
col = Range("e" & a + 1).Interior.ColorIndex
If Range("e" & a + 1).Interior.ColorIndex > 0 Then
With ActiveChart.SeriesCollection(1)
.Points(a).Interior.ColorIndex = col
End With
End If
j'ai mis du rouge et ça passe bien
A+G.David

 

[florent]

bonsoir le forum, bonsoir Guy

Merci , je viens d'essayer cela fonctionne super
Je vais pouvoir continuer mon projet

Merci encore

Flrent