excel autoincrement..

  1. 2 years ago

    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

    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
  2. Jeff T

    15 Jul 2017 Pre-Release Testers Midlands of England, Europe

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

    ?

  3. Eugene D

    15 Jul 2017 Pre-Release Testers, Xojo Pro Canada scispec.ca
    Edited 2 years ago

    [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

    ExcelIncrement

  4. @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.

  5. Eugene D

    1 Aug 2017 Pre-Release Testers, Xojo Pro Answer Canada scispec.ca

    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
  6. @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.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

    Super !!! C'est précisement ça!

  7. Eugene D

    2 Aug 2017 Pre-Release Testers, Xojo Pro Canada scispec.ca

    [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.

or Sign Up to reply!