somme de deux variables tableau

Version imprimable

Bonjour à tous,
Suite à mes précédentes interventions je butte encore sur un sujet.
Je suis amené à traiter plusieurs fichiers de données avec une itération.
Après analyse du fichier 1 (quantité d'événement) je crée dois généré un tableau synthétique permettant de faire une moyenne des données issues du fichier 1, fichier 2, fichier n.
Dans cette synthèse les quantité d'événements sont stockés dans une variable appelée tablo() soit écrite. Cette variable est composée de 12 lignes et 5 colonnes.
Suite à l'itération et l'analyse du fichier 2 cette même variable est donc modifiée avec les nouvelles valeurs mais je souhaite ajouter celles de l'analyse 1
Comme les données stockées pour la cellule (a,z) correspond au même événement je pensais que cela serait simple de faire une somme et bien non :aie:

exemple souhaité
cellule (1,1) = cellule (1,1) du fichier 1 + cellule (1,1) du fichier 2 + cellule (1,1) du fichier n
même chose pour les les cellules jusqu'à (12,1) et (1,5) et (12,5)

je pensais tout bonnement que générer une seconde variable tableau sommes() en sommant le range de mes données du fichier 1 (écrite dans le fichier Excel) permettrait de le faire:

Code:

sommes = Range("C5:G16").Value + sommes

et bien non :calim2:

Je ne comprends pas pourquoi?

Je pensais adapter à mon cas le code de Jacques Boisgontier suivant:
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 29 30 31 32 33 34 35 36 37 38 Sub essai2() Dim Tableau(1 To 10, 1 To 9, 1 To 12) ' 10 lignes/9 colonnes Dim y As Integer, x As Integer, z As Integer For y = LBound(Tableau, 1) To UBound(Tableau, 1) For x = LBound(Tableau, 2) To UBound(Tableau, 2) For z = LBound(Tableau, 3) To UBound(Tableau, 3) Tableau(y, x, z) = Sheets(z).Cells(y, x) Next z Next x Next y MsgBox SommeTableau(Tableau, Empty, 1, 4) ' Somme Colonne1/ Feuil4 MsgBox SommeTableau(Tableau, 2, Empty, 4) ' Somme Ligne 2/Feuil4 MsgBox SommeTableau(Tableau, 1, 1, Empty) ' Somme Ligne1/Colonne1/Toutes les feuilles MsgBox SommeTableau(Tableau, 3, 2, 1) ' Ligne3/Colonne2/Feuil1 End Sub Function SommeTableau(T(), Lig, Col, F) If IsEmpty(Col) Then For x = LBound(T, 2) To UBound(T, 2) temp = temp + T(Lig, x, F) Next x Else If IsEmpty(Lig) Then For y = LBound(T, 1) To UBound(T, 1) temp = temp + T(y, Col, F) Next y Else If IsEmpty(F) Then For z = LBound(T, 3) To UBound(T, 3) temp = temp + T(Lig, Col, z) Next z Else temp = T(Lig, Col, F) End If End If End If SommeTableau = temp End Function
Mais à part me casser les dents je n'arrive pas à grand chose de plus :weird:

Merci à vous tous de votre aide très précieuse.

Salut.

Tu n'aurais pas intérêt à coller tes n tableaux dans des feuilles Excel puis à utiliser Excel pour la consolidation? N'es-tu pas en train de réécrire Excel en voulant passer par des tableaux?

Si tu veux vraiment passer par un tableau de somme, tu peux t'inspirer de ceci. Je sais bien qu'on va me dire que c'est beaucoup plus lent etc etc, mais c'est lisible, fonctionnel et facilement transposable.
Code:

1 2 3 4 5 6 7 8 9 10 11 Sub Test2() Dim t1(25, 10), t2(25, 10), t3(25, 10), s(25, 10) Dim R As Long, C As Long ' Remplissage des tableaux t1, t2, t3 For R = 0 To UBound(s) For C = 0 To UBound(s, 2) s(R, C) = t1(R, C) + t2(R, C) + t3(R, C) Next C Next R End Sub

Merci Pierre pour ta réponse.
Le problème c'est que dans un premier temps je traite le fichier 1 (données issues du jour 1) et en fais une analyse j’enregistre le fichier et le ferme.
ainsi de suite jusqu'à x fichier (x jours).
Donc le tableau initial de chaque jour existe.
L'objectif étant de faire une moyenne des x jours.
Dans mon programme précédent (que je refais) j'avais édité ce code (je suis totalement autodidacte en vba...):

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
 
'exemple pour la première colonne
'je récupère le données issue de la première synthèse
l1c1 = Cells(5, 3)
l2c1 = Cells(6, 3)
l3c1 = Cells(7, 3)
l4c1 = Cells(8, 3)
l5c1 = Cells(9, 3)
l6c1 = Cells(10, 3)
l7c1 = Cells(11, 3)
l8c1 = Cells(12, 3)
l9c1 = Cells(13, 3)
l10c1 = Cells(14, 3)
 
Windows("compil").Activate
Sheets("total").Select
'j'ajoute les données de la seconde synthése
Cells(5, 3) = Cells(5, 3) + l1c1
Cells(6, 3) = Cells(6, 3) + l2c1
Cells(7, 3) = Cells(7, 3) + l3c1
Cells(8, 3) = Cells(8, 3) + l4c1
Cells(9, 3) = Cells(9, 3) + l5c1
Cells(10, 3) = Cells(10, 3) + l6c1
Cells(11, 3) = Cells(11, 3) + l7c1
Cells(12, 3) = Cells(12, 3) + l8c1
Cells(13, 3) = Cells(13, 3) + l9c1
Cells(14, 3) = Cells(14, 3) + l10c1

Bref long et pénible....

Du coup je viens de trouver une solution mais là il y a améliorer:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Sub test()
Dim z(12, 5) As Variant
Dim y As Integer, x As Integer
 
tableau = [C5:G16].Value '(cas ou les données sont écrites) Objectif: voir si je peux ne pas les écrire et les garder en mémoire pour la prochaine itération
tableau2 = [J5:N16].Value '(cas ou les données sont écrites) itération suivante à ajouter à la précédente
  For y = LBound(tableau, 1) To UBound(tableau, 1)
  If y > 5 Then
  Exit For
  End If
     For x = LBound(tableau2, 1) To UBound(tableau, 1)
 
         z(x, y) = tableau(x, y) + tableau2(x, y)
 
    Next x
  Next y
 
  [P5:U16].Value = z
 
End Sub

Par contre ça me décale la somme d'une ligne vers le bas (je cherche la solution)

19/04/2017, 15h15
Pierre Fauconnier

Salut.

Les tableaux chargés à base de plages de cellules commencent à 1. Ceux créés comme ton tableau z, sans option spécifique de compilation, commencent à 0. Tu devrais donc déclarer z comme ceci

Code:

Dim z(1 to 12, 1 to 5) As Variant

Tu pourrais aussi boucler sur y comme suit

Code:

For y = LBound(tableau, 1) To 5

A part cela, je ne vois pas grand chose qui pourrait clocher, mais je n'ai pas testé

Tu peux déclarer tes variables en Long plutôt qu'en Integer, ça te permettra de travailler au delà de 32.768 lignes et de toute façon, les Integer sont convertis en Long par l'interpréteur du VBA.
19/04/2017, 15h25
nouveauvba

Merci pour tes retours.
J'ai modifié mon code avec tes corrections :wow: :applo:
Ca ronronne sur mon exemple.
Reste à tester sur un cas concret sans passer par l'écriture des données, ce que je vais faire de ce pas... :P

Edit: je tiens le bon bout :D
Merci pour tout.