Coller les valeurs d'un tableau de variables?

Bonjour,

J'ai créé un fichier excel et je souhaite effectuer les calculs dans un tableau de variables et non sur ma feuille excel afin de réduire les temps de calcul (très longs).

Je commence par créer et remplir mon tableau:

Code:

---

1 2 3 4 5 6 7 8

Dim tableau(1 To 23, 1 To 67) As Variant For i = 1 To UBound(tableau, 1) tableau(i, 1) = "=VLOOKUP(RC[28],Stock!R6C:R65536C[4],5,FALSE)" tableau(i, 2) = _ "=LEFT(VLOOKUP(RC[27],Stock!R6C[-1]:R65536C[1],3,FALSE),5)" ... ... Next i

---

Par contre quand je recopie ce tableau sur ma feuille excel avec le code suivant, ce sont les formules qui se collent et non les valeurs, et du coup excel recalcule tout.

Code:

---

Range(Cells(7, 1), Cells(UBound(tableau, 1) + 6, UBound(tableau, 2))) = tableau

---

Connaissez-vous une solution pour soit:
- copier directement les valeurs du tableau sur ma feuille excel
- remplacer les formules de mon tableau par leur valeur puis coller le tableau

Merci.
Florian.

Bonjour Sypho,

Si j'enlève les guillemets la formule est considérée comme du texte.
Peut-être est-ce à cause de la syntaxe (remplacer RC[28] par tableau(i, 29) et Stock!R6C:R65536C[4] par un tableau de variables). Dans ce cas il faut que je crée 12 autres tableaux pour mes autres feuilles excel.

Sinon je pense qu'il faudrait quelque chose comme:

Code:

---

1 2	tableau(i, 1) = "=VLOOKUP(RC[28],Stock!R6C:R65536C[4],5,FALSE)" tableau(i, 1) = tableau(i, 1).value

---

mais tableau(i, 1).value ne fonctionne pas.

Avis aux experts...

Bonjour

essaies

Code:

---

tableau(i, 1) = Application.VLOOKUP(RC[28],Stock!R6C:R65536C[4],5,FALSE)

---

Et pour restituer

Code:

---

Cells(7,1).resize(23,67)=tableau

---

Je viens de tester:

Code:

---

tableau(i, 1) = Application.VLOOKUP(RC[28],Stock!R6C:R65536C[4],5,FALSE)

---

Cette formule ne fonctionne pas (erreur de compilation: Attendu: séparateur de liste ou) ).
Je pense que c'est à cause de RC[28] et Stock!R6C:R65536C[4] comme expliqué dans mon précédent post.

Pour la seconde formule c'est bon mais comme la première ne fonctionne pas, j'ai toujours les formules et non les valeurs sur ma feuille excel.

Suis je distrait, excuses moi !!!

en fait il faut que tu utilises range

Code:

---

Application.VLOOKUP(range("tacellule"),sheets("Stock"),range("R6C:R6.....

---

nota: je suis perdu avec la notation RC mais tu peux reprendre la notation classique "A1"...

Merci Michel :ccool:,

J'ai donc créé un tableau par feuille excel, soit 12 tableaux:

Code:

---

1 2 3 4 5 6 7

Dim TableauABC As Variant i = Sheets("ABC").Range("A6").End(xlDown).Address i = Sheets("ABC").Range(i).Row If i = 65536 Then i = 6 i = i - 5 ReDim TableauABC(1 To i, 1 To 2) TableauABC = Range(Sheets("ABC").Cells(6, 1), Sheets("ABC").Cells(6 + i, 2))

---

J'ai ensuite créé mon tableau "central" pour les calculs:

Code:

---

1 2 3 4 5 6

Dim TableauAcder As Variant i = Sheets("Stock").Range("A6").End(xlDown).Address i = Sheets("Stock").Range(i).Row If i = 65536 Then i = 6 i = i - 5 ReDim TableauAcder(1 To i, 1 To 65)

---

Enfin je remplis mon tableau de valeurs:

Code:

---

1 2 3 4 5

For i = 1 To UBound(TableauAcder, 1) TableauAcder(i, 29) = TableauStock(i, 1) TableauAcder(i, 1) = Application.VLookup(TableauAcder(i, 29), TableauStock, 5, False) ... Next i

---

Et je colle mon tableau sur ma page excel, sans recalcul:

Code:

---

Sheets("A cder").Cells(7, 1).Resize(i, 65) = TableauAcder

---

Merci encore.