Bonjour,
j'ai dans une base de donnée la cellule d'un point de depart d'enregistrement,
je selectionne la cellule de xojo avec ce code :
excel.Range(Listbox1.Cell(Listbox1.ListIndex,6)).Select_
j'aimerai continuer a ecrire sur la cellule du dessous...
avec un code un peu comme ceci.. sauf.. que mon code ne marche pas..
for i = 0 to 5
excel.ActiveSheet.cells(excel.Rows+i,excel.Columns).value = str(i)
next
merci..
@Eugene D
excel.ActiveSheet.cells ( i, 1) .value = str (i)
?
[Google Translate] Bonjour Julien,
Attached est un exemple qui montre les lignes sélectionnées dans une boîte de liste Xojo et affiche les valeurs dans Excel.
Lorsque le numéro 10 est sélectionné, Excel affichera 10,12,14.
Lorsque le numéro 6 est sélectionné, 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 présentation des données dans Excel est avec le code suivant:
[English] Showing data in Excel is with the following 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
[Google Translate] Télécharger le programme
[English] Download program
@Eugene D
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,
@julien a 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 ?
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.
@julien a Quel ligne de code peut "regarder" l'adresse de la cellule sélectionnée active dans excel via 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:
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
@Eugene D 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.RowVoici un exemple de travail :
Here is a working example:
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
Super !!! C'est précisement ça!
[Google Traduction]Je suis heureux que ce code fonctionne pour vous. Si cette réponse est bonne, sélectionnez 'Ceci répond à ma question' afin que les autres puissent trouver la réponse. 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.