Somme d'un tableau vba 3 dimensions

Bonjour à tous et désolé du titre un peu confus...

Je vous expose mon problème
(je travaille dans la chimie pour aider à la compréhension de ce qui suit...)

j'ai un tableau à 3 dimensions datablanc(1 to 16, 1 to 10, 1 to 2) dans lequel j'analyse 16 molécules, 10 échantillons par molécule et 2 mesures dans chaque echantillon

De ce tableau, je souhaite déduire un second tableau à deux dimensions datablancsum(1 to 16, 1 to 2) où
datablancsum ( 1, 1) serait egal à la somme des datablanc(1, Z, 1)
datablancsum (1,2) la somme des datablanc(1,Z,2)...

Existe-il un code du type Application.Sum(Apllication.Index(datablanc.... où l'on puisse choisir sur quelle dimension on effectue la somme ?


Je vous remercie par avance et j'espère que cette histoire de dimensions ne vous entraînera pas dans la 4è... dimension;)

Bonjour,

En faisant une recherche dans ce forum, de nombreuses discussions ont traités de ce sujet. Tu devrais y trouver ton bonheur.

Sinon, bienvenue parmi nous.

Bonjour,

A ta question

Citation:

---

Existe-il un code du type Application.Sum(Apllication.Index(datablanc.... où l'on puisse choisir sur quelle dimension on effectue la somme ?

---

la réponse est non.
Il te faudra passer par une boucle est un tableau intermédiaire.

Bon courage

Merci à vous deux (Nec14, j'avais cherché mais point trouvé:()

Je vais donc utiliser les boucles et un tableau intermédiaire. On the road...

Tu peux très bien imaginer une fonction avec un select case initial qui va te faire la somme, exemple de fonction de calcuil sur la dimension 2

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

Sub toto() Dim tablo(1 To 5, 1 To 7) tablo(1, 1) = 1 tablo(1, 2) = 1 tablo(1, 3) = 1 x = sommedim2(tablo) MsgBox (x) End Sub     Function sommedim2(tablo) As Double For k = LBound(tablo, 2) To UBound(tablo, 2) sommedim2 = sommedim2 + tablo(1, k) Next k End Function

---