Discussion :

[octane]

J'ai un probleme pour sommer des element d'un tableau en le mettant a jour. En gros j'ai un TCD avec plusieurs lignes et plusieurs colonnes. Je vais sommets les lignes du TCD suivant les criteres quelles respectent (devises) et repeter cette operation pour toutes les colonnes. Stocker les valeurs des sommes me paraissait plus simple dans un tableau. Le probleme est que les valeurs dans mon tableau sont nulles alors que cela ne devrait pas, je suppose donc que le code est faux mais je ne trouve pas l'erreur. Si vous avez une idee je suis preneur merci

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
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
 
Dim LastLig As Long
Dim Sh As Worksheet
Dim Resultat() As String
Dim i, j As Integer
 
For i = 6 To LastLig - 1
 
If Sh.Cells(i, 1) <> "" Then
 
Erase Resultat
 'compteur nombre de ligne avant transaction suivante
                iligarb = 1
                While Sh.Cells(i + iligarb, 1) = ""
                iligarb = iligarb + 1
                Wend
                If iligarb > 1 Then
 
                      For j = 1 To 20 'correspond au nombre de colonne de mon TCD
 
 
                            For iprime = i To i + iligarb - 1
                            ReDim Preserve Resultat(1 To 8, 1 To 20)
 
 
                            If Sh.Cells(iprime, j + 13) = "XPF" Or Sh.Cells(iprime, j + 13) = "" And Sh.Cells(iprime - 1, j + 13) = "XPF" Then
                            Resultat(4, j) = Resultat(4, j) + Sh.Cells(iprime, j + 13)
 
                            ElseIf Sh.Cells(iprime, j + 13) = "USD" Or Sh.Cells(iprime, j + 13) = "" And Sh.Cells(iprime - 1, j + 13) = "USD" Then
                           Resultat(2, j) = Resultat(2, j) + Sh.Cells(iprime, j + 13)
 
 
                            ElseIf Sh.Cells(iprime, j + 13) = "AUD" Or Sh.Cells(iprime, j + 13) = "" And Sh.Cells(iprime - 1, j + 13) = "AUD" Then
                            Resultat(3, j) = Resultat(3, j) + Sh.Cells(iprime, j + 13)
 
                            ElseIf Sh.Cells(iprime, j + 13) = "EUR" Or Sh.Cells(iprime, j + 13) = "" And Sh.Cells(iprime - 1, j + 13) = "EUR" Then
                            Resultat(1, j) = Resultat(1, j) + Sh.Cells(iprime, j + 13)
 
                            ElseIf Sh.Cells(iprime, j + 13) = "GBP" Or Sh.Cells(iprime, j + 13) = "" And Sh.Cells(iprime - 1, j + 13) = "GBP" Then
                           Resultat(5, j) = Resultat(5, j) + Sh.Cells(iprime, j + 13)
 
                            ElseIf Sh.Cells(iprime, j + 13) = "NZD" Or Sh.Cells(iprime, j + 13) = "" And Sh.Cells(iprime - 1, j + 13) = "NZD" Then
                           Resultat(7, j) = Resultat(7, j) + Sh.Cells(iprime, j + 13)
 
                            ElseIf Sh.Cells(iprime, j + 13) = "CHF" Or Sh.Cells(iprime, j + 13) = "" And Sh.Cells(iprime - 1, j + 13) = "CHFP" Then
                           Resultat(6, j) = Resultat(6, j) + Sh.Cells(iprime, j + 13)
 
                            ElseIf Sh.Cells(iprime, j + 13) = "CAD" Or Sh.Cells(iprime, j + 13) = "" And Sh.Cells(iprime - 1, j + 13) = "CAD" Then
                           Resultat(8, j) = Resultat(8, j) + Sh.Cells(iprime, j + 13)
                            Else
                            End If
 
                            Next iprime
                            Next j
 
                        i = i + iligarb - 1
 
 
Else
End If
Next i

[nibledispo]

bonjour,

N'est-il pas nécessaire de préciser le nom de la feuille Excel. sh = worksheet ( "nom feuille") ? peut-être ton code est-il écrit sur la feuille en question ?

As-tu essayé l'exécution pas à pas pour voir la progression ?

cordialement.