F
FIFI
Guest
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..
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..