Discussion :

[maxoup]

Bonjour,

J'essaye de travailler à l'aide de tableau pour rendre mon code plus rapide mais j'ai un soucis au niveau de la création du tableau.

Je souhaiterai qu'un tableau de type variant contienne l'ensemble d'une feuille de classeur, or j'ai le message d'erreur "Mémoire Insuffisante".

Est ce qu'une feuille de classeur peut être stocké dans un variant?

Voici mon code:

Code :

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

1
2
3
4
5
6
7
    Dim v1 As Variant
    chemin = calc_S.Worksheets("feuil1").Cells(10, 2)
    Set calc_D = Workbooks.Open(Filename:=chemin, ReadOnly:=True, Format:=4)
    Dim tbase As Range
    Set tbase = calc_D.Worksheets(1).Range("A2:AL" & Cells(Rows.Count, 1).End(xlUp).Row))
    v1 = tbase

[Invité]

Salut,

Est ce qu'une feuille de classeur peut être stocké dans un variant?

Oui, mais uniquement avec un PC en avance sur notre ère.
En Excel 64 bit par exemple, un Variant prend 192 bit en mémoire.
En négligeant la très petite quantité de donnée attribué pour les dimensions du tableau.
Ça donnerai (environ) 384 Gio/feuille dans le cas d'une feuille au format récent (1024576 lignes et 16384 colonnes) si je ne me trompe pas (et un peu moins en 32 bit):
384 Gio = ((192) * 2 ^ (20 + 14)) / (8 * 1024 ^ 3)


P.S.: J'ai oublié la limite des 2 Go/instances Excel sur les versions 32 bit, donc ce n'est pas possible sur les fichiers Classeur Excel 2007 et supérieur, et pour les versions 2003 et inférieur, sauf erreur, cela doit (ou devrai) être possible par contre.

[Theze]

Bonjour,

Tu peux stocker une feuille de calcul dans un variant mais si elle possède un trop grand nombre de données et selon les ressources disponibles le compilateur peux ne pas arriver à la stocker entièrement.

Hervé.

[maxoup]

Merci de vos réponse!

Je souhaitais stocker une feuille de 39229 lignes et 38 colones.

Dommage d'atteindre les limites

[Phifou]

Une solution peut être de ne stocker qu'une sélection de ta feuille. ça risque d'être lourd, mais ça peut marcher.

une sorte de Range("A1:AL39229")

[Invité]

Merci de vos réponse!

Je souhaitais stocker une feuille de 39229 lignes et 38 colones.

Dommage d'atteindre les limites

C'est pas l'ensemble une feuille complète dans ce cas.
Là c'est possible par contre.

Code :

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

1
2
3
4
Private Sub Test()
    Dim Tb
    Tb = ThisWorkbook.Worksheets(1).Range("A1:AZ50000").Value
End Sub

Ce code simple devrai marcher en principe par exemple.