remplissage "dynamique" d'un classeur excel...

Question

Bonjour, 



je developpe actuellement un petit logiciel qui recupere des donn&#233;es physique via une carte d'acquisition "maison".

je suis bloqu&#233; sur la chose suivante:



je desire conserver, en fonction d'un indice "t",  4 valeurs
(appelons les val1 &#224; 4), dans un classeur excel. Mon probleme est que
je ne sais pas comment remplir les lignes suivantes, une fois la
premiere remplie ( ca boucle sur l'indice t)

bref, utiliser un indice de ligne variable pour recuperer.





ma proc&#233;dure:



j'ouvre le classeur excel





debut de la boucle for avec t en indice

je recupereles valeurs val1

            val2

            val3

            val4



stockage de t dans la colonne A a la lignet

stockage de val1(t) dans la colonne B a la ligne t

stockage de val2(t) dans la colonne C a la ligne t

stockage de val3(t) dans la colonne D a la ligne t


stockage de val4(t) dans la colonne E a la ligne t



boucle jusqu'a ce que je dise d'arreter...



voila..





merci d'avance



stef

Sensei01 · Answer

Sensei01 
comme ca :



'Variables Relative &#224; la g&#233;n&#233;ration du fichier Excel



Dim ExcelObject 
As 
Object



Dim ExcelBook 
As 
Object



Dim ExcelSheet 
As 
Object


'G&#233;n&#233;ration du fichier Excel :


ExcelObject = CreateObject("Excel.application")


ExcelBook = ExcelObject.Workbooks.Add


ExcelSheet = ExcelBook.Worksheets(1)

for ....


' Remplissage du fichier Excel :


Ligne = Ligne + 1
ExcelSheet.Application.Range("B" & Ligne).Value = val1
ExcelSheet.Application.Range("C" & Ligne).Value = val2
ExcelSheet.Application.Range("D" & Ligne).Value = val3
ExcelSheet.Application.Range("E" & Ligne).Value = val4

end for

/******** Sans audance pas de gloire !! ********/

cs_etniqs · Answer

y'a plusieurs mani&#232;res, je propose celle-ci avec un typage un peu plus pr&#233;cis :

Dim apex       As excel.Application
Dim sheet_excel As excel.Workbook          'fichier Excel

sub module()
    Set apex = New excel.Application
    Set sheet_excel = apex.Workbooks.Open("nom du fichier")
    apex.Visible = False 'pour pas "l'ouvrir"
    apex.DisplayAlerts = False ' pour pas voir les nombreux messages d&#233;biles que peut contenir excel

   for i = 0 to .... (3 )
         sheet_excel.sheets("nomd'une feuille").range("a1").offset(i,0).value = t
   next i

    format_excel.Close
    Set format_excel = Nothing
    apex.Application.Quit
    Set apex = Nothing
end sub

ce qui permet de changer de feuille, de fichier,....il suffit de changer les liens

cs_etniqs · Answer

tient juste pour rire

t(0)-----val(0) = 3
     ------val(1) = 5
t(1)-----val(0) = 8
     ------val(1) = 12
     ------val(2) = 5
t(2)-----val(0) = 3
     ------val(1) = 5
     ------  .......

etc

type montypedetableau 
 val() as integer
end type

dim tab() as montypedetableau 
.......

sub(main)
....
call module(tab())
end sub

sub module(byref tab() as montypedetableau &#224; moi)
    Set apex = New excel.Application
    Set sheet_excel = apex.Workbooks.Open("nom du fichier")
    apex.Visible = False 'pour pas "l'ouvrir"
    apex.DisplayAlerts = False ' pour pas voir les nombreux messages d&#233;biles que peut contenir excel

for j=0 to ubound(tab)  'pour r&#233;cup&#233;rer la taille du tableau (pour chaque t, tu as des val) 
   for i = 0 to ubound(tab(j).val) 
         sheet_excel.sheets("nomd'une feuille").range("a1").offset(i,0).value = tab(j).val(i)  ' tu colles la valeur i du tab j
   next i
          sheet_excel.sheets("nomd'une feuille").range("a1").offset(ubound(tab(i).val),0).select
next j

    format_excel.Close
    Set format_excel = Nothing
    apex.Application.Quit
    Set apex = Nothing
end sub

stefsuire · Answer

toutes ces methodes me plaisent bien...merci messieurs et  peut etre mesdemoiselles !!!



ca marche en ce moment meme.!!!



maintenant, l'atpe supp&#233;mentaire, ca serait de faire un bout de
programme qui m'affiche ces point stock&#233;s ( en temps r&#233;el..pas facile
je pense ) dans un graphique, sur ma feuille principale..ca doir etre
faisable mais comme je suis pas un Jedi...avec Excel...vous ecririez quoi ? 



le top ca serait de pouvoir faire un zoom sur une zone specifique avec
le cliquer-reclacher de la souris (dessin d'un cadre de zoom)...



une fois mon taf  termin&#233; , je ne maquerait pas de mettre le code source ici !!



encore merci !!





stef

cs_etniqs · Answer

vite fait : le fameux "doevents" te permet d'&#233;x&#233;cuter un truc en temps r&#233;el

par exemple dans une boucle for, tu colles un texte qui s'affiche dans une autre form (un log temps r&#233;el par ex)

la form ne se mettra pas &#224; jour si tu colles pas doevents dansla boucle (ou &#224; chaque fois que tu veux mettre &#224; jour qqchose  tu me vois venir ??

dans ton cas ce sera un chartobjects donc

Dim cht As ChartObject

Set cht = sheet_excel..Sheets(nom).ChartObjects.Add(ch_left, ch_top, 300, 150)
 With cht.Chart
.ApplyCustomType ChartType:=a voir
 .SeriesCollection.Add ma_plage1

end with 

...... et tout et tout

Remplissage "dynamique" d'un classeur excel...

5 réponses

Discussions similaires