boucleet... if...et couleur graphique

[FIFI]

Salut tous,

je dois être ignorant ou aveugle car je ne trouve pas pourquoi il y a erreur dans ce code

Normallement il doit permettre pour une serie de cellule, en fonction de leur valeur de changer la couleur d'une barre d'un histogramme correspondantes.

La où ça se complique, c'est que c'est valeurs sont issues d'un tableau dynamique, donc le nombre de celulles varie.


''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Sub couleurhisto()

Sheets("mafeuillededonnées").Select

Dim POSITION_TOTAL, POINT, POSITION As Variant

' position_total = ligne de la dernière cellule
' point = numéro de la cellule cellule concernée sur le moment (de 1 à position total)
' position = numéro de ligne de la celulle concernée

POSITION_TOTAL = Range("Y12") ' Y12 =nombre de cellules

For POINT = 1 To POSITION_TOTAL

POSITION = 14 + POINT '14 car les données commencent ligne 15

If Range("Z" & POSITION) > 30 Then

Sheets("mon histogramme").Select
ActiveChart.ChartArea.Select
ActiveChart.SeriesCollection(1).Points(POINT).Select
With Selection.Interior
.ColorIndex = 4
.Pattern = xlSolid
End With

Else

Sheets("mon histogramme").Select
ActiveChart.ChartArea.Select
ActiveChart.SeriesCollection(1).Points(POINT).Select
With Selection.Interior
.ColorIndex = 4
.Pattern = xlSolid
End With
End If

Sheets("mafeuillededonnées").Select

Next POINT

Sheets("mafeuillededonnées").Select

End Sub
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

peut être suis-je compliqué pour rien!!!!
on aurai pu utiliser l'instruction For Each....mais bon mon premier essai loupé ma découragé, alors j'ai fait avec ce que je connais de mieux


merci beaucoup de temps passé sur ce code...

......Réponse assurée..

 

[Mytå]

Bonsoir le FIFI (j'espere pas au sens propre)

Deja pourquoi le meme code pour un else

Sheets("mon histogramme").Select
ActiveChart.ChartArea.Select
ActiveChart.SeriesCollection(1).Points(POINT).Select
With Selection.Interior
.ColorIndex = 4
.Pattern = xlSolid
End With

Mytå