Discussion :

[Flo5174]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[Flo5174]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Michel_M]

Bonjour

essaies

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Et pour restituer

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Flo5174]

Je viens de tester:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[Michel_M]

Suis je distrait, excuses moi !!!

en fait il faut que tu utilises range

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Flo5174]

Merci Michel ,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Merci encore.