additionner le dixième élément d’un tableau

Bonjour,

Y a-t-il une combine en VBA pour additionner dixième élément d’un tableau ?

Ce tableau est déclaré comme ceci : tab_tri(24, 22) As Long et j’y enregistre un fichier CSV de +/- 6000 ligne* 40 colonnes à l’intérieur après différents calcul, tri et autres manip
Ma partie alimentation du tableau fonctionne parfaitement,

Mais je dois faire l’addition de certain champ pour ensuite les afficher ou les croiser avec d’autres données
Par exemple mon champ nb_20s qui est la somme de du 10em champ de (presque)tous mon tableau
Je trouve un peu bourrin de faire ce qui suit :

Code:

---

1 2 3 4 5

nb_20s = tab_tri(1, 10) + tab_tri(2, 10) + tab_tri(3, 10) + tab_tri(4, 10) + tab_tri(5, 10) _ + tab_tri(6, 10) + tab_tri(7, 10) + tab_tri(8, 10) + tab_tri(9, 10) + tab_tri(10, 10) + tab_tri(11, 10) _ + tab_tri(12, 10) + tab_tri(13, 10) + tab_tri(14, 10) + tab_tri(15, 10) + tab_tri(16, 10) _ + tab_tri(18, 10) + tab_tri(19, 10)

---

D’autre part je n’ai pas trop envie de passer par une boucle,

Quel serai votre solution ?

Bonne journée à tous,
Henri

salut,

n'est-il pas envisageable de copier ce tableau dans une plage de cellule et de passer par un "rapide"

Code:

---

Debug.Print WorksheetFunction.Sum(Range("J:J"))

---

Citation:

---

Envoyé par Henri-gp

Bonjour,

D’autre part je n’ai pas trop envie de passer par une boucle,

---

Pourquoi, c'est bien moins bourrin que l'écriture citée et très rapide car en mémoire... genre :
mieux vaut éliminer les non voulues si peu nombreuses que lister les voulues...

Code:

---

1 2 3 4 5

For I = 1 To UBound(tab_tri, 2) ' ou valeur limite si non prise en compte = non dispersée If I <> xx Then 'les valeurs à ne pas prendre en compte si pas limitée ci-dessus nb_20s = tab_tri(I, 10) End If Next I

---

Cordialement,

Ps : si le côté technique de la réponse = OK ou pas => pensez à cliquer sur les pouces et quand question résolue à la taguer résolue, et chaque action vous rapporte des points

Didier

Merci du conseil,

J’y ai songé, mais je préfère garder le côté silicium, c'est-à-dire un maximum de chose en mémoire vive et pas en lecture/écriture sur l’écran
Je suis novice en VBA et c’est plutôt pour le côté découverte/apprentissage qui me branche :koi:
En plus ceci va me servir à n’envoyer qu’une seul feuille de synthèse par mail à plusieurs interlocuteurs à l’aide d’un batch, donc pas d’affichage chez moi

Henri