[R] Insertion variable?!

[cutprod]

Bonjour a tous.
Petit souci pour la prise en compte d'une variable=
Dans la ligne pour construire un graph excel je voudrais remplacer un des paramètre par une variable.
la ligne comme ca fonctionne =
$oExcel.ActiveWorkBook.Charts(1).SetSourceData($oExcel.Worksheets(1).Range("A2:C6"),2)
Comme le chiffre après C est variable je veux le replacer par = $range (qui est déclaré en global)
au début de ma fonction qui crée le graph : $range= '"A2:C'&$nblignes&'"'
ensuite je remplace ma ligne par =
$oExcel.ActiveWorkBook.Charts(1).SetSourceData($oExcel.Worksheets(1).Range($range),2)
cela ne fonctionne pas! La console me renvoi :
C:\Users\AL\Desktop\Autoit_Excel\ARRAY_EXCEL\MESURE_ARRAY_EXCEL - Copie.au3 (73) : ==> The requested action with this object has failed.:
$oExcel.ActiveWorkBook.Charts(1).SetSourceData($oExcel.Worksheets(1).Range($range),2)
$oExcel.ActiveWorkBook.Charts(1).SetSourceData($oExcel.Worksheets(1).Range($range)^ ERROR
Pourtant je debugue avec une MsgBox(0,"",$range) et elle me retourne bien la valeur que je veux donner a $range "A2:C6"
Ou est l'erreur?
Un peu d'aide

[Tlem]

Est-ce que ceci fonctionne ?

Code : Tout sélectionner

$oExcel.ActiveWorkBook.Charts(1).SetSourceData($oExcel.Worksheets(1).Range('"' & $range & '"'),2)

[cutprod]

Non, pourtant j'ai remplacer $range= "A2:C"&$nblignes
au debut de ma fonction vu que tu ma mi les "" dans la lignes et au debugue la msgbox me donne A2:C6

[cutprod]

Je vous post le script de test =

► Afficher le texte

Code : Tout sélectionner

#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>

#Include <Excel.au3>
#include <Array.au3>

#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 172, 139, 192, 124)
$Input1 = GUICtrlCreateInput("", 27, 24, 121, 21, BitOR($ES_CENTER,$ES_AUTOHSCROLL))
$Button1 = GUICtrlCreateButton("ARRAY", 50, 60, 75, 25, $WS_GROUP)
$Button2 = GUICtrlCreateButton("EXCEL", 50, 100, 75, 25, $WS_GROUP)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

HotKeySet("{F5}","stop")

Global $time ,$nb ,$nb2 ,$nblignes = 0, $tab1[1]=["Heure"] ,$tab2[1]=["Valeur1"] ,$tab3[1]=["Valeur2"] ,$oExcel ,$range

AdlibRegister("incremente",100)
AdlibRegister("incremente2",200)
AdlibRegister("relever",1000)

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
        Case $Button1
            affiche_array()
        Case $Button2
            graph_excel()
        EndSwitch
WEnd

Func incremente()
$nb=$nb+1
GUICtrlSetData($Input1,$nb)
EndFunc

Func incremente2()
$nb2=$nb2+1
EndFunc

Func relever()
$nblignes = $nblignes+1
$time = @HOUR&"H"&@MIN&"M"&@SEC
_ArrayAdd($tab1,$time)
_ArrayAdd($tab2,$nb)
_ArrayAdd($tab3,$nb2)
 EndFunc

Func affiche_array()
    AdlibUnRegister("incremente")
    AdlibUnRegister("incremente2")
    AdlibUnRegister("relever")
EndFunc


Func graph_excel()
    $range= "A2:C"&$nblignes
    $oExcel = _ExcelBookNew()
    _ExcelWriteArray($oExcel, 1, 1, $tab1,1,0)
    _ExcelWriteArray($oExcel, 1, 2, $tab2,1,0)
    _ExcelWriteArray($oExcel, 1, 3, $tab3,1,0)
    $oExcel.ActiveWorkBook.Charts.Add
    $oExcel.ActiveWorkBook.Charts(1).Name = "GRAPH_TEST_ALEX"
    $oExcel.ActiveWorkBook.Charts(1).ChartType =65 ;65 = xlLineMarkers  Line with Markers.
    MsgBox(0,"",$range)
    $oExcel.ActiveWorkBook.Charts(1).SetSourceData($oExcel.Worksheets(1).Range('"' & $range & '"'),2)
    
EndFunc

Func stop()
$oExcel.ActiveWorkBook.Saved = 1
$oExcel.Quit
Exit
EndFunc



 

[GELDROC]

avez vous essayer de mètre

Code : Tout sélectionner

$oExcel.ActiveWorkBook.Charts(1).SetSourceData($oExcel.Worksheets(1).Range($range),2)
 

au lieu de

$oExcel.ActiveWorkBook.Charts(1).SetSourceData($oExcel.Worksheets(1).Range("A2:C6"),2)

cela donne un résulta complètement différent cher moi .

et ce serai surtout beaucoup plus logique comme parrainage de fonction .

[cutprod]

Ca fonctionne impeccable!! merci beaucoup
Il n'avait pas besoin des""!
Étonnant!