Discussion :

[biquet]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[mdriesbach]

Bonjour

deja essaye la chose suivante :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[biquet]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Tan]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[biquet]

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

on verra avec l'usage.


merci pour toutes vos réponses

a+