lignes en pointillés [Résolu]

[tallent_e]

bonsoir.

je bricolais avec VBA, voulant tracer des graphiques dans une jolie WorkSheet noire.

après avoir faire tourner mon code (qui, de surplus, me fait un gros bug!), je me retrouve avec deux lignes verticales pointillées.

et je ne sais pas comment m'en débarrasser!

ces lignes pointillées semblent matérialiser la partie de mon code visant à aligner l'objet ChartObjects sur la plage de cellules E11:K27

Code :

1
2
 
Set MySpace = .Range("E11:K27")

(je prends appui sur le tutorial : http://bidou.ftp-developpez.com/Cour...rmationVBA.pdf , p.190 et s.)

je ne comprends pas pourquoi Excel me trace ces lignes pointillées. et je ne sais pas comment les effacer.

quelqu'un à des idées ?

merci.

N.B: je joins une copie d'écran.

[Qwazerty]

Salut

Ce sont les ligne qui représentent la séparation de tes pages lors d'une impression. Elles apparaissent par exemple suite à un aperçu avant impression.

Pour les retirer, il faut aller dans les options Excel
Pour 2007: "Option avancées" -> "Options de la feuille de calcul" et il faut décocher "Afficher les saut de pages"

++
Qwaz

[tallent_e]

merci de ta réponse Qwazerty.

en fait, je n'avais pas envisagé ton hypothèse dans la mesure où je ne demande pas à Excel d'afficher les sauts de pages.

en vérifiant, non, ce n'est pas cela (en faisant Affichage -> Aperçu des sauts de pages, ces derniers apparaissent en bleu).

d'autres éléments :
- en fermant le fichier, puis en réouvrant, les lignes blanches verticales en question disparaissent.
- mais elle réapparaissent dès que je fais tourner mon code pour créer un graph avec VBA.
- d'ailleurs mon graph plante ! et ceci explique peut-être cela ??

Voici mon code :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
' Draw the chart
Dim MyChart As Chart, MySheet As Worksheet, MyData As Range
Dim DateCol As Range, ChartCounter As Long, PlageY As Range
Dim AnnualizedHV As Range, MySeries As Series
Dim MySpace As Range
 
Set MySheet = ThisWorkbook.Worksheets("Main")
 
With MySheet
    Set MySpace = .Range("E11:K27") ' <----
    Set MyData = .Range(.Cells(RowStart, 1), Cells(RowEnd, 4))
End With
 
Set MyChart = MySheet.Charts.Add(MySpace.Left, MySpace.Top, _
MySpace.Width, MySpace.Height).Chart
 
'Set MyChart = MySheet.ChartObjects.Add(MySpace.Left, MySpace.Top, _
MySpace.Width, MySpace.Height).Chart
 
With MyChart
    .ChartArea.Clear
    .ChartType = xlXYScatterLines
End With
 
Set DateCol = MyData.Columns(1)
Set AnnualizedHV = MyData.Columns(4)
Set MySeries = MyChart.SeriesCollection.NewSeries
With MySeries
    .Values = AnnualizedHV
    .XValues = DateCol
    .Name = Cells(8, 4).Value
End With

Et le message d'erreur :

Erreur d'exécution '-2147467259 (80004005)':

La méthode 'Values' de l'objet 'Series' a échoué

quelqu'un aurait-il une suggestion?

[tallent_e]

Oh! en fait, Qwazerty, tu avais raison.

je me demande pourtant pourquoi ces marges apparaissent, sans que je demande !!

par ailleurs, mon code pour le graph plantait pour une histoire de collections.
je proposé comme une collection (de ranges) contenant 1 unique élément.

et çà ne plait pas à Excel.

voilà ....