[Vba Access] Création tableau a longeur variable

Version imprimable

Bonjour,

J'aimerai crée un tableau donc je ne connais pas la taille, car variable.
Voilà le code :

Code:

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
Dim ValeurTotaleLong() As Long
Dim TableNum As Integer
TableNum = 0
...
       Do While FlagNomenclature
 
        PoidsTotal = PoidsTotal + (Enreg!A0PNET * Enreg!CDQFAC)
        QTotale = QTotale + Enreg!CDQFAC
        ValeurTotaleLigne = ValeurTotaleLigne + (Enreg!CDPRNH * Enreg!CDQFAC)
 
        Enreg.MoveNext
 
        If MemNomenclature <> Enreg!A0NOND Then
 
            wsExcel.Cells(Ligne, 3) = QTotale
            wsExcel.Cells(Ligne, 4) = PoidsTotal
            wsExcel.Cells(Ligne, 6) = ValeurTotaleLigne
            wsExcel.Cells(Ligne, 6).NumberFormatLocal = "0,00"
            ValeurTotale = ValeurTotale + ValeurTotaleLigne
            ValeurTotaleLong(TableNum) = ValeurTotaleLigne
            TableNum = TableNum + 1
 
            FlagNomenclature = False
            Ligne = Ligne + 1
        End If
 
        Loop
...

Mais je n'est rien dans mon tableau... Pourquoi?

Merci pour votre aide

[QUOTE=57Steph;2470263]
Code:

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 Dim ValeurTotaleLong() As Long Dim TableNum As Integer TableNum = 0 ... Do While FlagNomenclature PoidsTotal = PoidsTotal + (Enreg!A0PNET * Enreg!CDQFAC) QTotale = QTotale + Enreg!CDQFAC ValeurTotaleLigne = ValeurTotaleLigne + (Enreg!CDPRNH * Enreg!CDQFAC) Enreg.MoveNext If MemNomenclature <> Enreg!A0NOND Then wsExcel.Cells(Ligne, 3) = QTotale wsExcel.Cells(Ligne, 4) = PoidsTotal wsExcel.Cells(Ligne, 6) = ValeurTotaleLigne wsExcel.Cells(Ligne, 6).NumberFormatLocal = "0,00" ValeurTotale = ValeurTotale + ValeurTotaleLigne ValeurTotaleLong(TableNum) = ValeurTotaleLigne TableNum = TableNum + 1 FlagNomenclature = False Ligne = Ligne + 1 End If Loop ...
Je ne comprends pas ta variable Ligne... elle n'est ni déclarée ni inititiée, cela devrait - au premier "passage" - déclencher une erreur puisqu'alors elle est égale à Null (Evtl à 0)

Il y a également "FlagNomenclature" que je ne comprend pas. Tu pose une boucle "While" et au premier passage, tu déclares "FlagNomenclature = False"... donc, à priori, elle va rester sur False et jamais remplir la condition... je comprends pas bien non plus...

Voilà, je sais pas si cela va t'aider ? :oops:

A+

06/09/2007, 08h19
57Steph
Ne t'en fait pas pour ces variables allez sont correctement initialiser et tout, j'ai peux être mis trop de code je simplifie un peux.
Code:

1 2 3 4 5 6 7 8 9 Dim ValeurTotaleLong() As Long Dim TableNum As Integer TableNum = 0 ... ValeurTotaleLong(TableNum) = ValeurTotaleLigne TableNum = TableNum + 1 ...
Voilà mon problème est ici, je n'arrive insérer mes valeurs dans le tableau.
Le tableau n'a pas toujours la même taille.

Merci
06/09/2007, 08h22
Invité

Bonjour

Quand tu déclares ton tableau, tu ne lui a pas donné de dimension, ce qui est normal car tu ne la connais pas.

Regarde dans l'aide les instructions REDIM et PRESERVE, avec les exemples, tu verras comment cela fonctionne, c'est ces deux instructions que tu dois utiliser.

Starec
06/09/2007, 08h34
57Steph

Merci a toi... C'est tout bon