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