Discussion :

[DarkVader]

Bonjour,
La MSDN indique la limite d'un dimensionnement de tableau à 2^31-1
or après plusieurs tests, je bloque invariablement à 33 361 918 (<2^25) !

Quelqu'un d'autre aurait-il la même limite (pour un tableau de bytes)
ou bien serait-elle liée à mon environnement ?

[OhMonBato]

T'as combien de mémoire sur ta machine ? J'ai 1Go de mémoire sur mon PC et je peux dimensionner jusqu'à 322 000 000 à peu près.

[DarkVader]

Bonjour,
C'est très curieux car je dispose de la même quantité de mémoire physique
et quelquesoit la mémoire disponible j'obtiens toujours les mêmes résultats
(différents selon l'exécution sous VB6 et VBA) mais quelquesoit le type de tableau redimensionné.
Tu es sur de ton résultat ?

Voici la procédure de test utilisée

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
Sub testRedim()
    Dim temp() As String, c As Long, base As Long, lastC As Long
 
    On Error GoTo endSub
    base = 10000000
    c = 10000000
    'c(vb6) = 33 361 918  c(vba)=25 133 054
 
    Debug.Print "Type : « "; TypeName(tmp()); " »"
    Debug.Print String(70, "=")
reprise:
    For x = 0 To 1000
        DoEvents
        ReDim temp(1 To (c + (base * x)))
        Erase temp
    Next
Exit Sub
endSub:
    lastC = c + (base * (x - 1))
    Debug.Print "Dernière limite acceptée : "; Format(lastC, "# ### ### ###"), "( x= "; CStr(x - 1); " / base = " + CStr(base) + " )"
    base = base \ 10
    If base = 0 Then
        Exit Sub
    Else
        c = lastC
        Resume reprise
    End If
 
End Sub

[Vld44]

c'est quoi ce code

D'où elle sort ta variable temp ?

[DarkVader]

C'est effectivement mieux en étant correctement déclaré , mais cela ne change rien au problème :
les affectations sont limitées et la limite aléatoire.


Affectation : « String() » - Dernière limite acceptée : 146 888 889 (VB6) 188 888 889 (VBA)
Affectation : « Space() » - Dernière limite acceptée : 146 888 889 (VB6) 188 888 889 (VBA)
Affectation : « Redim() » - Dernière limite acceptée : 133 447 672 (VB6) 100 532 216 (VBA)

[ced600]

Bon je ne suis pas un pro du vb6 mais tu redimensionne ton tbleau temp alors que tu ne l'as pas dimmensioner une seule fois ?

[DarkVader]

Cela a été corrigé mais ne change rien comme je l'indique ci-dessus.