[VB6] sélection multiple de colonne dans excel grâce à VB

Version imprimable

02/08/2004, 11h52
biquet

[VB6] sélection multiple de colonne dans excel grâce à VB
Salut,

je contrôlr excel à partir de VB6.
Je désire sélectionner les points de la colonne A3 à A nbepoint et la colonne C3 à C nbepoint pour pouvoir faire un graph.
J'ai donc écrit la ligne de code ci-dessous
Code:

1 2 XL.Range("A3:A" & nbepoint + 3 & "C3:C" & nbepoint + 3).Select
là il me donne "erreur définie par l'objet ou l'application".

je ne sait plus comment faire pour résoudre ce pb

un petit coup de main :wink:
02/08/2004, 12h07
mdriesbach

Bonjour

deja essaye la chose suivante :

Code:

XL.Range("A3:A" & Trim(Str(nbepoint + 3) & "C3:C" & Trim(Str(nbepoint + 3)).Select

car la conversion d'entiers en chaîne crée parfois des espaces et la methode range aime pas trop ça.

bon courage pour la suite

OK pour ta réponse, il fallait juste rajouter quelques parenthèses et mettre un point-virgulr devant le C3

maintenant j'ai un autre pb lors de la conception de mon graph

Code:

1
2
3
4
5
6
7
8
9
10
11
12
 
XL.Range("A3:A" & Trim(Str(nbepoint + 3)) & ";C3:C" & Trim(Str(nbepoint + 3))).Select
XL.Charts.Add
ActiveChart.ChartType = xlXYScatter
ActiveChart.SetSourceData Source:=Sheets("Feuil1").Range("A3:A" & Trim(Str(nbepoint + 3)) & ";C3:C" & Trim(Str(nbepoint + 3))), PlotBy:=xlColumns
ActiveChart.Location Where:=xlLocationAsNewSheet
ActiveChart.SeriesCollection(1).Select
ActiveChart.SeriesCollection(1).Trendlines.Add(Type:=xlPolynomial, Order:=6 _
        , Forward:=0, Backward:=0, DisplayEquation:=True, DisplayRSquared:=False _
        ).Select
XL.ActiveChart.SeriesCollection(1).Trendlines(1).DataLabel.Select
XL.Selection.NumberFormat = "0.000000E+00"

le pb vient de la ligne

Code:

1
2
 
ActiveChart.SetSourceData Source:=Sheets("Feuil1").Range("A3:A" & Trim(Str(nbepoint + 3)) & ";C3:C" & Trim(Str(nbepoint + 3))), PlotBy:=xlColumns

merci pour vos réponses :wink:

02/08/2004, 12h39
Tan

Pour sélectionner une plage, composé de plusieur plage, sépares les plage par des virgules:

Code:

XL.Range("A3:A" & nbepoint + 3 & ",C3:C" & nbepoint + 3).Select

Après, il faut voir si ça marche, mais dans le principe, c'est ça.

Salut.
02/08/2004, 12h44
biquet

C'est bon ca fonctionne alors que je n'ai rien changé. 8O

on verra avec l'usage.

merci pour toutes vos réponses

a+