Discussion :

[57Steph]

Bonjour,

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

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

[bernardmichel]

[QUOTE=57Steph;2470263]

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

A+

[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 :

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

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

[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

[57Steph]

Merci a toi... C'est tout bon