RomainDumoulin
XLDnaute Nouveau
salut tout le monde !
me revoila qques jours apres un dernier post avec mon interface graphique permettant d'afficher des mesures.
cette fois-ci, l'histoire, c'est de ne PAS faire apparaitre les points de mesures qui sont égales à zéros (et la ligne entre les points...)
Jetez un coup d'oeil au fichier joint, c'Est assez moche quand la courbe part de zero...
si je remplace les zero par des cellules vides, le grahpique se decale sur l'Axe des abcisses..
J'ai tenté
mais bon on voit toujours la ligne et des markers blancs...vraiment moche...
J'Essaye de creer un graphique de type ScatterLineMarkers mais je seche sur le parametrage...
voici le code actuel :
si quelqu un a une idée, une suggestion, notamment pour le parametrage du type scatterlineMarkers : Je suis preneur !
Merci d'avance et à plus !
me revoila qques jours apres un dernier post avec mon interface graphique permettant d'afficher des mesures.
cette fois-ci, l'histoire, c'est de ne PAS faire apparaitre les points de mesures qui sont égales à zéros (et la ligne entre les points...)
Jetez un coup d'oeil au fichier joint, c'Est assez moche quand la courbe part de zero...
si je remplace les zero par des cellules vides, le grahpique se decale sur l'Axe des abcisses..
J'ai tenté
VB:
If Plage(i) = 0 Then
.SeriesCollection.Item(x).Points.Item(i - 1).Border.Color = "white"
.SeriesCollection.Item(x).Points.Item(i - 1).Interior.Color = "white"
End If
J'Essaye de creer un graphique de type ScatterLineMarkers mais je seche sur le parametrage...
voici le code actuel :
VB:
For j = 0 To ListBoxLocataire.ListCount - 1 'boucle sur les éléments de la listbox
If ListBoxLocataire.Selected(j) = True Then
If Cht.SeriesCollection.Count > 0 Then Cht.SeriesCollection.Add
For i = 1 To 26
Plage(i) = visibles(j + 1, i) 'recuperation Ordonnees pour chaque série
Next i
With Cht
.SetData C.chDimCategories, C.chDataLiteral, Tableau
.SeriesCollection(x).SetData C.chDimValues, C.chDataLiteral, Plage
For i = 1 To 26
If Plage(i) = 0 Then
.SeriesCollection.Item(x).Points.Item(i - 1).Border.Color = "white"
.SeriesCollection.Item(x).Points.Item(i - 1).Interior.Color = "white"
End If
Next i
End With
x = x + 1
Erase Plage
End If
Next j
End Sub
si quelqu un a une idée, une suggestion, notamment pour le parametrage du type scatterlineMarkers : Je suis preneur !
Merci d'avance et à plus !
Pièces jointes
Dernière édition: