Bonjour,
J'aimerai crée un tableau donc je ne connais pas la taille, car variable.
Voilà le code :
Mais je n'est rien dans mon tableau... Pourquoi?
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 ...
Merci pour votre aide
Partager