excel autoincrement..

Bonjour,
j’ai dans une base de donne la cellule d’un point de depart d’enregistrement,
je selectionne la cellule de xojo avec ce code :

j’aimerai continuer a ecrire sur la cellule du dessous…
avec un code un peu comme ceci… sauf… que mon code ne marche pas…

[quote] for i = 0 to 5

			excel.ActiveSheet.cells(excel.Rows+i,excel.Columns).value = str(i)   
			
			
	next[/quote]

merci…
@EugeneDakin

excel.ActiveSheet.cells ( i, 1) .value = str (i)

?

[Google Translate] Bonjour Julien,
Attached est un exemple qui montre les lignes slectionnes dans une bote de liste Xojo et affiche les valeurs dans Excel.

Lorsque le numro 10 est slectionn, Excel affichera 10,12,14.
Lorsque le numro 6 est slectionn, Excel affichera 6,8,10,12,14

La publication de la liste dans Xojo est avec le code suivant:

[English]Hello Julien,
Attached is an example which shows the rows that were selected in a Xojo Listbox and shows the values in Excel.

When the number 10 is selected, Excel will show 10,12,14.
When the number 6 is selected, Excel will show 6,8,10,12,14

Populating the listbox in Xojo is with the following code:

me.Heading(0) = "Numbers" Dim i as Integer For i = 4 to 14 Step 2 me.AddRow i.ToText Next i

[Google Translate]La prsentation des donnes dans Excel est avec le code suivant:
[English] Showing data in Excel is with the following code:

[code]If Listbox1.ListIndex <0 then
MsgBox “Please select a number in the listbox”
Return
End If

Dim Excel as new ExcelApplication
Excel.Visible = True
Excel.Workbooks.Add

Dim i as Integer
Dim j as integer = 1
For i = Listbox1.ListIndex to Listbox1.ListCount-1
Excel.Cells(j,1).Value = Listbox1.Cell(i,0)
j = j + 1
Next i
[/code]

[Google Translate] Tlcharger le programme
[English] Download program

ExcelIncrement

@Eugene Dakin
Ce n’est pas precisement ceci.

L’utilisateur renseigne dans une base de donnée la reference d’une cellule excel.
Ex: “A10”

Ensuite le programme peut selectionner cette cellule dans excel pour y ecrire son information.

Mon probleme c’est qu’il y a plusieurs informations a envoyer.
Et la suite des informations doivent etre envoyée, une à une respectivement dans
A11,A12,A13…

Je stocke la valeur de reference en 1 bloc. Soit “A10” et non sur 2 colonnes dans la BDD. (Ce qui aurait été plus simple, car j’aurai mis la valeur “10” en variable et j’aurai fait à chaque fois +1…)

Mais si je selectionne une cellule dans excel,
Je peux sans doute pouvoir récuperer “l’adresse” de la cellule sélectionnée… Et extraire juste le numero de ligne, et le recuperer dans xojo en variable ?

Quel ligne de code peut “regarder” l’adresse de la cellule sélectionnée active dans excel via xojo ?

Merci beaucoup d’avance!

Julien.

Bonjour Julien,

Oui, l’adresse de la cellule sélectionnée peut être récupérée dans une variable dans Xojo.
[English] Yes the address of the selected cell can be retrieved into a variable in Xojo.

Ces deux lignes de code récupèrent la colonne et la ligne.
[English] These two lines of code retrieve the column and row.

MyColumn = Excel.ActiveCell.Column MyRow = Excel.ActiveCell.Row

Voici un exemple de travail :
Here is a working example:

[code]Dim Excel as new ExcelApplication
Excel.Visible = True
Excel.Workbooks.Add
MsgBox “Select a cell in Excel”

Dim MyRow, MyColumn as Integer
MyColumn = Excel.ActiveCell.Column
MyRow = Excel.ActiveCell.Row

Dim i as Integer
Dim j as integer = 10
For i = 0 to 9
Excel.Cells(MyRow+i, MyColumn).Value = j
j = j + 1
Next i
[/code]

[quote=343385:@Eugene Dakin]Bonjour Julien,

Oui, l’adresse de la cellule sélectionnée peut être récupérée dans une variable dans Xojo.
[English] Yes the address of the selected cell can be retrieved into a variable in Xojo.

Ces deux lignes de code récupèrent la colonne et la ligne.
[English] These two lines of code retrieve the column and row.

MyColumn = Excel.ActiveCell.Column MyRow = Excel.ActiveCell.Row

Voici un exemple de travail :
Here is a working example:

[code]Dim Excel as new ExcelApplication
Excel.Visible = True
Excel.Workbooks.Add
MsgBox “Select a cell in Excel”

Dim MyRow, MyColumn as Integer
MyColumn = Excel.ActiveCell.Column
MyRow = Excel.ActiveCell.Row

Dim i as Integer
Dim j as integer = 10
For i = 0 to 9
Excel.Cells(MyRow+i, MyColumn).Value = j
j = j + 1
Next i
[/code][/quote]
Super !!! C’est précisement ça!

[Google Traduction]Je suis heureux que ce code fonctionne pour vous. Si cette rponse est bonne, slectionnez ‘Ceci rpond ma question’ afin que les autres puissent trouver la rponse. Je vous remercie.

[English] I am glad this code works for you. If this answer is good, please select ‘This answers my question’ so that others can find the answer. Thank you.