Somme et somme de produit relatif au valeur des variables tableau Novice [Résolu]

cs_Elodie33 9 Messages postés mercredi 10 décembre 2008Date d'inscription 5 octobre 2009 Dernière intervention - 12 déc. 2008 à 10:00 - Dernière réponse : cs_Elodie33 9 Messages postés mercredi 10 décembre 2008Date d'inscription 5 octobre 2009 Dernière intervention
- 13 déc. 2008 à 11:40
Bonjour,

voila mon problème j'ai créé deux variables tableau A(89) et x(89) comportant chacune 90 valeurs

Ensuite dans mon code j'ai plusieurs formules de calcul qui font intervenir :
La somme des variables de chaque tableau : A(0)+A(1)+A(2)+...+A(89) et x(0)+x(1)+x(2)+...+x(89)
La somme du produit :A(0)*x(0)+A(1)*x(1)+A(2)*x(2)+...+A(89)*x(89)

Alors je pourrais créer une variabble intermédiaire et utiliser for next du type

Somme = 0
For i =0 to 89
Somme = Somme +A(i)
Next i

et pareil pour la somme du produit

Mais je me demandais si il existait déja une fonction sous VB qui permettait de le faire directement comme sur exel par exemple SOMME(A(i))

Merci par avance à tous ceux qui m'aiderons
Afficher la suite 

Votre réponse

2 réponses

Meilleure réponse
cs_fauve 661 Messages postés vendredi 2 décembre 2005Date d'inscription 23 mars 2011 Dernière intervention - 12 déc. 2008 à 21:03
3
Merci
Salut,

Déjà petite information lorsque tu crée une variable A(89), elle ne comporte pas 90 valeurs mais 89 ( de 0 à 88).

Ensuite, pour ta question, il n'existe pas à ma connaissance une méthode permettant d'additionner directement les valeurs d'un tableau.

Tu peux en revanche créer toi même une fonction le permettant.


<hr size="2" width="100%" />


Un exemple pour additionner les items d'un tableau :

Pour utiliser la fonction :



Dim resultat As Integer

resultat = addition_tab(A)






<hr size="2" width="100%" />





Function addition_tab(ByVal tab As Integer()) As Integer

     Dim somme As New Integer

     For nb As Integer = 0 To tab.Count - 1
          somme += tab(nb)
     Next

     Return somme

End Function






<hr size="2" width="100%" />
.
Un exemple pour multiplier les items d'un tableau :


Pour utiliser la fonction :



Dim resultat As Integer

resultat = multiplication_tab(A)






<hr size="2" width="100%" />





Function multiplication_tab(ByVal tab As Integer()) As Integer

     Dim somme As New Integer

     For nb As Integer = 0 To tab.Count - 1
          somme *= tab(nb)
     Next

     Return somme

End Function






<hr size="2" width="100%" />
++

Fauve

<hr size="2" width="100%" />
Pensez : Réponse Acceptée 

Merci cs_fauve 3

Avec quelques mots c'est encore mieux Ajouter un commentaire

Codes Sources a aidé 99 internautes ce mois-ci

Commenter la réponse de cs_fauve
cs_Elodie33 9 Messages postés mercredi 10 décembre 2008Date d'inscription 5 octobre 2009 Dernière intervention - 13 déc. 2008 à 11:40
0
Merci
merci
Commenter la réponse de cs_Elodie33

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.