Discussion :

[Henri-gp]

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 :

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

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

[Jean-Philippe André]

salut,

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

Code :

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

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

[Henri-gp]

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

[Didier Gonard]

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 :

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

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