Re : Graphique Affichage Conditionnel
Salut Creepy,
Voici quelques lignes qui correspond a ce je voudrais faire:
Code:
Sub Macro4()
'
' Macro4 Macro
' Macro recorded 9/26/2006 by eri
'
'
Range("C1").Select
ActiveCell.FormulaR1C1 = "=MIN(R[2]C[1]:R[7]C[1])"
Range("C2").Select
ActiveCell.FormulaR1C1 = "=MAX(R[1]C[1]:R[6]C[1])"
Range("C3").Select
ActiveCell.FormulaR1C1 = "=MIN(RC[2]:R[5]C[2])"
Range("C4").Select
ActiveCell.FormulaR1C1 = "=MAX(R[-1]C[2]:R[4]C[2])"
Range("C5").Select
ActiveSheet.ChartObjects("Chart 1").Activate
ActiveChart.Axes(xlCategory).Select
With ActiveChart.Axes(xlCategory)
.MinimumScale = Sheets("sheet1").Range("B1").Value - 2
.MaximumScale = Sheets("sheet1").Range("B2").Value - 2
.MinorUnitIsAuto = True
.MajorUnitIsAuto = True
.Crosses = xlAutomatic
.ReversePlotOrder = False
.ScaleType = xlLinear
.DisplayUnit = xlNone
End With
ActiveChart.Axes(xlValue).Select
With ActiveChart.Axes(xlValue)
.MinimumScale = Sheets("sheet1").Range("B3").Value - 2
.MaximumScale = Sheets("sheet1").Range("B4").Value - 2
.MinorUnitIsAuto = True
.MajorUnitIsAuto = True
.Crosses = xlAutomatic
.ReversePlotOrder = False
.ScaleType = xlLinear
.DisplayUnit = xlNone
End With
End Sub
Mon probleme c'est que si je change une valeur en colonne B, rien ne se passe... Quelle fonction je dois ajouter pour que la macro s'actualise a chaque fois ?
Mon autre probleme c'est que je ne veux pas que le point se trace si toutes les valeurs sont a zero:
donc j'ecris: =IF(AND(D17=0,E17=0),"No Sensor",E17)
Mais sur le Graph, j'ai quand meme le point qui s'affiche aux coordonnees (0;0)
Pour resumer, je cherche a faire que:
Si les 2 coordonnees sont a zero, cela ne trace pas le point.
L'echelle du graph se regle automatiquement quand les valeurs changent
Merci de ton aide !!
Tin Bo