optimisation de boucles

P

Pascal76

Guest

• 14 Janvier 2004

• #2

Salut pierref

essaies peut-être

[début1].range(cells(1,1),cells(n,n1))=tab1

[début2].range(cells(1,1),cells(n,n2))=tab2

Cela devrait coller ton tableau d'un coup

Tu dis si ça marche

Pascal

 

Vote positif 0 Vote négatif

J

jmt0

Guest

• 14 Janvier 2004

• #3

Salut pascal,

Pour les formule j'avaistrouvés pareil, mais j'arrivait pas a utiliser mon resultat.

a quoi correspondeles tab1 surement a des tableaux, mais tu t'en serve comment apres?

 

Vote positif 0 Vote négatif

P

Pascal76

Guest

• 14 Janvier 2004

• #4

Salut jmt0

Les tab1 et tab2 sont des variables tableaux qui se remplissent par calcul pendant la macro. Une fois recopiées sur la feuille excel le but est atteint.

Est-ce que cela répond à ta question ?

Pascal

 

Vote positif 0 Vote négatif

P

pierref

Guest

• 14 Janvier 2004

• #5

aie !

j'ai essayé et je me retrouve avec :

erreur definie par l'application ou par l'objet

quel pourrait etre le pb ?

merci

 

Vote positif 0 Vote négatif

P

Pascal76

Guest

• 14 Janvier 2004

• #6

Tu peux envoyer un morceau en fichier joint

Ce sera plus facile

Pascal

 

Vote positif 0 Vote négatif

P

pierref

Guest

• 14 Janvier 2004

• #7

heu.... pas facile.. le fichier fait 10 meg et pour remplir tab1 et tab2 il faut le fichier entier...

La solution ne serait elle pas :

[début1].range(cells(1,1),cells(n,n1))=tab1(1 to n, 1 to n+1)


??

je vais essayer


merci

 

Vote positif 0 Vote négatif

P

pierref

Guest

• 14 Janvier 2004

• #8

j'ai dit une connerie...
ca ne marche pas

 

Vote positif 0 Vote négatif

P

Pascal76

Guest

• 14 Janvier 2004

• #9

Re

Dis c'est koi ton [début1]. ??

Pascal

 

Vote positif 0 Vote négatif

P

pierref

Guest

• 14 Janvier 2004

• #10

mon [debut1] est un range.

 

Vote positif 0 Vote négatif

P

Pascal76

Guest

• 14 Janvier 2004

• #11

c'est la cellule où doivent commencer à se mettre tes données ?
Dans ce cas là normal que la formule ne fonctionne car cela fait Range.Range et là ça doit pas le faire !

je cherche

Pascal

 

Vote positif 0 Vote négatif

P

pierref

Guest

• 14 Janvier 2004

• #12

oui effectivement tu as raison
merci pour ton aide

 

Vote positif 0 Vote négatif

P

Pascal76

Guest

• 14 Janvier 2004

• #13

ReRe

essaies

x= Range("début1").Row
y = Range("début1").Column

Range("début1", Cells(x+n-1, y+n1-1)) = tab1

Tu l'appliques pour tes 2 tableaux

Tu me tiens au courant

Pascal

 

Vote positif 0 Vote négatif

P

pierref

Guest

• 14 Janvier 2004

• #14

je crois que je vais faire une petite variante a ton idée :

dim rang as string

rang = "K1:L" & nb
range(rang) = montab

en tout cas, ca va vraiment plus vite !!

merci pour tout

a+

 

Vote positif 0 Vote négatif

P

Pascal76

Guest

• 14 Janvier 2004

• #15

Content que tu gagnes du temps

pour ton dernier post, tu n'as pas besoin de passer par une variable

range("K1:L" & nb)=montab doit fonctionner aussi

Bon courage pour la suite

Pascal

 

Vote positif 0 Vote négatif