somme de deux variables tableau

**nouveauvba** · 19/04/2017, 13h43

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

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 :

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

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

et bien non

Je ne comprends pas pourquoi?

Je pensais adapter à mon cas le code de Jacques Boisgontier suivant:

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

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

**Pierre Fauconnier** · 19/04/2017, 14h51

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 :

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

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

**nouveauvba** · 19/04/2017, 15h09

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 :

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

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

**Pierre Fauconnier** · 19/04/2017, 15h15

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 :

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

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

Tu pourrais aussi boucler sur y comme suit

Code :

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

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.