aide a un probléme

[sandrine]

Bonjour forum

j'ai réalisé une application qui permet d'exporter un fichier txt vers excel; chose déja faite

par l'intermédiaire de deux textbox je fais entrer deux coéfficient sur ma feuille excel.

coéff1 au niveu de A1
coéff2 au niveau de A2

Mes données sont en colonne B et en colonne C

je voudrais faire

(B1-B1)*24
(B2-B1)*24
(B3-B1)*24
(Bn-B1)*24

et mettre le resultat dans la colonne E

ensuite (C1*coéff1)/coéff2
(Cn*coéff1)/coéff2

et mettre le resultat dans la colonne F


est que vous pouvez m'aider car je suis débutante en VBA

merci

 

[PascalXLD]

Bonjour

essaies

dim x as integer

for x = 1 to range('B65536').end(xlup).row
range('E' & x)=(range('B&x)-range('B1'))*24
range('F' & x)=range('C' & x)*range('A1')/range('A2')
next

Bon courage

 

[sandrine]

salut pascal

mais si les données dépassent 65355

comment faire? t'as pas une idée sur ca?

merci pour ton aide

 

[andré]

Salut sandrine, et à toi aussi Pascal,

Si tes données dépassent les 65355, il n'y a pas de problème, tant qu'elles restent inférieures à 65536.

Au cas, fort peu probable à mon humble avis, que tes données dépasent quand même le seuil fatidique des 65536 lignes, mets un extrait de ton fichier en pièce jointe, on essaiera de te trouver une solution.
Je ne vois pas à première vue, mais sur XLD rien ne nous arrête.

Si ton fichier zoppé devait lui dépasser les 50 Ko, fais signe, je te laisserai mon e-mail.

Ândré.

 

[sandrine]

bonjour forum et André

oui ya forte chance que mes données dépassent 65356.

j'ai essayer de le zippé mes ca ne passe pas.

en plus j'ai fait

Range('A1').Value = Text1.Text
Range('A2').Value =Text2.Text

For x = 1 To Range('B65536').End(xlUp).Row
Range('E' & x) = (Range('B' & x) - Range('B1')) * 24
Range('F' & x) = Range('C' & x) - Range('A1') / Range('A2')
'Range('F' & x) = Range('A1') - Range('C' & x) / (Text2.Text)
Next

mais il prend pas la valeur de A1


est ce que t'as une idée?

merci d'avance

 

[Sandrine]

bonjour forum

j'ai réglé un des probléme mais ce qui reste c'est si les donnée dépassent 65356 comment faire?

merci