Discussion :

[Thibatus]

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

[NEC14]

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.

[issoram]

Bonjour,

A ta question

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

[Thibatus]

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

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

[EngueEngue]

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 :

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

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